-3

div正規表現を使用して次をどのように見つけますか? URL と画像の場所は、投稿 URL に基づいて常に変化するため、ワイルド カードを使用する必要があります。

使用しているソフトウェアのために使用できるものが制限されているため、正規表現を使用する必要があります: http://community.autoblogged.com/entries/344640-common-search-and-replace-patterns

<div class="tweetmeme_button" style="float: right; margin-left: 10px;"> <a href="http://api.tweetmeme.com/share?url=http%3A%2F%2Fjumpinblack.com%2F2011%2F11%2F25%2Fdrake-and-rick-ross-you-only-live-once-ep-mixtape-2011-download%2F"><br /> <img src="http://api.tweetmeme.com/imagebutton.gif?url=http%3A%2F%2Fjumpinblack.com%2F2011%2F11%2F25%2Fdrake-and-rick-ross-you-only-live-once-ep-mixtape-2011-download%2F&amp;source=jumpinblack1&amp;style=compact&amp;b=2" height="61" width="50" /><br /> </a> </div>

使ってみた

<div class="tweetmeme_button" style="float: right; margin-left: 10px;">.*<\/div>
4

2 に答える 2

1

HTML パーサーを使用して HTML を解析します。

HTML::TokeParser::SimpleまたはHTML::TreeBuilder::XPathなどがあります。

例えば：

#!/usr/bin/env perl

use strict;
use warnings;

use HTML::TokeParser::Simple;

my $parser = HTML::TokeParser::Simple->new( ... );

while (my $div = $parser->get_tag) {
    next unless $div->is_start_tag('div');
    {
        no warnings 'uninitialized';
        next unless $div->get_attr('class') eq 'tweetmeme_button';
        next unless $div->get_attr('style') eq 'float: right; margin-left: 10px;'
        # now do what you want until the next </div>
    }

}
于 2011-11-28T01:40:42.403 に答える
1

HTML を処理するために正規表現を使用することは、悪い考えです。これには HTML::TreeBuilder::XPath を使用しています。

use strict;
use warnings;
use HTML::TreeBuilder::XPath;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
$mech->get("http://www.someURL.com");

my $tree = HTML::TreeBuilder::XPath->new_from_content( $mech->content() );    
my $div = $tree->findnodes( '//div[@class="tweetmeme_button"]')->[0];
于 2011-11-28T01:41:33.070 に答える