Wie finde ich den zweiten Link Vorkommen mit WWW :: Mechanize :: Firefox und find_link_dom in Perl?

Question

Ich benutze find_link_dom und es funktioniert ... um den ersten passenden Link zu finden. Ich muss den zweiten finden. Hier ist meine Zeile:

Gibt es eine Möglichkeit für diesen Befehl, den zweiten Link, der übereinstimmt, zurückzugeben?

Und bevor jemand kommentieren, dass ich meine Suchkriterien ändern muss, ist der Text der gleiche. Das einzige, was anders ist, ist die URL und ich weiß nicht nur von der URL, die ausgewählt werden sollte. Ich brauche den zweiten Link, der der obigen Suche entspricht.

Answer 1

Die documentation sagt, es gibt Objekte zurück. Das ist Plural. Es gibt auch dieses Stück Code. Beachten Sie die for.

print $_->{innerHTML} . "\n" 
    for $mech->find_link_dom(text_contains => 'CPAN'); 

So können Sie nennen es nur in Listenkontext alle gefundenen Links zu erhalten, oder nehmen Sie nur die, die Sie wollen.

(undef, my $link) = $mech->find_link_dom (text_regex => 'abc'); 

Das sollte Ihnen die zweite geben.

Alternativ können Sie alle von ihnen nehmen und ausgeben, um zu sehen, was los ist.

use Data::Printer; 

my @links = $mech->find_link_dom (text_regex => 'abc'); 
p @links 

Alternativ können Sie die Option n, die ein1-basierter Index ist.

my $second_link = $mech->find_link_dom(text_regex => 'abc', n => 2); 

Answer 2

Es gibt eine second method, von @simbabque Dokumentation Referenz, dass ich denke, Sie sollten versuchen:

$mech->find_all_links_dom %options 

print $_->{innerHTML} . "\n" 
    for $mech->find_all_links_dom(text_regex => qr/google/i); 

Findet alle passenden linky DOM-Knoten in dem Dokument. Die Optionen sind dokumentiert in -> find_link_dom.

Gibt sie als Liste oder Array-Referenz zurück, abhängig vom Kontext.

Standardmäßig werden die untergeordneten Frames nicht durchsucht.