Re: еще пара вопросиков по perl
> DEO> {
> DEO> last unless ($text =~ /.*?(e.).*/);
> DEO>
> DEO> ...
> DEO> }
> DEO> так пока и не нашел корректно ли после такого last (if итп)
> DEO> обращаться к $1 в расчете что там содержится совпадение (в данном случае
> DEO> "er" ?
>
> Если ты учитываешь, что там может оказаться undef, то корректно.
undef оказаться не может, потому что отработает unless
а за ответ спасибо
>
> DEO> $text =~ /(e.)/;
> DEO> $1 возвращает фактически ^.*e.
> DEO> а если переписать так:
> DEO> $text =~ /.*(e.)/;
> DEO> то получается то что мне надо
>
> ===
> my $text = "qwertyui";
> $text =~ /(e.)/;
> print "[$1]\n";
> ===
> [er]
> ===
>
> А у тебя что получается?
да это я туплю
вопрос снят
PS: писал s/(e.).*/$1/ и он мне менял на ^.*(e.)
а это было в 4 часа ночи, ну и я подумал что я что-то недопонимаю
а просто он все правильно делал
/me записал себе вопросы задавать с тестами :)
Reply to: