Dmitry E. Oboukhov -> [email protected] @ Mon, 5 Dec 2005
12:40:29 +0300:
DEO> {
DEO> last unless ($text =~ /.*?(e.).*/);
DEO>
DEO> ...
DEO> }
DEO> так пока и не нашел корректно ли после такого last (if итп)
DEO> обращаться к $1 в расчете что там содержится совпадение (в данном случае
DEO> "er" ?
Если ты учитываешь, что там может оказаться undef, то корректно.
DEO> $text =~ /(e.)/;
DEO> $1 возвращает фактически ^.*e.
DEO> а если переписать так:
DEO> $text =~ /.*(e.)/;
DEO> то получается то что мне надо
===
my $text = "qwertyui";
$text =~ /(e.)/;
print "[$1]\n";
===
[er]
===
А у тебя что получается?
--
Alex Kicelew <[EMAIL PROTECTED]> ICQ 3887592
