WWW :: Mechanize :: Firefox follow_link無法正常工作

Question

我正在嘗試關注Perl中的鏈接。 我最初的代碼：

use WWW::Mechanize::Firefox; 
use Crypt::SSLeay; 
use HTML::TagParser; 
use URI::Fetch; 
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0; #not verifying certificate 
my $url = 'https://'; 
$url = $url.@ARGV[0]; 

my $mech = WWW::Mechanize::Firefox->new; 
$mech->get($url); 

$mech->follow_link(tag => 'a', text => '<span class=\"normalNode\">VSCs</span>'); 
$mech->reload(); 

我發現here的標籤和文本選擇以這種方式工作，但我得到了錯誤MozRepl :: RemoteObject的：語法錯誤：表達式是不是合法的表達。我試圖逃避文本中的某些字符，但錯誤仍然相同。 後來我改變了我的代碼添加：

my @list = $mech->find_all_links(); 
my $found = 0; 
my $i=0; 
while($i<=$#list && $found == 0){ 
    print @list[$i]->url()."\n"; 
    if(@list[$i]->text() =~ /VSCs/){ 
    print @list[$i]->text()."\n"; 
    my $follow =@list[$i]->url(); 
    $mech->follow_link(url => $follow); 
} 
    $i++; 
} 

不過話又說回來有一個錯誤：沒有鏈接找到匹配的「//一個[（@ HREF =「https：//開頭...和多很多看起來是鏈接的描述 我希望我自己清楚，如果不是，請告訴我還有什麼要補充的，謝謝大家的幫助。 ：

<li id="1" class="liClosed"><span class="bullet clickable">&#160;</span><b><a href="/centcfg/vsc_list.asp?entity=allvsc&amp;selector=All"><span class="normalNode">VSCs</span></a></b> 
     <ul id="1.l1"> 
     <li id="i1.i1" class="liBullet"><span class="bullet">&#160;</span><b><a href="/centcfg/vsc_edit.asp?entity=vsc&amp;selector=1"><span class="normalNode">First</span></a></b></li> 
     <li id="i1.i2" class="liBullet"><span class="bullet">&#160;</span><b><a href="/centcfg/vsc_edit.asp?entity=vsc&amp;selector=2"><span class="normalNode">Second</span></a></b></li> 
     <li id="i1.i3" class="liBullet"><span class="bullet">&#160;</span><b><a href="/centcfg/vsc_edit.asp?entity=vsc&amp;selector=3"><span class="normalNode">Third</span></a></b></li> 
     <li id="i1.i4" class="liBullet"><span class="bullet">&#160;</span><b><a href="/centcfg/vsc_edit.asp?entity=vsc&amp;selector=4"><span class="normalNode">Fourth</span></a></b></li> 
     <li id="i1.i5" class="liBullet"><span class="bullet">&#160;</span><b><a href="/centcfg/vsc_edit.asp?entity=vsc&amp;selector=5"><span class="normalNode">None</span></a></b></li> 
</ul> 

我在Windows 7中工作，MozRepl的版本是1.1，我使用Perl的草莓5.16.2.1 64位

Answer 1

我建議你嘗試：

$mech->follow_link(url_regex => qr/selector=All/); 

Answer 2

與給定的代碼打交道了之後我是能夠使W¯¯::中號:: F到按照下面的方式來鏈接：

use WWW::Mechanize::Firefox; 
use Crypt::SSLeay; 
use HTML::TagParser; 
use URI::Fetch; 

... 

$mech->follow_link(xpath => '//a[text() = "<span class=\"normalNode\">VSCs</span>"]'); 
$mech->reload(); 

注意給出的，而不是textxpath參數。

我沒有長時間關注W :: M :: F源代碼，但試圖將給定的text參數轉換爲XPath字符串，並且如果text包含一定數量的XML/HTML標記，即你的情況，可能會讓他發瘋。