regex - mechanize->content ページの Perl 正規表現

Question

私は perl をいじっていて、ソースから HTML ページを取得することができました。ただし、1 つの特定の行を取得したいだけです。行は次の形式の日付で始まります: dd/mm/YYYY。HTML は print $resp->content(); で表示されます。$resp は $mechanice->submit_form() からの応答です。ここで resp が作成されます。

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

どうすればこれを達成できますか? PHP はよく知っていますが、Perl を始めたばかりです。

ありがとう

Answer 1

これは、私が持っている Mechanize コードの例です。

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