Ответы на ИНТУИТ

ИНТУИТ ответы на тесты

Решение тестов / курсов
База ответов ИНТУИТ.RU
Заказать решение курсов или тестов:
https://vk.com/id358194635
https://vk.com/public118569203

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

Заказать решение
Количество вопросов 258

Дан текст:
$_=<<EOD;<a href='javascript:void(window.open("http://intuit.ru/book.html","","width=480,height=320"))'>Book</a><br><a href="http://intuit.ru/index.html">index</a>EOD
Какие операторы правильно печатают обе ссылки?

перейти к ответу ->>

Что будет напечатано в результате работы оператора
print join '-', split //, 'abc', 2;

перейти к ответу ->>

Какое значение будет иметь переменная $1 в результате работы оператора 'abc123' =~ /\w+?(?!(\d+?))/?

перейти к ответу ->>

Какое значение получит переменная $a в результате работы программы
my $a=10;  'abc123' =~ /((\w)+(?{ $a=$+ }))/;

перейти к ответу ->>

Укажите относительный URI:

перейти к ответу ->>

Строка содержит полный путь и имя файла в Windows и ничего больше. Надо захватить в $1 имя файла. Какие операторы делают это правильно?

перейти к ответу ->>

Что будет напечатано в результате работы оператора
print join '-', split /^/m, "ab\nbc\nde";

перейти к ответу ->>

Что выйдет на печать в результате работы программы $_="123!abc!"; pos($_)=4; print /\A(\w+)!/?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы
'abc' =~ /(\w)/;'123' =~ //;

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='abc123'; my $a='\d+'; s/$a/!/?

перейти к ответу ->>

Какое значение примет переменная $n в результате работы программы
my $n;  $_='abc  ab  abcd';  /(?<!\w)(\w+)(?{$n=$+ if !defined($n) || $n lt $+})(?!)/?

перейти к ответу ->>

Какое значение получит переменная $2 в результате работы программы 'aBc1b23' =~ /a(\w)\w+(\1)/?

перейти к ответу ->>

Какой фрагмент строки будет захвачен в переменную $1 в операторе '!1a' =~ /(?>([!\d]+|\S+))$/?

перейти к ответу ->>

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

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы "abc\n" =~ /\w\Z(.)\z/?

перейти к ответу ->>

Нужно захватить в $1 и $2 первые два целых числа из текста, которые там имеются. Какие операторы делают это правильно?

перейти к ответу ->>

В тексте надо захватить в $1 фрагмент от первых до третьих кавычек. Какой оператор делает это правильно?

перейти к ответу ->>

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

перейти к ответу ->>

Строка в $_ состоит из нескольких натуральных чисел, разделенных запятыми, числа строго возрастают. Например: $_='11,12,30'. Какие регулярные выражения соответствуют каждой такой строке?

перейти к ответу ->>

Адрес abc@intuit.ru зашифрован скриптом:
$_=<<EOD;<script>a='\@';e='abc'+a+'intuit.ru';document.write('<a href=m'+'ailto:'+e+'><b>'+e+'</b></a>');</script>EOD
Какие операторы правильно печатают этот адрес?

перейти к ответу ->>

Надо у каждого слова в тексте удалить первый символ. Какие операторы делают это правильно?

перейти к ответу ->>

Что выйдет на печать в результате работы программы $_="123!abc!"; /\G\w+(?{ print pos $_ })!/g?

перейти к ответу ->>

Какое значение получит переменная $a в результате работы программы
my $a;  'abc' =~ /(\w+(\w))(?{ $a=$^N })/;

перейти к ответу ->>

В $_ дан текст:
$_=<<EOD;Первый адрес:<a href="mailto:abc\@def.com">abc\@def.com</a>,второй адрес - <a href=http://www.intuit.ru>intuit.ru</a>EOD
Какие операторы извлекают оба адреса из этого текста?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='abcABC'; my $re=qr'[a-z]+'i; s/(?-i)$re/!/?

перейти к ответу ->>

В переменной $_ находится HTML-страница. Надо проверить, есть ли у этой страницы часть head, и если есть, то есть ли внутри контейнера <head> </head> тег <base href="…">. Если он есть, то переменной $base надо присвоить этот URL из части head документа. Если в head нет тега base, то ничего делать не надо. Пример текста страницы:
<html><head><title>Title</title><base href="http://www.intuit.ru/download"></head>…
Какие операторы делают это корректно, учитывая разное оформление тегов веб-мастерами?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы $_="123!abc!"; /\w+/g; /(\w+)/g?

