如何以简洁的顺序排列 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 

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

Answer 1

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