Пример механизации - достаточно простой, но слишком сложный для меня: нужны объяснения - PullRequest
Новая
       33

Пример механизации - достаточно простой, но слишком сложный для меня: нужны объяснения

2 голосов
/ 22 ноября 2010

Добрый день уважаемое сообщество.Я новичок в программировании.И я хочу копать глубже в Perl.Итак, у меня есть пример Mechanize - довольно простой, но слишком сложный для меня: нужны пояснения.Мне нужна ваша помощь здесь с этим!

use strict;
    $|++;

    use WWW::Mechanize;
    use File::Basename;

    my $m = WWW::Mechanize->new;

    $m->get("http://www.despair.com/indem.html");

    my @top_links = @{$m->links};

    for my $top_link_num (0..$#top_links) {
        next unless $top_links[$top_link_num][0] =~ /^http:/;

        $m->follow_link( n=>$top_link_num ) or die "can't follow $top_link_num";

        print $m->uri, "\n";
        for my $image (grep m{^http://store4}, map $_->[0], @{$m->links}) {
            my $local = basename $image;
            print " $image...", $m->mirror($image, $local)->message, "\n"
        }

        $m->back or die "can't go back";
    }

Кто-нибудь может дать мне построчное объяснение?

1 Ответ

3 голосов
/ 22 ноября 2010

Я попробовал первое купе линий.

Однако вам необходимо сначала прочитать и понять следующую документацию:

1) Perl Intro - особенно переменная область видимости

2) Данные Perl

3) Руководство по структурам данных Perl

P.S. Как сказал Эрик в комментарии, этот код определенно НЕ очень хороший пример для того, кто только начинает. У него слишком много нетривиальных идей / концепций / движущихся частей. 

use strict; 
  # Does not allow undeclared global variables or other unsafe constructs.
  # You should ALWAYS code with "use strict; use warnings"
  # See http://perldoc.perl.org/strict.html
$|++;
  # Turn on autoflush on STDOUT filehandle. 
  # See "http://perldoc.perl.org/perlvar.html" for "$|" and other special variables.
  # P.S. This "++" is a hack - it would be a lot more readable to do "$| = 1;"
  #      since $| only cares whether the value is zero or non-zero.

use WWW::Mechanize; # Load the module for getting web sites.
use File::Basename; # Load the module for finding script's name/path.

my $m = WWW::Mechanize->new; # Create new object via a constructor (new)

$m->get("http://www.despair.com/indem.html"); 
   # Retrieve the contents of the URL. 
   # See http://search.cpan.org/dist/WWW-Mechanize/lib/WWW/Mechanize.pm
   # for the module's documentation (aka POD)

my @top_links = @{$m->links};
   # Declare a "@top_links" array, 
   # get the list of links on the above page (returns array reference)
   # and de-reference that array reference and store it in @top_links array

for my $top_link_num (0..$#top_links) { 
    # Loop over all integers between 0 and the last index of @top_links array
    # (e.g. if there were 3 links, loop over 0,1,2
    # Assign the current loop value to $top_link_num variable

    next unless $top_links[$top_link_num][0] =~ /^http:/;
    # go to next iteration of the loop unless the current link's URL is HTTP protocol
    # Current link is the element of the array with current undex -
    #    $top_links[$top_link_num]
    # The link data is stored as an array reference,
    # with the link URL being the first element of the arrayref 
    # Therefore, $top_links[$top_link_num][0] - which is the shorthand 
    #    for $top_links[$top_link_num]->[0] as you learned
    #    from reading Data Structures Cookbook I linked - is the URL
    # To check if URL is HTTP prtocol, we check if it starts with http:
    # via regular expression - see "http://perldoc.perl.org/perlre.html"

    $m->follow_link( n=>$top_link_num ) or die "can't follow $top_link_num";

    print $m->uri, "\n";
    for my $image (grep m{^http://store4}, map $_->[0], @{$m->links}) {
        my $local = basename $image;
        print " $image...", $m->mirror($image, $local)->message, "\n"
    }

    $m->back or die "can't go back";
}
...