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

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

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

Что будет напечатано в результате работы программы
$_='abc123def';/\d+/;print substr $_, $-[0], $+[0] - $-[0];

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

Варианты ответа
def
abc
123(Верный ответ)
Похожие вопросы
Что будет напечатано в результате работы программы
$_='abc123def';/\d+/;print substr $_, 0, $-[0];
Что будет напечатано в результате работы программы
$_='abc123def';/\d+/;print substr $_, $+[0];
Что будет напечатано в результате работы программы
$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/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';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/;$a='A';print 'OK' if 'A' =~ /$re/i;