База ответов ИНТУИТ

Регулярные выражения Perl и их применение

<<- Назад к вопросам

Что будет напечатано в результате выполнения программы
my $a=$b=1;while ($a < 4 && $b =~ /(??{ "$a" })/o) { print $&;  $b++;  $a++; }

(Отметьте один правильный вариант ответа.)

Варианты ответа
123(Верный ответ)
1
111
Похожие вопросы
Что будет напечатано в результате выполнения программы
my $a='a';$_='ab';while ($a ne 'd' && /$a/o) { print $&;  $a++; }
Что будет напечатано в результате выполнения программы
my $a=$_=1;while ($a < 4 && /$a/o) { print $&;  $_++;  $a++; }
Что будет напечатано в результате выполнения программы
my ($a,$b)=('a','a');while ($a ne 'd' && $b =~ /(??{ "$a" })/o) { print $&;  $a++;  $b++; }
Что будет напечатано в результате выполнения программы
my $a=$_='a';while ($a ne 'd' && /$a/o) { print $&;  $_++;  $a++; }
Что будет напечатано в результате выполнения программы
my $b='ab';my $a='a';while ($a ne 'd' && $b =~ /(?{ ++$a })$a/o) { print $&; }
Что будет напечатано в результате выполнения программы
my $a='a';$b='ab';while ($a ne 'd' && $b =~ /(??{ "$a" })/o) { print $&;  $a++; }
Что будет напечатано в результате выполнения программы
use re 'eval';my $a=$b=1;while ($a < 4 && $b =~ /(?{ ++$a })$a/) { print $&;  $b++; }
Что будет напечатано в результате выполнения программы
use re 'eval';my $a=$b=1;while ($a < 4 && $b =~ /(?{ ++$a })$a/o) { print $&;  $b++; }
Что будет напечатано в результате работы программы
$a='-';for (0..1) { print split (/$a/o, 'a-b:c', 2);   print '!';   $a=':'; }
Что будет напечатано в результате работы программы
my $a='a';my $re=qr/\$a/;print 'OK' if '$a' =~ /$re/;