在數組中傳遞變量

-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