перейти к ответу ->>

Будут ли возвраты в процессе работы оператора 'abc123' =~ /(?>[a123]+|\w+)/?:

перейти к ответу ->>

Какие операторы удаляют все пробельные символы только в конце каждой строки текста?

перейти к ответу ->>

Какие операторы удаляют все пробельные символы только в конце текста?

перейти к ответу ->>

Какие регулярные выражения соответствуют всей строке '1a2b3c+'?

перейти к ответу ->>

Какие регулярные выражения захватят в $1 только подстроку '123 a-bc' в строке 'xyz 123 a-bc uvw'?

перейти к ответу ->>

В тексте надо захватить в $1 фрагмент от предпоследних до последних кавычек. Какие операторы делают это правильно?

перейти к ответу ->>

Строка содержит полный путь и имя файла в Windows и ничего больше. Надо захватить в $1 имя диска. Какие операторы делают это правильно?

перейти к ответу ->>

Какие регулярные выражения захватят в $1 подстроку 'ab?c', а в $2 - подстроку 'abc?' из строки '12?a ab?c abc?'?

перейти к ответу ->>

Какое телефонный номер будет захвачен в переменную $1 в следующем операторе поиска: '123-45-67 123-45 1234' =~ /(12[\d-]+|123[\d-]+|1[\d-]+)/ ?

перейти к ответу ->>

Какой фрагмент будет захвачен в строке 'abc 123' в переменную $1 регулярным выражением /(\w)+$/?

перейти к ответу ->>

Будут ли возвраты в процессе работы оператора 'abc123' =~ /(?>[a123]+|\w+)$/?

перейти к ответу ->>

Будет ли найдено совпадение в операторе 'abc' =~ /(?>\d+|\z)/?

перейти к ответу ->>

Какое значение будет иметь переменная $1 в результате работы оператора 'abc123' =~ /(?<=(\d))(?= \d+)/?

перейти к ответу ->>

Что выйдет на печать в результате работы оператора 'abc123' =~ /\w+(?=(\d+))(?{ print $1 })/?

перейти к ответу ->>

Какое значение получит переменная $2 в результате работы программы 'aBc1b23' =~ /a(\w)\w+(\1)/i?

перейти к ответу ->>

Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ / ^(\w+?)(?(1)^\d+) /m?

перейти к ответу ->>

Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /(.*)/?

перейти к ответу ->>

Нужно захватить из текста в переменную $1 IP-адрес примерно такого формата: 192.64.235.45. Какой оператор делает это правильно?

перейти к ответу ->>

Нужно из текста в $_ захватить в массив @a все слова, состоящие только из латинских букв и содержащие единственную букву h, которая не стоит с краю, независимо от регистра. В каких вариантах это делается верно?

перейти к ответу ->>

В данном тексте в каждом слове надо от повторяющихся подряд латинских символов оставить ровно один из них, остальное оставить без изменения. Какие операторы делают это правильно?

перейти к ответу ->>

В тексте надо заменить все прописные латинские буквы соответствующими строчными. Какие операторы делают это правильно?

перейти к ответу ->>

В тексте есть число, которое может быть целым, а может иметь точку (в этом случае обязательна дробная часть). Число может стоять в конце предложения, и поэтому за ним может быть точка. Предполагаем, что в тексте нет таких конструкций, как дата 2006.12.26, которую можно было бы спутать с дробным числом. Примеры чисел: +1, -2.5, -.010. Надо захватить в $1 первое такое число. Какие операторы делают это правильно?

перейти к ответу ->>

Какое значение получит массив @a в результате работы программы my @a="abc\n123" =~ /\w+/g?

перейти к ответу ->>

Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /(\w$)/m?

перейти к ответу ->>

Какое значение получит массив @a в результате работы оператора my @a = "abc!abc" =~ /\G\w+/g?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы "abc\n" =~ /\w\Z(.)\z/s?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='abc123'; s/(\d)/$1+100/e?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы "abc123" =~ /(123|abc)$/?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы "123abc" =~ /(\d)+(\d+)(?(?{ $1 < $2 })abc)/?

перейти к ответу ->>

Что выйдет на печать в результате работы программы $_="123!abc!"; print /\G\w+(?{ print pos $_ })!/g?

перейти к ответу ->>

