Главная /
Регулярные выражения Perl и их применение /
Адрес abc@intuit.ru зашифрован скриптом:$_=<<EOD; <script> a='\@'; e='abc'+a+'intuit.ru'; document.write('<a href=m'+'ailto:'+e+'><b>'+e+'</b></a>'); </script> EOD Какие операторы правильно печатают этот адрес?
Адрес abc@intuit.ru зашифрован скриптом:$_=<<EOD;
<script>
a='\@';
e='abc'+a+'intuit.ru';
document.write('<a href=m'+'ailto:'+e+'><b>'+e+'</b></a>');
</script>
EOD
Какие операторы правильно печатают этот адрес?
вопрос
Правильный ответ:
print "$1\@$2" if /\@[^=]+=.*?([^'"]+).[^'"]+.([^'"]+)/
print "$1\@$2" if /\@[^=]+=.*?([^'"]+).+?[^'"]+.([^'"]+)/
print "$1\@$2" if /\@[^=]+=.([^'"]+).[^'"]+.+([^'"]+)/
Сложность вопроса
94
Сложность курса: Регулярные выражения Perl и их применение
87
Оценить вопрос
Комментарии:
Аноним
ответ подошёл
18 окт 2020
Аноним
Зачёт защитил. Иду в бар отмечать победу над тестом интут
10 апр 2019
Другие ответы на вопросы из темы программирование интуит.
- # Строка содержит полный путь и имя файла в Windows и ничего больше. Надо захватить в $1 весь путь без имени диска и имени файла. Какие операторы делают это правильно?
- # Имеется примерно такой текст: $_='5XXXXX', где сначала идет число n и за ним n символов X. Какие регулярные выражения соответствуют всему этому тексту?
- # Что будет напечатано в результате выполнения программыmy $a='a'; $b='ab'; while ($a ne 'd' && $b =~ /(??{ "$a" })/o) { print $&; $a++; }
- # Что будет напечатано в результате выполнения программыmy $a=$b=1; while ($a < 4 && $b =~ /(??{ "$a" })/o) { print $&; $b++; $a++; }
- # Что выйдет на печать в результате работы программы $_="123!abc!"; /\G\w+(?{ print pos $_ })!/g?