Perl 基于标题关闭选项卡
如何使用Perl 基于标题关闭选项卡,perl,firefox,mechanize,www-mechanize,www-mechanize-firefox,Perl,Firefox,Mechanize,Www Mechanize,Www Mechanize Firefox,如何使用WWW::Mechanize::Firefox关闭基于标题的选项卡 以下是我目前拥有的: my $ff = Firefox::Application->new(); my @tab_info = $ff->openTabs(); foreach my $tab (@tab_info) { if($tab->{title} eq "TITLE HERE") { $ff->closeTab($tab->{location}); }
WWW::Mechanize::Firefox
关闭基于标题的选项卡
以下是我目前拥有的:
my $ff = Firefox::Application->new();
my @tab_info = $ff->openTabs();
foreach my $tab (@tab_info) {
if($tab->{title} eq "TITLE HERE") {
$ff->closeTab($tab->{location});
}
}
的文档只是说“关闭给定的选项卡”,没有关于给定选项卡是什么的信息它是$ff->closeTab($Tab->{Tab})
。例如,请参见。完整的程序:
use WWW::Mechanize::Firefox;
my $ff = Firefox::Application->new();
my $title_to_close = "Title of the page to close ...";
# This will pull in all currently opened tabs
my @tabs = $ff->openTabs();
foreach my $tab (@tabs) {
if ($tab->{title} =~ /$title_to_close/) {
print "Close tab: $tab->{title}";
$ff->closeTab($tab->{tab});
}
}
简而言之:
$ff->closeTab($_->{tab}) for grep { $_->{title} eq 'TITLE HERE' } $ff->openTabs;