Блог

Я пытаюсь заменить все ` тегом HTML-кода

заменить:

 $string = "Foo `FooBar` Bar";
  

с:

 $string = "Foo <code>FooBar</code> Bar";
  

я пробовал эти

 $pattern = '`(.*?)`';

my $replace = "<code/>$amp;</code>";
$subject =~ s/$pattern/$replace/im;

#And

$subject =~ s/$pattern/<code/>$amp;</code>/im;
  

но ни один из них не работает.

Предполагая, что вы имели в виду $string вместо $subject …

 use strict;
use warnings;
use v5.10;

my $string = "Foo `FooBar` Bar";

my $pattern = '`(.*?)`';
my $replace = "<code/>$amp;</code>";

$string =~ s{$pattern}{$replace}im;
say $string;
  

Это приводит к…

 $ perl ~/tmp/test.plx
Use of uninitialized value $amp; in concatenation (.) or string at /Users/schwern/tmp/test.plx line 9.
Foo <code/></code> Bar
  

Здесь есть некоторые проблемы. Во-первых, $amp; означает строку, совпадающую с последним совпадением. Это было бы все `FooBar` . Вы просто хотите FooBar , что находится внутри захвата скобок. Вы получите это с $1 помощью . См. раздел Извлечение совпадений в руководстве по регулярным выражениям Perl.

Во-вторых $amp; , и $1 являются переменными. Если вы поместите их в двойные кавычки, как $replace = "<code/>$amp;</code>" тогда, Perl немедленно интерполирует их. Это означает $replace <code/></code> , что . Вот откуда приходит предупреждение. Если вы хотите использовать $1 его, он должен перейти непосредственно в replace.

Наконец, при цитировании регулярных выражений лучше всего использовать qr{} . Это приводит к специальной кавычке регулярных выражений. Это позволяет избежать всевозможных проблем с цитированием.

Соберите все это вместе…

 use strict;
use warnings;
use v5.10;

my $string = "Foo `FooBar` Bar";

my $pattern = qr{`(.*?)`};
$string =~ s{$pattern}{<code/>$1</code>}im;

say $string;