Perl-скрипт для рекурсивной замены всех тегов <h2> на <h1> во всех файлах

Question

Так что-то вроде этого

<h2 style='margin-top: 10px;'>
<?php echo $title; ?>
</h2>

должно стать

<h1 style='margin-top: 10px;'>
<?php echo $title; ?>
</h1>

---

Я использую этот код perl -pi -e 's/<h2(.*)<\/h2>/<h1\1<\/h1>/g' *, но он работает, только если теги находятся в одной строке.

Answer 1

Нет необходимости сочетать открывающий и закрывающий теги. Просто измените все открывающие теги <h2> на '`, а затем сделайте то же самое для всех закрывающих тегов. Как это

perl -pie 's|<h2\b|<h1|g; s|</h2\b|</h1|g;' *

Answer 2

perl -pi.bak -we 's#</?h\K2#1#g' yourfile

\K сохранит сопоставленный текст перед ним.Таким образом, мы не должны возвращать его после сопоставления.

Answer 3

Нет * nix среды для тестирования, но

% find . -name "*.html" -exec sed -e s/\<h2/\<h1/g -e 's|</h2|</h1|g' {} \;

может начать вас. Perl не требуется.

Answer 4

Ниже у меня работает код

use strict;
use warnings;

open FILE, 'inputfile.txt';

my $contents = do { local $/; <FILE> };

close FILE;

$contents =~ s/<h2(.*?)<\/h2>/<h1$1<\/h1>/sg;

print $contents;

Обратите внимание, что $/ является разделителем входных записей. По умолчанию это перевод строки \n.
Мы создаем локализованную версию $/, поэтому ее предыдущее значение восстанавливается после завершения блока.

Answer 5

Вы можете использовать Perl следующим образом:

perl -0pe -i.bak 's#<h2(.*?)</h2>#<h1$1</h1>#gs' file