WWW :: Mechanize :: Firefoxとfind_link_domをPerlで使用して、2番目のリンクの出現を見つけるにはどうすればよいですか？

Question

find_link_domを使用していますが、これは動作しています...一致する最初のリンクを見つける。私は2番目を見つける必要があります。ここに私の行があります：

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

このコマンドで一致する2番目のリンクを返す方法はありますか？

また、検索条件を変更する必要があるとコメントする前に、テキストは同じです。唯一の違いはURLであり、私は選択されるべきURLからちょうどわからない。私は上記の検索と一致する2番目のリンクが必要です。

Answer 1

documentationには、オブジェクトが返されます。それは複数です。このコードもあります。 forに注意してください。

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

だから、あなただけのすべての見つかったリンクを取得するために、リストコンテキストでそれを呼び出すことができ、またはちょうどあなたが欲しいものを取ります。

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

これは、2番目のものです。

また、すべてを把握して出力して、何が起こっているのかを確認することもできます。

use Data::Printer; 

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

それとも、あなたは1ベースのインデックスあるオプションnを、使用することができます。

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

Answer 2

は、私はあなたがしようとすべきだと思うことを、@simbabqueドキュメントの参照から、second methodあります：

$mech->find_all_links_dom %options 

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

は、文書内のすべての一致するLinkyはDO​​Mノードを検索します。オプションは - > find_link_domに記載されています。

コンテキストに応じて、リストまたは配列参照として返します。

このデフォルトでは、子フレームを見ていません。