Будет ли найдено совпадение в операторе 'abc' =~ /(?>|\S+)/?

вопрос

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

Оставить комментарий

Отправить

• # Что будет напечатано в результате работы программыmy $a='a'; my $re=qr/\$a/; print 'OK' if '$a' =~ /$re/;
• # Какое значение получит переменная $a в результате работы программыmy $a; 'abc' =~ /(\w+(\w))(?{ $a=$^N })/;
• # Что будет напечатано в результате работы программы$_='abc123def'; /\d+/; print substr $_, $-[0], $+[0] - $-[0];
• # Какое значение получит переменная $1 в результате выполнения программы "abc\n123" =~ /(?s:(.*))/?
• # Какое значение будет иметь переменная $a в результате работы программыmy $a=0; 'abcABC' =~ /(?:abc(?{ ++$a })|ABC(?{ ++$a }))(?!\w)/;