Что выйдет на печать в результате работы программы $_="123!abc!"; pos($_)=4; print /\G(\w+)!/?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_="123!abc!"; s/(\w+)!/x/g?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы $_="123!abc!"; /\w+/gc; /(\w+)/g?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_="123"; s/(?!\d)/!/g?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы my @a = "123" =~ /\G(?=\d)(\d)/g?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='abc123'; my $a='[a-z]+'; s/$a/!/?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='aBc'; s/\U[a-z]/!/?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='aBc'; my $a='[a-z]+'; s/\L$a/!/g?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='[a-z]+abcABC'; my $a='[a-z]+'; s/\Q$a\E.*[A-Z]/!/?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='abcABC'; my $re=qr'[A-Z]+'; s/$re/!/gi?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='abcABCdefDEF'; my $re=qr'[A-Z]+'; s/${re}[A-Z]+/!/?

перейти к ответу ->>

Имеются следующие адреса электронной почты: a-b.c@def.com, a+b@def.co.uk, a$b@def.ijk.co.uk. Какие регулярные выражения соответствуют всем этим адресам?

перейти к ответу ->>

В $_ дан текст:
$_=<<EOD;Первый адрес:<a href='mailto:abc\@def.com'>abc\@def.com</a>,второй адрес - <a href='mailto:ab.c\@def.com'>ab.c\@def.com</a>третий адрес - <ahref  =  " mailto:   a+b\@de-f.co.uk  "   >a-b\@def.ijk.co.uk</a>EOD
Какие операторы извлекают все 3 адреса электронной почты из этого текста?

перейти к ответу ->>

В $_ дан текст:
$_=<<EOD;Первый адрес:<a href="mailto:abc\@def.com">abc\@def.com</a>,второй адрес - <a href=http://www.intuit.ru>intuit.ru</a>EOD
Какие операторы извлекают оба адреса из этого текста?

перейти к ответу ->>

Дан текст:
$_=<<EOD;<a href='javascript:void(window.open("http://intuit.ru/book.html","","width=480,height=320"))'>Book</a><br><a href="http://intuit.ru/index.html">index</a>EOD
Какие операторы правильно печатают обе ссылки?

перейти к ответу ->>

Какое значение будет иметь переменная $^R в результате работы программы
'abcABC' =~ /(?:([a-z])(?{ $^N })|([A-Z])(?{ $^N }))(?(?{ $1 })ABC)\Z/;

перейти к ответу ->>

Какое значение будет иметь переменная $a в результате работы программы
my $a=0;  'abcABC' =~ /(?:abc(?{ ++$a })|ABC(?{ ++$a }))/

перейти к ответу ->>

Что напечатается в результате работы программы
our $a;  'abcABC' =~ /(?{ local $a=0 })(?:abc(?{ ++$a })|ABC(?{ $a+=10 }))(?!$)(?{ print $a })/

перейти к ответу ->>

Какое значение примет переменная $n в результате работы программы
my $n;$_='abc  ab  abcd';/(?<!\w)((?>\w+))(?{$n=$+ if !defined($n) || $n gt $+})(?!)/?

перейти к ответу ->>

Какое значение получит переменная $^R в результате работы программы
'ab!abc!' =~ /(\w+)!(?(?{ $1 eq 'abc' })(\w+)|(?{ $1 ne 'ab' }))/

перейти к ответу ->>

Какое значение примет переменная $2 в результате работы программы
'ab!abc!a!' =~ /(\w+)!(\w+)!(?(?{ $1 lt $2 })(?!\w))/

перейти к ответу ->>

Что будет напечатано в результате работы программы
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/;

перейти к ответу ->>

Что будет напечатано в результате работы программы
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 $re=qr/(\w+)\w/;  print $1 if 'abcabc' =~ /$re+/;

перейти к ответу ->>

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

перейти к ответу ->>

Какое значение получит переменная $a в результате работы программы
my $a=10;  'abc123' =~ /((\w)+)(?{ $a=$^N})/;

перейти к ответу ->>

Что будет напечатано в результате работы программы
'abc123' =~ /((\w+)+)/;  print join ',', @-;

перейти к ответу ->>

Что будет напечатано в результате работы программы
'123' =~ /(\d+)/;{ '456' =~ /(\d+)/ }print $1;?

перейти к ответу ->>

Какое значение получит переменная $a в результате работы программы
my $a;  'abc' =~ /(\w)+(?{ $a=$+ })

перейти к ответу ->>

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

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы
$_='abc123def';/(\w+)/;/(?>\d+)(\d+)/;

перейти к ответу ->>

