[Moscow.pm] Еще про регекспы

[Andrew Shitov]

Да, втыкает :-)

my @lines = qw(abc abqwe);

my $q1;
for my $line ( @lines ) {
   my $q2;

   print "($line)\n";
   $line =~ m/ab(.*)(?{print "[$^N]\n"; $q2 = $^N; $q1 = $^N; })/;

   print "'$q1/$q2'\n";
}


(abc)
[c]
'c/c'
(abqwe)
[qwe]
'qwe/'


>  Столкнулся с нюансами работы в perl регекспов с переменными в локальной области видимости.

-- 
Andrew Shitov
______________________________________________________________________
andy на shitov.ru | http://shitov.ru