Perl :: Mechanize의 출력물을 간결한 순서 (변수 또는 이름 포함)로 배열하는 방법

Question

나는 Linux opensuse 11.4를 실행한다. 나는 리눅스 박스에서이 작은 프로그램을 실행하려고한다.

#!/usr/bin/perl 

    use WWW::Mechanize::Firefox; 
    my $mech = WWW::Mechanize::Firefox->new(); 

    open(INPUT, "urls.txt") or die "Can't open file: $!"; 

    while (<INPUT>) { 
     chomp; 
     $mech->get($_); 
     my $png = $mech->content_as_png(); 
    } 
    close(INPUT); 
    exit; 

나는 URL 목록이 - 1000 개 이상의 URL이 - 나는 정렬되지 않은 방법으로 결과를 얻을 경우 문제가 될 수 있도록.

파일에 저장되는 각 줄마다 1000 개의 URL 목록이 있습니다. 위의 스크립트에서 파일을 열고 라인을 읽은 다음 웹 사이트를 검색하겠습니다. URL은 이런 식 저장됩니다 썸네일 - 이미지가 특정 이름으로 저장되도록

Filename: urls.txt 
    ------------------ 
    www.google.com 
    www.cnn.com 
    www.msnbc.com 
    news.bbc.co.uk 
    www.bing.com 
    www.yahoo.com 

가 어떻게 스크립트를 작성할 수 있습니다 - 예를 들어, 도메인 이름. 그렇지 않으면 결과가 엉망이 될 것입니다. URL을 기반으로 미리보기 이미지를 식별해야합니다. 이것이 가능한가?

Answer 1

open my $out, '>', "$_.png" or die "could not open '$_.png' for output $!"; 
print $out $png; 
close $out;