Заменить HTML-текст подпрограммой

Question

Мне нужен скрипт на Perl / Shell, который заменит все приведенные ниже HTML-коды во всех файлах текстом:

<? test_routine ?>

HTML-код

<tr>
  <td>
    <label>testlabel</label>
  </td>
</tr>

Этот HTML-кодможет встречаться с любым количеством пробелов, т. е.

<tr><td><label>testlabel</label></td></tr> 

также является допустимым критерием поиска (то есть игнорировать все пробелы)

Может кто-нибудь, пожалуйста, дайте мне знать, как я могу решить эту проблему с помощью perl/ shell script.Спасибо.

Answer 1

Вот одна строка Perl, которая будет делать то, что вам нужно, используя регулярное выражение:

$html =~ s/<\s*tr\s*>\s*<\s*td\s*>\s*<\s*label\s*>\s*testlabel\s*<\s*\/label\s*>\s*<\s*\/td\s*>\s*<\s*\/tr\s*>/<? test_routine ?>/gi