Как организовать вывод из Perl :: Mechanize в кратком порядке (с переменными или именами) - PullRequest
Новая
       20

Как организовать вывод из Perl :: Mechanize в кратком порядке (с переменными или именами)

0 голосов
/ 10 декабря 2011

Я запускаю 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-адресов.Возможно ли это?

1 Ответ

3 голосов
/ 10 декабря 2011 
open my $out, '>', "$_.png" or die "could not open '$_.png' for output $!";
print $out $png;
close $out;
...