Perl практика



              

Выбор другого обьекта для сопоставления.


Если строка, которую нужно сопоставить с образцом, не находится в переменной $_, то можно воспользоваться операцией =~. Пример:

$a = " hello world"; $a =~ /^he/; # истина $a =~ /(.)\1/; # истина (соответствует двум l) if($a =~ /(.)\1/) { #истина }

Слева от знака операции =~ может стоять любое выражение:

print "any last request? "; if( <STDIN&gt =~ /^[yY]/) { print "And just what might that request be? ";

<STDIN>; print "Sorry, I'm unable to do that.\n"; }




Содержание  Назад  Вперед