perl - 如何以简洁的顺序排列 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 - 所以如果我以未排序的方式获得结果可能会出现问题。

我有一个包含 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 

如何编写脚本，以便以特定名称存储缩略图图像 - 例如，使用域名。否则结果将是一团糟。我需要根据 URLS 识别缩略图。这可能吗？

Answer 1

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