Регулярные выражения 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/;