Закрытие закладки Основано на заголовке

Question

Как закрыть вкладку на основе ее названия, используя 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}); 
    } 
} 

Документация closeTab() просто говорит: «Закройте вкладку» Учитывая без информации о том, что на вкладке приведены в

Answer 1

Это $ff->closeTab($tab->{tab}). См. Например, Cookbook. Полная программа:

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}); 
    } 
} 

Answer 2

Более лаконично:

$ff->closeTab($_->{tab}) for grep { $_->{title} eq 'TITLE HERE' } $ff->openTabs;