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

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

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

Что будет напечатано в результате работы программы
my $re=qr/(ab)c/;  print $1.$2 if 'abcabc' =~ /$re+$re+/;

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

Варианты ответа
ничего
ab
abab(Верный ответ)
Похожие вопросы
Что будет напечатано в результате работы программы
my $re=qr/(\w+)c/;  print $1 if 'abcabc' =~ m'$re+';
Что будет напечатано в результате работы программы
my $re=qr/(\w+)\w/;  print $1 if 'abcabc' =~ /$re+/;
Что будет напечатано в результате работы программы
my $re=qr/(\w+)c/;  print $1 if 'abcabc' =~ /$re+/;
Что будет напечатано в результате работы программы
my $re=qr'(\w+)c';  print $1 if 'abcabc' =~ /$re+/;
Что будет напечатано в результате работы программы
$a='-';for (0..1) { print split (/$a/o, 'a-b:c', 2);   print '!';   $a=':'; }
Что будет напечатано в результате работы программы
my $a='[a-z]';my $re=qr'$a';print 'OK' if 'A' =~ /$re/;
Что будет напечатано в результате работы программы
my $a='a';my $re=qr/\$a/;print 'OK' if '$a' =~ /$re/;
Что будет напечатано в результате работы программы
my $a='a';my $re=qr/$a/i;$a='A';print 'OK' if 'a' =~ $re;
Что будет напечатано в результате работы программы
my $a='a';my $re=qr/$a/i;$a='A';print 'OK' if 'A' =~ $re;
Что будет напечатано в результате работы программы
my $a='[a-z]';my $re=qr/$a/;print 'OK' if 'A' =~ /$re/;