Dmitry E. Oboukhov -> [email protected] @ 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: [EMAIL PROTECTED]
женщина, всерьёз алчущая завтрака, способна вполне прилично наточить мясорубку.
(с) Руна
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