Какое значение получит переменная $1 после выполнения оператора
'abc123def' =~ /abc(??{ '(\d+)' })(def)/;

перейти к ответу ->>

Имеется примерно такой текст: $_='5XXXXX', где сначала идет число n и за ним n символов X. Какие регулярные выражения соответствуют всему этому тексту?

перейти к ответу ->>

Строка в $_ состоит из нескольких натуральных чисел, разделенных запятыми, числа строго возрастают. Например: $_='11,12,30'. Какие регулярные выражения соответствуют каждой такой строке?

перейти к ответу ->>

Какие операторы возвращают истину?

перейти к ответу ->>

Какие операторы возвращают истину??

перейти к ответу ->>

Какие операторы возвращают истину?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы
'abc' =~ /(?>(\w+))\w/;'123' =~ //;

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы
my $a='';my $re=qr/(\d)+/;'123' =~ $re;'456' =~ /$a/;

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы
my $re=qr/(\d)+/;'123' =~ $re;$re=qr/(\d+)/

перейти к ответу ->>

Что будет напечатано в результате выполнения программы
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++; }

перейти к ответу ->>

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

перейти к ответу ->>

Что будет напечатано в результате работы оператора
print join '-', split /^/, "ab\nbc\nde";

перейти к ответу ->>

Что будет напечатано в результате работы оператора
print join '-', split /:/, ':a:b:c:', 3;

перейти к ответу ->>

Что будет напечатано в результате работы оператора
print join '-', split //, 'abc';

перейти к ответу ->>

Что будет напечатано в результате работы программы
$a='-';for (0..1) { print split (/$a/o, 'a-b:c', 2);   print '!';   $a=':'; }

перейти к ответу ->>

Что будет напечатано в результате работы оператора
print join '-', split /(?:\d)/, 'a1b2c';

перейти к ответу ->>

Что будет напечатано в результате работы оператора
print join '-', grep /\d/, qw/a 11 b 22 c/;

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы
my $re=qr/(\d)+/;'123' =~ $re;'456' =~ //;

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='abc123'; my $a='[abc]'; s/$a/!/?

перейти к ответу ->>

Будет ли найдено совпадение в операторе 'abc' =~ /(?>a|\S+)\b/?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы "abc123" =~ /(123|abc$)/?

перейти к ответу ->>

В $_ дан текст:
$_=<<EOD;Первый адрес:<a href='mailto:abc\@def.com'>abc\@def.com</a>,второй адрес - <a href='mailto:ab.c\@def.com'>ab.c\@def.com</a>третий адрес - <ahref  =  " mailto:   a+b\@de-f.co.uk  "   >a-b\@def.ijk.co.uk</a>EOD
Какие операторы извлекают все 3 адреса электронной почты из этого текста?

перейти к ответу ->>

Что будет напечатано в результате работы программы
'abc123' =~ /((\w)+)/;  print join ',', @+;

перейти к ответу ->>

Что будет напечатано в результате работы оператора
print join '-', split 1+1, 'a1b2c';

перейти к ответу ->>

Какое слово будет захвачено в переменную $1 в следующем операторе поиска: 'abcde abcd abc' =~ /(ab\w+|abc\w+|a\w+)/ ?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы
my $re=qr/(?>(\d)+)\d/;'123' =~ $re;$re=qr/(\d+)/;'456' =~ //;

перейти к ответу ->>

Имеются следующие адреса электронной почты: ab.c@def.com, a+b@de-f.co.uk, a-b@def.ijk.co.uk. Какие регулярные выражения соответствуют всем этим адресам?

перейти к ответу ->>

Строка в $_ состоит из нескольких натуральных чисел, разделенных запятыми, числа строго возрастают. Например: $_='11,12,30'. Какие регулярные выражения соответствуют каждой такой строке?

перейти к ответу ->>

Какой фрагмент будет захвачен в строке 'abc! 23!' в переменную $1 регулярным выражением /(\w\w)+!/?

перейти к ответу ->>

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

перейти к ответу ->>

Что будет напечатано в результате работы оператора
print join '-', split /$/, "ab\nbc\nde";

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='abcABCdefDEF'; my $re=qr'[A-Z]+'; s/${re}defDEF/!/gi?

перейти к ответу ->>

Имеется примерно такой текст: $_='5XXXXX', где сначала идет число n и за ним n символов X. Какие регулярные выражения соответствуют всему этому тексту?

перейти к ответу ->>

