Dmitry E. Oboukhov -> debian-russian@lists.debian.org @ 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