В $_ дан текст:$_=<<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 адреса электронной почты из этого текста?

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

• # Какие операторы возвращают истину?
• # Что будет напечатано в результате выполнения программыmy $a='a'; $_='ab'; while ($a ne 'd' && /$a/o) { print $&; $a++; }
• # Что будет напечатано в результате выполнения программыmy $a=$b=1; while ($a < 4 && $b =~ /(??{ "$a" })/o) { print $&; $b++; $a++; }
• # Какое значение получит переменная $1 в результате работы программы "123" =~ /\G(?=\d)(\d)/g?
• # Какое значение получит переменная $_ в результате работы программы $_='abcABCdefDEF'; my $re=qr'[A-Z]+'; s/${re}\L[A-Z]+/!/?