Что будет напечатано в результате работы оператораprint join '-', split /^/, "ab\nbc\nde";

вопрос

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

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

Отправить

• # Что будет напечатано в результате работы программыmy $a='a'; my $re=qr/$a/i; $a='A'; print 'OK' if 'a' =~ $re;
• # Что будет напечатано в результате работы программыmy $a='a'; my $re=qr/$a/; print 'OK' if 'a' =~ m'$re'; ?:
• # Что выйдет на печать в результате работы программы $_="123!abc!"; pos($_)=4; print /\G(\w+)!/g?
• # Какое значение получит переменная $_ в результате работы программы $_='aBc'; s/\U[a-z]/!/?
• # Какое значение будет иметь переменная $a в результате работы программыmy $a=0; 'abcABC' =~ /(?:abc(?{ ++$a })|ABC(?{ ++$a }))/