Perl wget이 "greping"하지 않습니다.

Question

감사합니다.

이 루프합니다 ($ _ 변수에) URL을 제공하고

foreach(@my_array) { 
    $browser->get($_);  
    system ("wget -q -O -\"$_\" | grep -oe '\\w*.\\w*@.\\w*.\\w\\+' | sort -u"); 
} 
print EMAILS; 

질문을 볼 수 있습니다 내 생각은 처리를 위해 wget과 각 URL을 보낼 수 있었다 :

1)를 grep은 grep하지 않으며 $ URL을 얻습니다. $

2) 출력 파일에 결과를 올바르게 전송하지 못하는 것 같습니다. EMAILS는 위의 라인에서 생성 된 출력 파일의 핸들.

3) 나는 퍼팅, 다른 변형을 시도 A> 경우 output.txt

system ("wget -q -O -\"$_\" | grep -oe '\\w*.\\w*@.\\w*.\\w\\+' > output.txt| sort -u"); 

, 그 괄호에 포함하지만

무시됩니다 크롤링 동안

4) 질문은 해당 그렙이 완료되었는지 여부 서버에서 또는 wget 모든 파일을 다운로드하고 내 컴퓨터 grep 모든 이메일에서 다음? 당연히 전체 웹 사이트를 다운로드하고 싶지 않습니다.

당신에게 wget을가 (모든 파일을 다운로드) 완료 후

Answer 1

그렙 수행을 많이 감사합니다. 또한 파일로 출력해도 올바른 정보가 sort 명령에 전달되지 않습니다.

LWP는 웹 페이지를 통해 이메일 주소를 검색 할 때 더 유용 할 수 있습니다. URL 이전

system ("wget -q -O - \"$_\" | grep -oe '\\w*.\\w*@.\\w*.\\w\\+' | sort -u"); 

Answer 2

보인다. 구제가 ​​조기에 이루어졌습니다.

system("wget -q -O - \"$_\" | grep -oe '\\w*.\\w*@.\\w*.\\w\\+' | sort -u >output.txt"); 

당신은 system이 $_ 변경에 대해 어떻게 생각 하죠?

Answer 3

누락 공간 : 당신이 URL 전에 공간을 잊었다처럼

http://search.cpan.org/dist/libwww-perl/lib/LWP.pm