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

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

• # Какое значение получит переменная $1 в результате работы программыmy $a=''; my $re=qr/(\d)+/; '123' =~ $re; '456' =~ /$a/;
• # Что будет напечатано в результате выполнения программыmy $a=$_=1; while ($a < 4 && /$a/o) { print $&; $_++; $a++; }
• # Что будет напечатано в результате работы программы$a='-'; for (0..1) { print split /$a/, 'a-b:c' . "\n"; $a=':'; }
• # Какое слово будет захвачено в переменную $1 в следующем операторе поиска: 'abcde abcd abc' =~ /(ab\w+|abc\w+|a\w+)/ ?
• # Какое значение будет иметь переменная $1 в результате работы оператора 'abc123' =~ /(?<=(\d))(?= \d+)/?