Какой текст будет захвачен, соответственно, в переменную $1 и $2 следующим оператором: 'abcd' =~ /(\w*?)(\w+)/?

перейти к ответу ->>

В $_ дан текст:
$_=<<EOD;Первый адрес:<a href="mailto:abc\@def.com">abc\@def.com</a>,второй адрес - <a href=http://www.intuit.ru>intuit.ru</a>EOD
Какие операторы извлекают оба адреса из этого текста?

перейти к ответу ->>

Надо у каждого слова в тексте удалить последний символ. Какие операторы делают это правильно?

перейти к ответу ->>

Что будет напечатано в результате выполнения программы
my $a='a';$_='ab';while ($a ne 'd' && /$a/o) { print $&;  $a++; }

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы
$_='abc123def';/(\w+)/;/\d+(\d+)/;

перейти к ответу ->>

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

перейти к ответу ->>

В тексте надо захватить в $1 фрагмент (может и пустой) от первых до вторых кавычек. Какие операторы делают это правильно?

перейти к ответу ->>

Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /(\w$)/?

перейти к ответу ->>

Что будет напечатано в результате работы программы
$a='-';for (0..1) { print split /$a/, 'a-b:c' . "\n";   $a=':'; }

перейти к ответу ->>

В тексте надо все цифры увеличить на 1, а 9 заменить на 0. Какие операторы делают это правильно?

перейти к ответу ->>

Какое регулярное выражение соответствуют всей строке '-123.456', которая содержит число?

перейти к ответу ->>

Какие регулярные выражения захватят в $1 подстроку 'yahoo!', а в $2 - подстроку 'a_bc' из строки 'ab!c yahoo! a_bc'?

перейти к ответу ->>

Какое число будет захвачено в переменную $1 в следующем операторе поиска: '12345 1234 123' =~ /(12\d+|123\d+|1\d+)/ ?

перейти к ответу ->>

Какой фрагмент будет захвачен в строке 'abc? 23?' в переменную $1 регулярным выражением /(\w\w)+?/?

перейти к ответу ->>

Какой фрагмент строки будет захвачен в переменную $1 в операторе '!1a' =~ /((?>[!\d]+|\S+))$/?

перейти к ответу ->>

Какое значение будет иметь переменная $1 в результате работы оператора 'abc123' =~ /\w+?(?=(\d+?))/?

перейти к ответу ->>

Какое значение будет иметь переменная $1 в результате работы оператора 'abc123' =~ /(?<=(\w{2}?))(?!\d+?)/?

перейти к ответу ->>

Что выйдет на печать в результате работы оператора 'abc123' =~ /\w+?(?=(\d+?))(?{ print $1 })/?

перейти к ответу ->>

Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /(?s:(.*))/?

перейти к ответу ->>

Нужно из текста в $_ захватить в массив @a все слова, которые состоят только из латинских букв и не содержат букву h независимо от регистра. В каких вариантах это делается верно?

перейти к ответу ->>

В тексте надо заменить все строчные латинские буквы соответствующими прописными. Какие операторы делают это правильно?

перейти к ответу ->>

В тексте по ошибке автора встречаются удвоения слов, например: "I write write a letter". Это надо исправить, чтобы получилось "I write a letter". Какие операторы делают это правильно?

перейти к ответу ->>

Какое значение получит массив @a в результате работы программы my @a="abc\n123" =~ /\w/g?

перейти к ответу ->>

Какое значение получит массив @a в результате работы оператора my @a = "abc!abc" =~ /\w+/g?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='abc123'; s/(\d)/$1+100/?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы "123abc" =~ /(\d)?\d+(?(1)abc)/?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_="123!abc!"; s/(\w+)!/x/?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы $_="123!abc!"; /\w+/g; /(\w+)/?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_="123"; s//!/g?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='aBc'; s/\u[a-z]/!/?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='aBc'; my $a='[a-z]+'; s/\U$a/!/?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='[a-z]+abcABC'; my $a='[a-z]+'; s/\Q$a\E\w+/!/?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='abcABCdefDEF'; my $re=qr'[A-Z]+'; s/${re}\L[A-Z]+/!/?

перейти к ответу ->>

Имеются следующие адреса электронной почты: ab.c@def.com, a+b@de-f.co.uk, a-b@def.ijk.co.uk. Какие регулярные выражения соответствуют всем этим адресам?

перейти к ответу ->>

