Re: еще пара вопросиков по perl
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 <arkoort@gmail.com> ICQ 3887592
Reply to: