ожидаемое спасибо.Perl wget не «greping» правильно
Эта петля обеспечивает URL-адрес (в переменных $ _) и моя идея будет посылать каждое URL в Wget для обработки, как вы можете увидеть
foreach(@my_array) {
$browser->get($_);
system ("wget -q -O -\"$_\" | grep -oe '\\w*.\\w*@.\\w*.\\w\\+' | sort -u");
}
print EMAILS;
вопросов:
1) grep не grep, я получаю только URL-адреса, которые являются $ _
2) Я не совсем уверен, что правильно отправляю результат в выходной файл, так как все, что я делаю, - это EMAILS, где EMAILS является дескриптор выходного файла, созданного строками выше.
3) Я попытался сделать еще один вариант, полагая а> output.txt внедрен в скобках,
system ("wget -q -O -\"$_\" | grep -oe '\\w*.\\w*@.\\w*.\\w\\+' > output.txt| sort -u");
но игнорируется
4) Вопрос, является ли, что Grep делается во время обхода на серверах или wget должен загружать все файлы, и только тогда на моем компьютере grep все электронные письма? Естественно, я не хочу загружать весь сайт.
спасибо много
Почему бы вам не объяснить, что должен делать ваш системный вызов. Вы пытаетесь загрузить загруженную веб-страницу? – TLP
Да, wget получает URL-адрес, который должен быть указан, который содержится в $ _. Так как он должен просканировать через всю сеть, он будет иметь -r рекурсивную команду. Этот grep получает сообщения электронной почты. Однако в выходном файле я получаю только список URL-адресов wget, но grep не доставляет мне письма в этой команде perl, хотя он действительно работал в оболочке – iaintunderstand