Адрес abc@intuit.ru зашифрован скриптом:
$_=<<EOD;<script>a='\@';e='abc'+a+'intuit.ru';document.write('<a href=m'+'ailto:'+e+'><b>'+e+'</b></a>');</script>EOD
Какие операторы правильно печатают этот адрес?

перейти к ответу ->>

В переменной $_ находится HTML-страница. Надо проверить, есть ли у этой страницы часть head, и если есть, то есть ли внутри контейнера <head> </head> тег <base href="…">. Если он есть, то переменной $base надо присвоить этот URL из части head документа. Если в head нет тега base, то ничего делать не надо. Пример текста страницы:
<html><head><title>Title</title><base href="http://www.intuit.ru/download"></head>…
Какие операторы делают это корректно, учитывая разное оформление тегов веб-мастерами?

перейти к ответу ->>

Какое значение будет иметь переменная $^R в результате работы программы
my $a=1;  'abcABC' =~ /abc(?(?{ $a })ABC)/;

перейти к ответу ->>

Какое значение будет иметь переменная $a в результате работы программы
my $a=0;  'abcABC' =~ /(?:abc(?{ ++$a })|ABC(?{ ++$a }))(?!\w)/;

перейти к ответу ->>

Что напечатается в результате работы программы
our $a;  'abcABC' =~ /(?{ local $a=0 })(?:abc(?{ ++$a })|ABC(?{ $a+=10 }))(?{ print $a })/

перейти к ответу ->>

Какое значение получит переменная $^R в результате работы программы
'ab!abc!' =~ /(\w+)!(?(?{ $1 eq 'abc' })(\w+)|(?{ $1 eq 'ab' }))/

перейти к ответу ->>

Какое значение примет переменная $2 в результате работы программы
'ab!abc!a!' =~ /(?:(\w+)!){2}(?(?{ $1 gt $2 })$)/?

перейти к ответу ->>

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

перейти к ответу ->>

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

перейти к ответу ->>

Что будет напечатано в результате работы программы
'abc' =~ /(\w+)/;{ 'def' =~ /(\w+)/ }print $1;?

перейти к ответу ->>

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

перейти к ответу ->>

Какие операторы возвращают истину?

перейти к ответу ->>

Какие операторы возвращают истину?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы
my $re=qr/(\d)+/;'123' =~ $re;'456' =~ //;

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы
my $a='';my $re=qr/(\d)+/;'123' =~ $re;$re=qr/(\d+)/;'456' =~ /$a/;

перейти к ответу ->>

Что будет напечатано в результате выполнения программы
my $a=$_='a';while ($a ne 'd' && /$a/o) { print $&;  $_++;  $a++; }

перейти к ответу ->>

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

перейти к ответу ->>

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

перейти к ответу ->>

Что будет напечатано в результате работы оператора
print join '-', split /:/, ':a:b:c:';

перейти к ответу ->>

Что будет напечатано в результате работы программы
$a='-';for (0..1) { print split /$a/o, 'a-b:c' . "!";   $a=':'; }

перейти к ответу ->>

Какой текст будет захвачен, соответственно, в переменную $1 и $2 следующим оператором: 'abcd' =~ /(\w+)(\w+)/?

перейти к ответу ->>

Что будет напечатано в результате работы программы
'abc123' =~ /((\w)+)/;  print join ',', @-;

перейти к ответу ->>

Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /^(\w+)(?=\Z)/m?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы
my $a='';'abc' =~ /(\w+)/;'123' =~ /$a/;

перейти к ответу ->>

Какое значение будет иметь переменная $1 в результате работы оператора 'abc123' =~ /\w+?((?!\d+?))/, если известно, что это не undefined?

перейти к ответу ->>

Какой текст будет захвачен, соответственно, в переменную $1 и $2 следующим оператором: 'abcd' =~ /(\w*)(\w+)/?

перейти к ответу ->>

В тексте есть телефонный номер. Примеры номеров: +7 495 9569214, (834-35)4-34-35, 3-45-56. Надо захватить в $1 этот номер. Какие операторы делают это правильно?

перейти к ответу ->>

Какое значение получит массив @a в результате работы оператора my @a = "abc!abc" =~ /\w+/?

перейти к ответу ->>

Что будет напечатано в результате работы оператора
print join '-', split /\d/, 'a1b2c';

перейти к ответу ->>

Что напечатается в результате работы программы
our $a;  'abcABC' =~ /(?{ local $a=0 })(?:abc(?{ ++$a })|ABC(?{ $a+=10 }))(?!\w)(?{ print $a })/

перейти к ответу ->>

