在机械化 - >内容页上的Perl Regex

我在perl中摆弄，我设法从源检索HTML页面。不过，我只想检索1个特别行。该行以格式如下的日期开始：dd/mm/YYYY。 HTML中显示打印$ resp-> content（）; $ resp是来自$ mechanice-> submit_form（）的响应; 这就是RESP是由：在机械化 - >内容页上的Perl Regex

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

如何实现这一目标？我熟悉PHP，但是我刚开始使用Perl。

谢谢

来源

2013-08-28 Hawiak

下面是我有一些机械化代码的例子。

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

来源

2013-08-28 05:20:46 gaijin

它似乎工作，我有一个跟进的问题，如何管理把变量叫做$昨日与DD/MM/YYYY格式，以及（字符串，我相信）作为“一些正则表达式” ？感谢您迄今的努力！ – Hawiak

抱歉，忘记了一部分。正则表达式看起来像：'m |（\ d {2,2}/\ d {2,2}/\ d {4,4}。*）|' – gaijin

没问题，ehm ...正则表达式在哪里？我只看到一个冒号xD – Hawiak

在机械化 - >内容页上的Perl Regex

回答

相关问题