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

Правильный ответ:

• # Какой фрагмент строки будет захвачен в переменную $1 в операторе '!1a' =~ /((?>[!\d]+|\S+))/?
• # В тексте есть число, которое может быть целым, а может иметь точку (в этом случае обязательна дробная часть). Число может стоять в конце предложения, и поэтому за ним может быть точка. Предполагаем, что в тексте нет таких конструкций, как дата 2006.12.26, которую можно было бы спутать с дробным числом. Примеры чисел: +1, -2.5, -.010. Надо захватить в $1 первое такое число. Какие операторы делают это правильно?
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /(\w$)/?
• # В $_ дан текст:$_=<<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 адреса электронной почты из этого текста?
• # Что напечатается в результате работы программыour $a; 'abcABC' =~ /(?{ local $a=0 })(?:abc(?{ ++$a })|ABC(?{ $a+=10 }))(?!$)(?{ print $a })/