Какие операторы удаляют все пробельные символы только в начале каждой строки текста?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы 'aBc1b23' =~ /a(\w)\w+(\1)/?

перейти к ответу ->>

Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /^(\w+?)(?(1)\s\d+)/?

перейти к ответу ->>

Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /(\S*)$/?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы "abc\n123\n" =~ /(\w)$(?#).\z/ms?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='abc123'; s/(\d)/$1+100/eg?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы "abc123" =~ /(123$|abc)/?

перейти к ответу ->>

Что выйдет на печать в результате работы программы $_="123!abc!"; my @a = /\G\w+(?{ print pos $_ })!/g?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы $_="123!abc!"; /\w+/; /(\w+)/g?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_="123"; s/(?=\d)/!/g?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы my @a = "123" =~ /\G(?=\d)(\d)/?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='aBc'; my $a='[a-z]+'; s/$a/!/?

перейти к ответу ->>

В переменной $_ находится HTML-страница. Надо проверить, есть ли у этой страницы часть head, и если есть, то есть ли внутри контейнера <head> </head> тег <base href="…">. Если он есть, то переменной $base надо присвоить этот URL из части head документа. Если в head нет тега base, то ничего делать не надо. Пример текста страницы:
<html><head><title>Title</title><base href="http://www.intuit.ru/download"></head>…
Какие операторы делают это корректно, учитывая разное оформление тегов веб-мастерами?

перейти к ответу ->>

Какое значение примет переменная $n в результате работы программы
my $n;$_='abc  ab  abcd';/(?<!\w)(\w+)(?{$n=$+ if !defined($n) || $n gt $+})(?!)/?

перейти к ответу ->>

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

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы
{ 'abc' =~ /(\w+)/ }{ '123' =~ /(\d+)/ }

перейти к ответу ->>

Какое значение получит переменная $a в результате работы программы
my $a;  'abc' =~ /(\w+(\w))(?{ $a=$+ })/;

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы
$_='abc123def';/(\w+)/;/(?>\d+)(\d*)/;

перейти к ответу ->>

Какое значение получит переменная $1 после выполнения оператора
'abc123def' =~ /(abc(??{ '(\d+)' })def)/;

перейти к ответу ->>

Что будет напечатано в результате работы оператора
print join '-', split /:/, 'a:b:c:';

перейти к ответу ->>

Что будет напечатано в результате работы оператора
print join '-', split /\s+/, 'abc';

перейти к ответу ->>

Какое значение будет иметь переменная $a в результате работы программы
my $a=0;  'abcABC' =~ /(?:abc(?{ ++$a })|ABC(?{ $a+=10 }))(?!$)/;

перейти к ответу ->>

Что выйдет на печать в результате работы оператора 'abc123' =~ /\w*?(?=(\d+))(?{ print $1 })/?

перейти к ответу ->>

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

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='abcABCdefDEF'; my $re=qr'[A-Z]+'i; s/${re}defDEF/!/?

перейти к ответу ->>

Нужно из текста в $_ захватить в массив @a все слова, которые состоят только из латинских букв и содержат букву h независимо от регистра. В каких вариантах это делается верно?

перейти к ответу ->>

Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /(?m)(\S*)$/?

перейти к ответу ->>

Что выйдет на печать в результате работы программы $_="123!abc!"; pos($_)=4; print /\G(\w+)!/g?

перейти к ответу ->>

Что будет напечатано в результате работы оператора
print join '-', grep /\d/, qw/a 1 b 2 c/;

перейти к ответу ->>

Какие регулярные выражения захватят в $1 подстроку '-123abc', а в $2 - подстроку '1+2abc' из строки '1-2ab -123abc a1 1+2abc'?

перейти к ответу ->>

Будут ли возвраты в процессе работы оператора 'abc123' =~ /(?>[a123]+$|\w+$)/?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы "123" =~ /\G(?=\d)(\d)/g?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='aBc'; s/\L[a-z]/!/gi?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='[a-z]+abcABC'; my $a='[a-z]+'; s/\Q$a\E\w+?/!/?

перейти к ответу ->>

Дан текст:
$_=<<EOD;<a href='javascript:void(window.open("http://intuit.ru/book.html","","width=480,height=320"))'>Book</a><br><a href="http://intuit.ru/index.html">index</a>EOD
Какие операторы правильно печатают обе ссылки?

перейти к ответу ->>

Какое значение получит переменная $^R в результате работы программы
' 'ab!abc!' =~ /(\w+)!(?(?{ $1 ne 'abc' })(\w+)|(?{ $1 eq 'ab' }))/

перейти к ответу ->>

Какое значение получит переменная $1 после выполнения оператора
'abc123def' =~ /(abc)(??{ '(\d+)' })/;

перейти к ответу ->>

Какие операторы возвращают истину?

перейти к ответу ->>

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

перейти к ответу ->>

Строка содержит полный путь и имя файла в Windows и ничего больше. Надо захватить в $1 весь путь без имени диска и имени файла. Какие операторы делают это правильно?

перейти к ответу ->>

Какое значение будет иметь переменная $1 в результате работы оператора 'abc123' =~ /(?<=(\w{2}?))(?=\d+?)/?

перейти к ответу ->>

Какие регулярные выражения соответствуют всей строке 'abc123'?

перейти к ответу ->>

Адрес abc@intuit.ru зашифрован скриптом:
$_=<<EOD;<script>a='\@';e='abc'+a+'intuit.ru';document.write('<a href=m'+'ailto:'+e+'><b>'+e+'</b></a>');</script>EOD
Какие операторы правильно печатают этот адрес?

перейти к ответу ->>

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

перейти к ответу ->>

Какие регулярные выражения захватят в $1 только подстроку 'ab+c 1-23' в строке 'xyz ab+c 1-23 uvw'?

перейти к ответу ->>

Будет ли найдено совпадение в операторе 'abc' =~ /(?>|\S+)/?

перейти к ответу ->>

Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /^(\w+)(?=\Z)/?

перейти к ответу ->>

Что выйдет на печать в результате работы программы $_="123!abc!"; pos($_)=4; print /\A(\w+)!/g?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_="123!abc!"; pos($_)=4; s/\G(\w+)!/x/g?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_='abcABC'; my $re=qr'[a-z]+'; s/$re/!/i?

перейти к ответу ->>

Какое значение примет переменная $2 в результате работы программы
'ab!abc!a!' =~ /(\w+)!(\w+)!(?(?{ $1 gt $2 })$)/

перейти к ответу ->>

Какое значение получит переменная $a в результате работы программы
my $a=10;  'abc123' =~ /((\w)+)(?{ $a=$+ })/;

перейти к ответу ->>

Какие операторы возвращают истину?

перейти к ответу ->>

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

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_="123!abc!"; pos($_)=4; s/\G(\w+)!/x/?

перейти к ответу ->>

Какие операторы удаляют все пробельные символы только в начале текста?

перейти к ответу ->>

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

перейти к ответу ->>

В $_ дан текст:
$_=<<EOD;Первый адрес:<a href='mailto:abc\@def.com'>abc\@def.com</a>,второй адрес - <a href='mailto:ab.c\@def.com'>ab.c\@def.com</a>третий адрес - <ahref  =  " mailto:   a+b\@de-f.co.uk  "   >a-b\@def.ijk.co.uk</a>EOD
Какие операторы извлекают все 3 адреса электронной почты из этого текста?

перейти к ответу ->>

Какие регулярные выражения захватят в $1 только подстроку 'abc -123' в строке 'xyz abc -123 uvw'?

перейти к ответу ->>

Нужно из текста $_='2007/3/15' захватить год, месяц и день, соответственно, в $year, $month и $day. В каких вариантах это делается верно?

перейти к ответу ->>

Какое значение получит переменная $1 в результате работы программы "123abc" =~ /(\d)+\d+(?(1)abc)/?

перейти к ответу ->>

Имеется примерно такой текст: $_='XXXXX5', где сначала идут n символов X, а за ними число n. Какие регулярные выражения соответствуют всему этому тексту?

перейти к ответу ->>

Какой фрагмент строки будет захвачен в переменную $1 в операторе '!1a' =~ /((?>[!\d]+|\S+))/?

перейти к ответу ->>

Какое значение получит переменная $_ в результате работы программы $_="123"; s/(?<=\d)/!/g?

перейти к ответу ->>

Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /^(\w+?)(?(1)\s\d+)/m?

перейти к ответу ->>

Какое значение будет иметь переменная $^R в результате работы программы
'abcABC' =~ /(?:([a-z])(?{ $+ })|([A-Z])(?{ $+ }))\Z/?

перейти к ответу ->>

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

перейти к ответу ->>

Что будет напечатано в результате работы оператора
print join '-', grep /^\d{2,}/, qw/a 1 b 22 c/;

перейти к ответу ->>