Какое значение получит переменная $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' =~ //;
• # Что будет напечатано в результате работы оператораprint join '-', split //, 'abc', 2;
• # Что напечатается в результате работы программыour $a; 'abcABC' =~ /(?{ local $a=0 })(?:abc(?{ ++$a })|ABC(?{ $a+=10 }))(?!$)(?{ print $a })/
• # Какое значение получит переменная $^R в результате работы программы' 'ab!abc!' =~ /(\w+)!(?(?{ $1 ne 'abc' })(\w+)|(?{ $1 eq 'ab' }))/