0

LinuxのopenSUSE11.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）を持っているので、ソートされていない方法で結果を取得すると問題になる可能性があります。

ファイルに保存された1000個のURLのリストが各行に1つずつあります。上記のスクリプトでファイルを開き、行を読んでからWebサイトを取得します。URLは次のように保存されます。

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

サムネイル画像が特定の名前（ドメイン名など）で保存されるようにスクリプトを作成するにはどうすればよいですか。そうでなければ、結果は完全に混乱するでしょう。URLに基​​づいてサムネイルを識別する必要があります。これは可能ですか？

4

1 に答える 1

3 
open my $out, '>', "$_.png" or die "could not open '$_.png' for output $!";
print $out $png;
close $out;
于 2011-12-10T16:18:13.220 に答える