Perl :: Mechanizeの出力を簡潔な順序（変数または名前付き）で整列する方法

Question

私はLinux opensuse 11.4を実行します。私はこの小さなプログラムをLinuxのボックスで動かそうとします。

#!/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 - ので、私はソートされていない方法で結果を取得する場合、それは問題になるかもしれません。

ファイルに保存されている各行に1つの1000個のURLリストがあります。上のスクリプトでファイルを開き、行を読んでから、ウェブサイトを取得します。 。 - 例えば、ドメイン名とサムネイル画像が特定の名前で保存されているように、私は、スクリプトを書くことができますどのように

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

：URLは次のようなものに保存されていますさもなければ結果は完全に混乱するでしょう。 URLに基​​づいてサムネイルを特定する必要があります。これは可能ですか？

Answer 1

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