在機械化 - >內容頁上的Perl Regex

Question

我在perl中擺弄，我設法從源檢索HTML頁面。不過，我只想檢索1個特別行。該行以格式如下的日期開始：dd/mm/YYYY。 HTML中顯示打印$ resp-> content（）; $ resp是來自$ mechanice-> submit_form（）的響應; 這就是RESP是由：

my $resp = $m->submit_form( 
//bunch of data 
}, 
); 

如何實現這一目標？我熟悉PHP，但是我剛開始使用Perl。

謝謝

Answer 1

下面是我有一些機械化代碼的例子。

my $mech = WWW::Mechanize->new(); 
$mech->get("url that takes you to the page with the form"); 
$mech->submit_form(form_name => 'someform', 
        fields => {'user_name' => 'user's 
           'password' => 'password'}, 
        button => 'submit'); 

return if not $mech->success(); 

my $content = $mech->content(); 
if ($content =~ m|(\d{2,2}/\d{2,2}/\d{4,4}.*)|g) { 
    print "My line: $1\n"; 
}