Когда-то я стал писать на perl из-за встроенных в язык регулярных выражений. Просто пишешь "abc" =~ / (?<x> a) /x; и вуаля: устанавливаются переменные $&, $1, %+, %-, @-, @+, $`, $'.
Однако эти же переменные перезаписываются при использовании следующей регулярки:
"abc" =~ /a/;
print $&; # -> a
"xyz" =~ /y/;
print $&; # -> y
На самом деле, у специльных переменных perl-а обслуживающих регулярки область видимости ограничена своим блоком, как и у переменных объявленных через my.
"abc" =~ /a/;
{
"xyz" =~ /y/;
print $&; # -> y
}
print $&; # -> a
Конечно использовать переменные от двух регулярок одновременно не выйдет - их придётся сохранить в локальных переменных. Например вот так:
"abc" =~ /a/;
my $x = $&;
{
"xyz" =~ /y/;
print "$x vs $&"; # -> a vs y
}
print "Конец строки: $'" # -> Конец строки: bc
Если кто-то знает как сохранить все эти переменные в хеш кратко - напишите в комментариях: буду признателен. Я придумал сделать это только так:
"abc" =~ /(a)/;
%x = map {$_ => $$_} qw/& 1 ' `/;
use DDP; p %x;
# ->
{
& "a",
` ""
' "bc",
1 "a"
}
Так же не следует забывать о том, что переменная $_ является не локальной, а суперглобальной:
$_ = "abc";
{
$_ = "xyz";
print; # -> xyz
}
print; # -> xyz
И тут придётся использовать local:
$_ = "abc";
{
local $_ = "xyz";
print; # -> xyz
}
print; # -> abc
У меня по этой теме - всё. А вам - удачного программирования.
habr.com
Однако эти же переменные перезаписываются при использовании следующей регулярки:
"abc" =~ /a/;
print $&; # -> a
"xyz" =~ /y/;
print $&; # -> y
На самом деле, у специльных переменных perl-а обслуживающих регулярки область видимости ограничена своим блоком, как и у переменных объявленных через my.
"abc" =~ /a/;
{
"xyz" =~ /y/;
print $&; # -> y
}
print $&; # -> a
Конечно использовать переменные от двух регулярок одновременно не выйдет - их придётся сохранить в локальных переменных. Например вот так:
"abc" =~ /a/;
my $x = $&;
{
"xyz" =~ /y/;
print "$x vs $&"; # -> a vs y
}
print "Конец строки: $'" # -> Конец строки: bc
Если кто-то знает как сохранить все эти переменные в хеш кратко - напишите в комментариях: буду признателен. Я придумал сделать это только так:
"abc" =~ /(a)/;
%x = map {$_ => $$_} qw/& 1 ' `/;
use DDP; p %x;
# ->
{
& "a",
` ""
' "bc",
1 "a"
}
Так же не следует забывать о том, что переменная $_ является не локальной, а суперглобальной:
$_ = "abc";
{
$_ = "xyz";
print; # -> xyz
}
print; # -> xyz
И тут придётся использовать local:
$_ = "abc";
{
local $_ = "xyz";
print; # -> xyz
}
print; # -> abc
У меня по этой теме - всё. А вам - удачного программирования.
Перезапись специальных переменных Perl регулярными выражениями
Когда-то я стал писать на perl из-за встроенных в язык регулярных выражений. Просто пишешь "abc" =~ / (?<x> a) /x; и вуаля: устанавливаются переменные <!--headTags-->amp;, $1, %+, %-, @-, @+, <!DOCTYPE html> <html<!--htmlAttrs-->> <head> , <!--headTags-->#039; . Однако...
habr.com