传递数组中的变量

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-＆gt;解析（$ content）覆盖已有的内容。

Answer 2

关注链接后，您必须返回原始页面才能再次显示所有链接。只需添加

$mech->back;

到循环结束。