Re: еще пара вопросиков по perl
Dmitry E. Oboukhov -> debian-russian@lists.debian.org @ Mon, 5 Dec 2005 12:40:29 +0300:
DEO> 1.
DEO> my $text="qwertyuiop";
DEO> ...
DEO> {
DEO> last unless ($text =~ /.*?(e.).*/);
DEO>
DEO> ...
DEO> }
DEO> так пока и не нашел корректно ли после такого last (if итп)
DEO> обращаться к $1 в расчете что там содержится совпадение (в данном случае
DEO> "er" ?
Если я правильно ошибаюсь, эти переменные автоматически локальные.
DEO> 2.
DEO> $text =~ /(e.)/;
DEO> $1 возвращает фактически ^.*e.
Не бывает.
% perl
my $text="qwertyuiop";
$text =~ /(e.)/;
print "$1\n"
^D
er
--
Artem Chuprina
RFC2822: <ran{}ran.pp.ru> Jabber: ran@jabber.ran.pp.ru
женщина, всерьёз алчущая завтрака, способна вполне прилично наточить мясорубку.
(с) Руна
Reply to: