在数组中传递变量

-1

我有下面的代码应该点击并转到每个文本链接...发生什么是$l保持字母A，并收集页面为26x ...有任何想法吗？在数组中传递变量

my $mech = WWW::Mechanize->new(); 
$mech->get($info->website); 

my $te = HTML::TableExtract->new(); 
my @abc = ("A" .. "Z"); 

foreach my $letter (@abc){ 

$mech->find_link(text => $letter); 
$mech->follow_link(text => $letter); 

$content = $mech->content(); 

$te->parse($content); 

$table = $te->first_table_found; 

$str .= Dumper $table; 

$mech->back(); 
}

来源

2012-10-26 user1563849

你错了，正如你可以看到加入'print'$ l \ n“;' – ikegami

我应该进一步解释。我确实打印了$ l以查看它是否正在工作，是的，它确实打印了预期的字母表。但是我把$表的内容放在一个临时文件中，如果我查看那个临时文件，我会看到26个页面A的实例，它不会从任何其他页面收集数据......好像它停留在页面A上。 – user1563849