小编oli*_*k82的帖子

有人能解释为什么我的循环不起作用吗？

#!/usr/bin/perl -w
use warnings;
use strict;
use URI;
use Web::Scraper;

my $url = "http://example.com";


# prepare data
my $scrapedata = scraper {
 process "div.something", 'pages[]' => '@rel';
};

# scrape the data
my $res = $scrapedata->scrape(URI->new($url));

# Get number of pages and define as var
for my $j (0 .. $#{$res->{pages}}) {
 my $varpages = $res->{pages}[$j];
  print "$varpages\n";
}


for ( my $count = 2; $count <= $varpages; $count++) {

print "$varpages\n";
print "$count\n";

}

这是错误:

# perl oli …