perl - 配列で変数を渡す

Question

以下のコードをクリックして、テキスト付きの各リンクに移動することになっています...何が起こっているのかというと$l、文字Aが残り、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();
}

Answer 1

問題は、HTMLTableExtractが新しいデータを取得していなかったことです。TEの初期化をループに移動しました$te->parse（$ content）は、すでに持っていたものを上書きしていました。

Answer 2

リンクをたどった後、元のページに戻ってすべてのリンクを再び利用できるようにする必要があります。追加するだけ

$mech->back;

ループの終わりまで。