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

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

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

Что будет напечатано в результате работы программы
my $a='a';my $re=qr/$a/i;$a='A';print 'OK' if 'A' =~ $re;

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

Варианты ответа
OK(Верный ответ)
ничего
Похожие вопросы
Что будет напечатано в результате работы программы
$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/;
Что будет напечатано в результате работы программы
my $a='[a-z]';my $re=qr'$a';print 'OK' if 'A' =~ /$re/;
Что будет напечатано в результате работы программы
my $a='a';my $re=qr/$a/;print 'OK' if 'a' =~ m'$re';
?:
Что будет напечатано в результате работы программы
my $a='[a-z]';my $re=qr/$a/;print 'OK' if 'A' =~ /$re/;
Что будет напечатано в результате работы программы
my $a='[a-z]';my $re=qr/$a/i;print 'OK' if 'A' =~ /$re/
Что будет напечатано в результате работы программы
my $a='a';my $re=qr/$a/;print 'OK' if '$a' =~ /$re/;
Что будет напечатано в результате работы программы
my $a='(?i)[a-z]';my $re=qr/$a/;print 'OK' if 'A' =~ /$re/;
Что будет напечатано в результате работы программы
'abc' =~ /(\w+)/;{ 'def' =~ /(\w+)/ }print $1;?
Что будет напечатано в результате работы программы
my $re=qr'(\w+)c';  print $1 if '(\w+)c' =~ /$re/;