Я отлаживаю некоторый код и задаюсь вопросом, существует ли какая-либо практическая разница между $1 и \1 в Perl-подстановках регулярных выражений
Например:
my $package_name = "Some::Package::ButNotThis";
$package_name =~ s{^(\w+::\w+)}{$1};
print $package_name; # Some::Package
Эта следующая строка выглядит функционально эквивалентной:
$package_name =~ s{^(\w+::w+)}{\1};
Существуют ли тонкие различия между этими двумя утверждениями? Они ведут себя по-разному в разных версиях Perl?
Во-первых, вы должны всегда использовать warnings при разработке:
#!/usr/bin/perl
use strict; use warnings;
my $package_name = "Some::Package::ButNotThis";
$package_name =~ s{^(\w+::\w+)}{\1};
print $package_name, "\n";
Вывод:
\1 better written as $1 at C:\Temp\x.pl line 7.
Когда вы получите предупреждение, которое вы не понимаете, добавьте diagnostics:
C:\Temp> perl -Mdiagnostics x.pl
\1 better written as $1 at x.pl line 7 (#1)
(W syntax) Outside of patterns, backreferences live on as variables.
The use of backslashes is grandfathered on the right-hand side of a
substitution, but stylistically it better to use the variable form
because other Perl programmers will expect it, and it works better if
there are more than 9 backreferences.
Почему он работает лучше, если имеется более 9 обратных ссылок? Вот пример:
#!/usr/bin/perl
use strict; use warnings;
my $t = (my $s = '0123456789');
my $r = join '', map { "($_)" } split //, $s;
$s =~ s/^$r\z/\10/;
$t =~ s/^$r\z/$10/;
print "[$s]\n";
print "[$t]\n";
Вывод:
C:\Temp> x ] [9]
Если это не разъясняет это, взгляните на:
C:\Temp> x | xxd 0000000: 5b08 5d0d 0a5b 395d 0d0a [.]..[9]..
См. также perlop:
В конструкциях, которые интерполируют и транслитерируют & hellip, доступны следующие escape-последовательности;
\10 восьмеричный 8 десятичный. Итак, запасная часть содержала код символа для BACKSPACE.
Кстати, ваш код не делает то, что вы хотите: то есть он не будет печатать Some::Package какой-либо пакет, в отличие от вашего комментария, потому что все, что вы делаете, заменяет Some::Package на Some::Package, не касаясь ::ButNotThis.
Вы можете:
($package_name) = $package_name =~ m{^(\w+::\w+)};
или
$package_name =~ s{^(\w+::\w+)(?:::\w+)*\z}{$1};
Из perldoc perlre:
Конструкция брекетинга "(...)" создает буферы захвата. Ссылаясь на текущее содержимое буфера позже, в рамках одного и того же шаблона, используйте \ 1 для первого, \2 для второго и т.д. Вне матча используйте "$" вместо "\".
Обозначение \<digit> работает в определенных обстоятельствах вне матча. Но это может потенциально столкнуться с восьмеричными побегами. Это происходит, когда обратная косая черта сопровождается более чем 1 цифрой.