Регулярные выражения Perl и их применение - ответы на тесты Интуит

• # Какие операторы удаляют все пробельные символы только в начале текста?
• # Какие операторы удаляют все пробельные символы только в конце текста?
• # Какие операторы удаляют все пробельные символы только в начале каждой строки текста?
• # Какие операторы удаляют все пробельные символы только в конце каждой строки текста?
• # Какое регулярное выражение соответствуют всей строке '-123.456', которая содержит число?
• # Какие регулярные выражения соответствуют всей строке 'abc123'?
• # Какие регулярные выражения соответствуют всей строке '1a2b3c+'?
• # Какие регулярные выражения захватят в $1 только подстроку 'abc -123' в строке 'xyz abc -123 uvw'?
• # Какие регулярные выражения захватят в $1 только подстроку '123 a-bc' в строке 'xyz 123 a-bc uvw'?
• # Какие регулярные выражения захватят в $1 только подстроку 'ab+c 1-23' в строке 'xyz ab+c 1-23 uvw'?
• # В тексте надо захватить в $1 фрагмент (может и пустой) от первых до вторых кавычек. Какие операторы делают это правильно?
• # В тексте надо захватить в $1 фрагмент от предпоследних до последних кавычек. Какие операторы делают это правильно?
• # В тексте надо захватить в $1 фрагмент от первых до третьих кавычек. Какой оператор делает это правильно?
• # Строка содержит полный путь и имя файла в Windows и ничего больше. Надо захватить в $1 имя файла. Какие операторы делают это правильно?
• # Строка содержит полный путь и имя файла в Windows и ничего больше. Надо захватить в $1 имя диска. Какие операторы делают это правильно?
• # Строка содержит полный путь и имя файла в Windows и ничего больше. Надо захватить в $1 весь путь без имени диска и имени файла. Какие операторы делают это правильно?
• # Какие регулярные выражения захватят в $1 подстроку '-123abc', а в $2 - подстроку '1+2abc' из строки '1-2ab -123abc a1 1+2abc'?
• # Какие регулярные выражения захватят в $1 подстроку 'yahoo!', а в $2 - подстроку 'a_bc' из строки 'ab!c yahoo! a_bc'?
• # Какие регулярные выражения захватят в $1 подстроку 'ab?c', а в $2 - подстроку 'abc?' из строки '12?a ab?c abc?'?
• # Что будет напечатано в результате работы программы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/; $a='A'; print 'OK' if 'A' =~ /$re/i;
• # Что будет напечатано в результате работы программыmy $a='(?i)[a-z]'; 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-z]'; my $re=qr/$a/i; 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' =~ m'$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/; print 'OK' if '$a' =~ /\$re/;
• # Что будет напечатано в результате работы программыmy $re=qr/(ab)c/; print $1.$2 if 'abcabc' =~ /$re+$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+/;
• # Что будет напечатано в результате работы программыmy $re=qr/(\w+)c/; print $1 if 'abcabc' =~ m'$re+';
• # Что будет напечатано в результате работы программыmy $re=qr'(\w+)c'; print $1 if '(\w+)c' =~ /$re/;
• # Какое значение получит переменная $a в результате работы программыmy $a=10; 'abc123' =~ /((\w)+)(?{ $a=$+ })/;
• # Какое значение получит переменная $a в результате работы программыmy $a=10; 'abc123' =~ /((\w)+)(?{ $a=$^N})/;
• # Какое значение получит переменная $a в результате работы программыmy $a=10; 'abc123' =~ /((\w)+(?{ $a=$+ }))/;
• # Что будет напечатано в результате работы программы'abc123' =~ /((\w)+)/; print join ',', @-;
• # Что будет напечатано в результате работы программы'abc123' =~ /((\w)+)/; print join ',', @+;
• # Что будет напечатано в результате работы программы'abc123' =~ /((\w+)+)/; print join ',', @-;
• # Что будет напечатано в результате работы программы'abc' =~ /(\w+)/; { 'def' =~ /(\w+)/ } print $1;?
• # Что будет напечатано в результате работы программы'123' =~ /(\d+)/; { '456' =~ /(\d+)/ } print $1;?
• # Какое значение получит переменная $1 в результате работы программы{ 'abc' =~ /(\w+)/ } { '123' =~ /(\d+)/ }
• # Какое значение получит переменная $a в результате работы программыmy $a; 'abc' =~ /(\w)+(?{ $a=$+ })
• # Какое значение получит переменная $a в результате работы программыmy $a; 'abc' =~ /(\w+(\w))(?{ $a=$^N })/;
• # Какое значение получит переменная $a в результате работы программыmy $a; 'abc' =~ /(\w+(\w))(?{ $a=$+ })/;
• # Что будет напечатано в результате работы программы$_='abc123def'; /\d+/; print substr $_, 0, $-[0];
• # Что будет напечатано в результате работы программы$_='abc123def'; /\d+/; print substr $_, $-[0], $+[0] - $-[0];
• # Что будет напечатано в результате работы программы$_='abc123def'; /\d+/; print substr $_, $+[0];
• # Какое значение получит переменная $1 в результате работы программы$_='abc123def'; /(\w+)/; /\d+(\d+)/;
• # Какое значение получит переменная $1 в результате работы программы$_='abc123def'; /(\w+)/; /(?>\d+)(\d+)/;
• # Какое значение получит переменная $1 в результате работы программы$_='abc123def'; /(\w+)/; /(?>\d+)(\d*)/;
• # Какое значение получит переменная $1 после выполнения оператора'abc123def' =~ /(abc)(??{ '(\d+)' })/;
• # Какое значение получит переменная $1 после выполнения оператора'abc123def' =~ /abc(??{ '(\d+)' })(def)/;
• # Какое значение получит переменная $1 после выполнения оператора'abc123def' =~ /(abc(??{ '(\d+)' })def)/;
• # Имеется примерно такой текст: $_='5XXXXX', где сначала идет число n и за ним n символов X. Какие регулярные выражения соответствуют всему этому тексту?
• # Имеется примерно такой текст: $_='XXXXX5', где сначала идут n символов X, а за ними число n. Какие регулярные выражения соответствуют всему этому тексту?
• # Имеется примерно такой текст: $_='5XXXXX', где сначала идет число n и за ним n символов X. Какие регулярные выражения соответствуют всему этому тексту?
• # Строка в $_ состоит из нескольких натуральных чисел, разделенных запятыми, числа строго возрастают. Например: $_='11,12,30'. Какие регулярные выражения соответствуют каждой такой строке?
• # Строка в $_ состоит из нескольких натуральных чисел, разделенных запятыми, числа строго возрастают. Например: $_='11,12,30'. Какие регулярные выражения соответствуют каждой такой строке?
• # Строка в $_ состоит из нескольких натуральных чисел, разделенных запятыми, числа строго возрастают. Например: $_='11,12,30'. Какие регулярные выражения соответствуют каждой такой строке?
• # Какие операторы возвращают истину?
• # Какие операторы возвращают истину?
• # Какие операторы возвращают истину?
• # Какие операторы возвращают истину?
• # Какие операторы возвращают истину??
• # Какие операторы возвращают истину?
• # Какие операторы возвращают истину?
• # Укажите относительный URI:
• # Какое значение получит переменная $1 в результате работы программы'abc' =~ /(\w)/; '123' =~ //;
• # Какое значение получит переменная $1 в результате работы программы'abc' =~ /(?>(\w+))\w/; '123' =~ //;
• # Какое значение получит переменная $1 в результате работы программыmy $a=''; 'abc' =~ /(\w+)/; '123' =~ /$a/;
• # Какое значение получит переменная $1 в результате работы программыmy $re=qr/(\d)+/; '123' =~ $re; '456' =~ //;
• # Какое значение получит переменная $1 в результате работы программыmy $re=qr/(\d)+/; '123' =~ $re; '456' =~ //;
• # Какое значение получит переменная $1 в результате работы программыmy $a=''; my $re=qr/(\d)+/; '123' =~ $re; '456' =~ /$a/;
• # Какое значение получит переменная $1 в результате работы программыmy $re=qr/(\d)+/; '123' =~ $re; $re=qr/(\d+)/
• # Какое значение получит переменная $1 в результате работы программыmy $a=''; my $re=qr/(\d)+/; '123' =~ $re; $re=qr/(\d+)/; '456' =~ /$a/;
• # Какое значение получит переменная $1 в результате работы программыmy $re=qr/(?>(\d)+)\d/; '123' =~ $re; $re=qr/(\d+)/; '456' =~ //;
• # Что будет напечатано в результате выполнения программыmy $a='a'; $_='ab'; while ($a ne 'd' && /$a/o) { print $&; $a++; }
• # Что будет напечатано в результате выполнения программыmy $a=$_='a'; while ($a ne 'd' && /$a/o) { print $&; $_++; $a++; }
• # Что будет напечатано в результате выполнения программы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++; }
• # Что будет напечатано в результате выполнения программыmy $a='a'; $b='ab'; while ($a ne 'd' && $b =~ /(??{ "$a" })/o) { print $&; $a++; }
• # Что будет напечатано в результате выполнения программыmy $a=$b=1; while ($a < 4 && $b =~ /(??{ "$a" })/o) { print $&; $b++; $a++; }
• # Что будет напечатано в результате выполнения программыuse re 'eval'; my $a=$b=1; while ($a < 4 && $b =~ /(?{ ++$a })$a/) { print $&; $b++; }
• # Что будет напечатано в результате выполнения программыuse re 'eval'; my $a=$b=1; while ($a < 4 && $b =~ /(?{ ++$a })$a/o) { print $&; $b++; }
• # Что будет напечатано в результате выполнения программыmy $b='ab'; my $a='a'; while ($a ne 'd' && $b =~ /(?{ ++$a })$a/o) { print $&; }
• # Что будет напечатано в результате работы оператораprint join '-', split /^/, "ab\nbc\nde";
• # Что будет напечатано в результате работы оператораprint join '-', split /^/m, "ab\nbc\nde";
• # Что будет напечатано в результате работы оператораprint join '-', split /$/, "ab\nbc\nde";
• # Что будет напечатано в результате работы оператораprint join '-', split /:/, 'a:b:c:';
• # Что будет напечатано в результате работы оператораprint join '-', split /:/, ':a:b:c:';
• # Что будет напечатано в результате работы оператораprint join '-', split /:/, ':a:b:c:', 3;
• # Что будет напечатано в результате работы оператораprint join '-', split //, 'abc';
• # Что будет напечатано в результате работы оператораprint join '-', split //, 'abc', 2;
• # Что будет напечатано в результате работы оператораprint join '-', split /\s+/, 'abc';
• # Что будет напечатано в результате работы программы$a='-'; for (0..1) { print split /$a/, 'a-b:c' . "\n"; $a=':'; }
• # Что будет напечатано в результате работы программы$a='-'; for (0..1) { print split /$a/o, 'a-b:c' . "!"; $a=':'; }
• # Что будет напечатано в результате работы программы$a='-'; for (0..1) { print split (/$a/o, 'a-b:c', 2); print '!'; $a=':'; }
• # Что будет напечатано в результате работы оператораprint join '-', split 1+1, 'a1b2c';
• # Что будет напечатано в результате работы оператораprint join '-', split /(?:\d)/, 'a1b2c';
• # Что будет напечатано в результате работы оператораprint join '-', split /\d/, 'a1b2c';
• # Что будет напечатано в результате работы оператораprint join '-', grep /\d/, qw/a 1 b 2 c/;
• # Что будет напечатано в результате работы оператораprint join '-', grep /\d/, qw/a 11 b 22 c/;
• # Что будет напечатано в результате работы оператораprint join '-', grep /^\d{2,}/, qw/a 1 b 22 c/;
• # Какое число будет захвачено в переменную $1 в следующем операторе поиска: '12345 1234 123' =~ /(12\d+|123\d+|1\d+)/ ?
• # Какое слово будет захвачено в переменную $1 в следующем операторе поиска: 'abcde abcd abc' =~ /(ab\w+|abc\w+|a\w+)/ ?
• # Какое телефонный номер будет захвачен в переменную $1 в следующем операторе поиска: '123-45-67 123-45 1234' =~ /(12[\d-]+|123[\d-]+|1[\d-]+)/ ?
• # Какой фрагмент будет захвачен в строке 'abc 123' в переменную $1 регулярным выражением /(\w)+$/?
• # Какой фрагмент будет захвачен в строке 'abc! 23!' в переменную $1 регулярным выражением /(\w\w)+!/?
• # Какой фрагмент будет захвачен в строке 'abc? 23?' в переменную $1 регулярным выражением /(\w\w)+?/?
• # Будут ли возвраты в процессе работы оператора 'abc123' =~ /(?>[a123]+$|\w+$)/?
• # Будут ли возвраты в процессе работы оператора 'abc123' =~ /(?>[a123]+|\w+)$/?
• # Будут ли возвраты в процессе работы оператора 'abc123' =~ /(?>[a123]+|\w+)/?:
• # Какой фрагмент строки будет захвачен в переменную $1 в операторе '!1a' =~ /(?>([!\d]+|\S+))$/?
• # Какой фрагмент строки будет захвачен в переменную $1 в операторе '!1a' =~ /((?>[!\d]+|\S+))$/?
• # Какой фрагмент строки будет захвачен в переменную $1 в операторе '!1a' =~ /((?>[!\d]+|\S+))/?
• # Будет ли найдено совпадение в операторе 'abc' =~ /(?>|\S+)/?
• # Будет ли найдено совпадение в операторе 'abc' =~ /(?>a|\S+)\b/?
• # Будет ли найдено совпадение в операторе 'abc' =~ /(?>\d+|\z)/?
• # Какой текст будет захвачен, соответственно, в переменную $1 и $2 следующим оператором: 'abcd' =~ /(\w+)(\w+)/?
• # Какой текст будет захвачен, соответственно, в переменную $1 и $2 следующим оператором: 'abcd' =~ /(\w*)(\w+)/?
• # Какой текст будет захвачен, соответственно, в переменную $1 и $2 следующим оператором: 'abcd' =~ /(\w*?)(\w+)/?
• # Какое значение будет иметь переменная $1 в результате работы оператора 'abc123' =~ /\w+?(?=(\d+?))/?
• # Какое значение будет иметь переменная $1 в результате работы оператора 'abc123' =~ /\w+?(?!(\d+?))/?
• # Какое значение будет иметь переменная $1 в результате работы оператора 'abc123' =~ /\w+?((?!\d+?))/, если известно, что это не undefined?
• # Какое значение будет иметь переменная $1 в результате работы оператора 'abc123' =~ /(?<=(\w{2}?))(?!\d+?)/?
• # Какое значение будет иметь переменная $1 в результате работы оператора 'abc123' =~ /(?<=(\w{2}?))(?=\d+?)/?
• # Какое значение будет иметь переменная $1 в результате работы оператора 'abc123' =~ /(?<=(\d))(?= \d+)/?
• # Что выйдет на печать в результате работы оператора 'abc123' =~ /\w+?(?=(\d+?))(?{ print $1 })/?
• # Что выйдет на печать в результате работы оператора 'abc123' =~ /\w+(?=(\d+))(?{ print $1 })/?
• # Что выйдет на печать в результате работы оператора 'abc123' =~ /\w*?(?=(\d+))(?{ print $1 })/?
• # Какое значение получит переменная $2 в результате работы программы 'aBc1b23' =~ /a(\w)\w+(\1)/i?
• # Какое значение получит переменная $2 в результате работы программы 'aBc1b23' =~ /a(\w)\w+(\1)/?
• # Какое значение получит переменная $1 в результате работы программы 'aBc1b23' =~ /a(\w)\w+(\1)/?
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /^(\w+?)(?(1)\s\d+)/?
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /^(\w+?)(?(1)\s\d+)/m?
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ / ^(\w+?)(?(1)^\d+) /m?
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /(.*)/?
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /(?s:(.*))/?
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /(\S*)$/?
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /(?m)(\S*)$/?
• # Нужно захватить из текста в переменную $1 IP-адрес примерно такого формата: 192.64.235.45. Какой оператор делает это правильно?
• # Нужно захватить в $1 и $2 первые два целых числа из текста, которые там имеются. Какие операторы делают это правильно?
• # Нужно из текста $_='2007/3/15' захватить год, месяц и день, соответственно, в $year, $month и $day. В каких вариантах это делается верно?
• # Нужно из текста в $_ захватить в массив @a все слова, которые состоят только из латинских букв и не содержат букву h независимо от регистра. В каких вариантах это делается верно?
• # Нужно из текста в $_ захватить в массив @a все слова, которые состоят только из латинских букв и содержат букву h независимо от регистра. В каких вариантах это делается верно?
• # Нужно из текста в $_ захватить в массив @a все слова, состоящие только из латинских букв и содержащие единственную букву h, которая не стоит с краю, независимо от регистра. В каких вариантах это делается верно?
• # В данном тексте в каждом слове надо от повторяющихся подряд латинских символов оставить ровно один из них, остальное оставить без изменения. Какие операторы делают это правильно?
• # Надо у каждого слова в тексте удалить последний символ. Какие операторы делают это правильно?
• # Надо у каждого слова в тексте удалить первый символ. Какие операторы делают это правильно?
• # В тексте надо заменить все прописные латинские буквы соответствующими строчными. Какие операторы делают это правильно?
• # В тексте надо заменить все строчные латинские буквы соответствующими прописными. Какие операторы делают это правильно?
• # В тексте надо все цифры увеличить на 1, а 9 заменить на 0. Какие операторы делают это правильно?
• # В тексте есть число, которое может быть целым, а может иметь точку (в этом случае обязательна дробная часть). Число может стоять в конце предложения, и поэтому за ним может быть точка. Предполагаем, что в тексте нет таких конструкций, как дата 2006.12.26, которую можно было бы спутать с дробным числом. Примеры чисел: +1, -2.5, -.010. Надо захватить в $1 первое такое число. Какие операторы делают это правильно?
• # В тексте есть телефонный номер. Примеры номеров: +7 495 9569214, (834-35)4-34-35, 3-45-56. Надо захватить в $1 этот номер. Какие операторы делают это правильно?
• # В тексте по ошибке автора встречаются удвоения слов, например: "I write write a letter". Это надо исправить, чтобы получилось "I write a letter". Какие операторы делают это правильно?
• # Какое значение получит массив @a в результате работы программы my @a="abc\n123" =~ /\w+/g?
• # Какое значение получит массив @a в результате работы программы my @a="abc\n123" =~ /\w/g?
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /(\w$)/?
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /(\w$)/m?
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /^(\w+)(?=\Z)/?
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /^(\w+)(?=\Z)/m?
• # Какое значение получит массив @a в результате работы оператора my @a = "abc!abc" =~ /\w+/?
• # Какое значение получит массив @a в результате работы оператора my @a = "abc!abc" =~ /\w+/g?
• # Какое значение получит массив @a в результате работы оператора my @a = "abc!abc" =~ /\G\w+/g?
• # Какое значение получит переменная $1 в результате работы программы "abc\n" =~ /\w\Z(.)\z/?
• # Какое значение получит переменная $1 в результате работы программы "abc\n" =~ /\w\Z(.)\z/s?
• # Какое значение получит переменная $1 в результате работы программы "abc\n123\n" =~ /(\w)$(?#).\z/ms?
• # Какое значение получит переменная $_ в результате работы программы $_='abc123'; s/(\d)/$1+100/e?
• # Какое значение получит переменная $_ в результате работы программы $_='abc123'; s/(\d)/$1+100/eg?
• # Какое значение получит переменная $_ в результате работы программы $_='abc123'; s/(\d)/$1+100/?
• # Какое значение получит переменная $1 в результате работы программы "abc123" =~ /(123|abc)$/?
• # Какое значение получит переменная $1 в результате работы программы "abc123" =~ /(123|abc$)/?
• # Какое значение получит переменная $1 в результате работы программы "abc123" =~ /(123$|abc)/?
• # Какое значение получит переменная $1 в результате работы программы "123abc" =~ /(\d)?\d+(?(1)abc)/?
• # Какое значение получит переменная $1 в результате работы программы "123abc" =~ /(\d)+\d+(?(1)abc)/?
• # Какое значение получит переменная $1 в результате работы программы "123abc" =~ /(\d)+(\d+)(?(?{ $1 < $2 })abc)/?
• # Что выйдет на печать в результате работы программы $_="123!abc!"; /\G\w+(?{ print pos $_ })!/g?
• # Что выйдет на печать в результате работы программы $_="123!abc!"; print /\G\w+(?{ print pos $_ })!/g?
• # Что выйдет на печать в результате работы программы $_="123!abc!"; my @a = /\G\w+(?{ print pos $_ })!/g?
• # Что выйдет на печать в результате работы программы $_="123!abc!"; pos($_)=4; print /\G(\w+)!/g?
• # Что выйдет на печать в результате работы программы $_="123!abc!"; pos($_)=4; print /\G(\w+)!/?
• # Что выйдет на печать в результате работы программы $_="123!abc!"; pos($_)=4; print /\A(\w+)!/?
• # Что выйдет на печать в результате работы программы $_="123!abc!"; pos($_)=4; print /\A(\w+)!/g?
• # Какое значение получит переменная $_ в результате работы программы $_="123!abc!"; pos($_)=4; s/\G(\w+)!/x/?
• # Какое значение получит переменная $_ в результате работы программы $_="123!abc!"; pos($_)=4; s/\G(\w+)!/x/g?
• # Какое значение получит переменная $_ в результате работы программы $_="123!abc!"; s/(\w+)!/x/?
• # Какое значение получит переменная $_ в результате работы программы $_="123!abc!"; s/(\w+)!/x/g?
• # Какое значение получит переменная $1 в результате работы программы $_="123!abc!"; /\w+/g; /(\w+)/?
• # Какое значение получит переменная $1 в результате работы программы $_="123!abc!"; /\w+/g; /(\w+)/g?
• # Какое значение получит переменная $1 в результате работы программы $_="123!abc!"; /\w+/; /(\w+)/g?
• # Какое значение получит переменная $1 в результате работы программы $_="123!abc!"; /\w+/gc; /(\w+)/g?
• # Какое значение получит переменная $_ в результате работы программы $_="123"; s//!/g?
• # Какое значение получит переменная $_ в результате работы программы $_="123"; s/(?=\d)/!/g?
• # Какое значение получит переменная $_ в результате работы программы $_="123"; s/(?<=\d)/!/g?
• # Какое значение получит переменная $_ в результате работы программы $_="123"; s/(?!\d)/!/g?
• # Какое значение получит переменная $1 в результате работы программы "123" =~ /\G(?=\d)(\d)/g?
• # Какое значение получит переменная $1 в результате работы программы my @a = "123" =~ /\G(?=\d)(\d)/g?
• # Какое значение получит переменная $1 в результате работы программы my @a = "123" =~ /\G(?=\d)(\d)/?
• # Какое значение получит переменная $_ в результате работы программы $_='abc123'; my $a='\d+'; s/$a/!/?
• # Какое значение получит переменная $_ в результате работы программы $_='abc123'; my $a='[a-z]+'; s/$a/!/?
• # Какое значение получит переменная $_ в результате работы программы $_='abc123'; my $a='[abc]'; s/$a/!/?
• # Какое значение получит переменная $_ в результате работы программы $_='aBc'; s/\u[a-z]/!/?
• # Какое значение получит переменная $_ в результате работы программы $_='aBc'; s/\U[a-z]/!/?
• # Какое значение получит переменная $_ в результате работы программы $_='aBc'; s/\L[a-z]/!/gi?
• # Какое значение получит переменная $_ в результате работы программы $_='aBc'; my $a='[a-z]+'; s/$a/!/?
• # Какое значение получит переменная $_ в результате работы программы $_='aBc'; my $a='[a-z]+'; s/\U$a/!/?
• # Какое значение получит переменная $_ в результате работы программы $_='aBc'; my $a='[a-z]+'; s/\L$a/!/g?
• # Какое значение получит переменная $_ в результате работы программы $_='[a-z]+abcABC'; my $a='[a-z]+'; s/\Q$a\E\w+?/!/?
• # Какое значение получит переменная $_ в результате работы программы $_='[a-z]+abcABC'; my $a='[a-z]+'; s/\Q$a\E\w+/!/?
• # Какое значение получит переменная $_ в результате работы программы $_='[a-z]+abcABC'; my $a='[a-z]+'; s/\Q$a\E.*[A-Z]/!/?
• # Какое значение получит переменная $_ в результате работы программы $_='abcABC'; my $re=qr'[a-z]+'i; s/(?-i)$re/!/?
• # Какое значение получит переменная $_ в результате работы программы $_='abcABC'; my $re=qr'[a-z]+'; s/$re/!/i?
• # Какое значение получит переменная $_ в результате работы программы $_='abcABC'; my $re=qr'[A-Z]+'; s/$re/!/gi?
• # Какое значение получит переменная $_ в результате работы программы $_='abcABCdefDEF'; my $re=qr'[A-Z]+'; s/${re}defDEF/!/gi?
• # Какое значение получит переменная $_ в результате работы программы $_='abcABCdefDEF'; my $re=qr'[A-Z]+'i; s/${re}defDEF/!/?
• # Какое значение получит переменная $_ в результате работы программы $_='abcABCdefDEF'; my $re=qr'[A-Z]+'; s/${re}\L[A-Z]+/!/?
• # Какое значение получит переменная $_ в результате работы программы $_='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. Какие регулярные выражения соответствуют всем этим адресам?
• # Имеются следующие адреса электронной почты: ab.c@def.com, a+b@de-f.co.uk, a-b@def.ijk.co.uk. Какие регулярные выражения соответствуют всем этим адресам?
• # Имеются следующие адреса электронной почты: ab.c@def.com, a+b@de-f.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> третий адрес - <a href = " 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='mailto:ab.c\@def.com'>ab.c\@def.com</a> третий адрес - <a href = " 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='mailto:ab.c\@def.com'>ab.c\@def.com</a> третий адрес - <a href = " 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="mailto:abc\@def.com">abc\@def.com</a>, второй адрес - <a href=http://www.intuit.ru>intuit.ru</a> EOD Какие операторы извлекают оба адреса из этого текста?
• # В $_ дан текст:$_=<<EOD; Первый адрес:<a href="mailto:abc\@def.com">abc\@def.com</a>, второй адрес - <a href=http://www.intuit.ru>intuit.ru</a> EOD Какие операторы извлекают оба адреса из этого текста?
• # Адрес abc@intuit.ru зашифрован скриптом:$_=<<EOD; <script> a='\@'; e='abc'+a+'intuit.ru'; document.write('<a href=m'+'ailto:'+e+'><b>'+e+'</b></a>'); </script> EOD Какие операторы правильно печатают этот адрес?
• # Адрес abc@intuit.ru зашифрован скриптом:$_=<<EOD; <script> a='\@'; e='abc'+a+'intuit.ru'; document.write('<a href=m'+'ailto:'+e+'><b>'+e+'</b></a>'); </script> EOD Какие операторы правильно печатают этот адрес?
• # Адрес 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> … Какие операторы делают это корректно, учитывая разное оформление тегов веб-мастерами?
• # В переменной $_ находится HTML-страница. Надо проверить, есть ли у этой страницы часть head, и если есть, то есть ли внутри контейнера <head> </head> тег <base href="…">. Если он есть, то переменной $base надо присвоить этот URL из части head документа. Если в head нет тега base, то ничего делать не надо. Пример текста страницы:<html> <head> <title>Title</title> <base href="http://www.intuit.ru/download"> </head> … Какие операторы делают это корректно, учитывая разное оформление тегов веб-мастерами?
• # В переменной $_ находится HTML-страница. Надо проверить, есть ли у этой страницы часть head, и если есть, то есть ли внутри контейнера <head> </head> тег <base href="…">. Если он есть, то переменной $base надо присвоить этот URL из части head документа. Если в head нет тега base, то ничего делать не надо. Пример текста страницы:<html> <head> <title>Title</title> <base href="http://www.intuit.ru/download"> </head> … Какие операторы делают это корректно, учитывая разное оформление тегов веб-мастерами?
• # Дан текст:$_=<<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 Какие операторы правильно печатают обе ссылки?
• # Дан текст:$_=<<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 Какие операторы правильно печатают обе ссылки?
• # Дан текст:$_=<<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])(?{ $+ })|([A-Z])(?{ $+ }))\Z/?
• # Какое значение будет иметь переменная $^R в результате работы программы'abcABC' =~ /(?:([a-z])(?{ $^N })|([A-Z])(?{ $^N }))(?(?{ $1 })ABC)\Z/;
• # Какое значение будет иметь переменная $^R в результате работы программыmy $a=1; 'abcABC' =~ /abc(?(?{ $a })ABC)/;
• # Какое значение будет иметь переменная $a в результате работы программыmy $a=0; 'abcABC' =~ /(?:abc(?{ ++$a })|ABC(?{ ++$a }))/
• # Какое значение будет иметь переменная $a в результате работы программыmy $a=0; 'abcABC' =~ /(?:abc(?{ ++$a })|ABC(?{ ++$a }))(?!\w)/;
• # Какое значение будет иметь переменная $a в результате работы программыmy $a=0; 'abcABC' =~ /(?:abc(?{ ++$a })|ABC(?{ $a+=10 }))(?!$)/;
• # Что напечатается в результате работы программыour $a; 'abcABC' =~ /(?{ local $a=0 })(?:abc(?{ ++$a })|ABC(?{ $a+=10 }))(?{ print $a })/
• # Что напечатается в результате работы программыour $a; 'abcABC' =~ /(?{ local $a=0 })(?:abc(?{ ++$a })|ABC(?{ $a+=10 }))(?!\w)(?{ print $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 lt $+})(?!)/?
• # Какое значение примет переменная $n в результате работы программыmy $n; $_='abc ab abcd'; /(?<!\w)((?>\w+))(?{$n=$+ if !defined($n) || $n gt $+})(?!)/?
• # Какое значение примет переменная $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' }))/
• # Какое значение получит переменная $^R в результате работы программы'ab!abc!' =~ /(\w+)!(?(?{ $1 eq 'abc' })(\w+)|(?{ $1 eq 'ab' }))/
• # Какое значение получит переменная $^R в результате работы программы' 'ab!abc!' =~ /(\w+)!(?(?{ $1 ne 'abc' })(\w+)|(?{ $1 eq 'ab' }))/
• # Какое значение примет переменная $2 в результате работы программы'ab!abc!a!' =~ /(\w+)!(\w+)!(?(?{ $1 gt $2 })$)/
• # Какое значение примет переменная $2 в результате работы программы'ab!abc!a!' =~ /(?:(\w+)!){2}(?(?{ $1 gt $2 })$)/?
• # Какое значение примет переменная $2 в результате работы программы'ab!abc!a!' =~ /(\w+)!(\w+)!(?(?{ $1 lt $2 })(?!\w))/