3

最初の 3 文字が または で始まるアイテムをtr照合しようとしています。これは私の試みです：classeveday

my @stuff = $p->look_down(
    _tag => 'tr',
    class => 'qr/eve*|day*/g'
);

foreach (@stuff) {
        print $_->as_text;
};

ちょっと興味がありますが、どのようなオブジェクトが入ってい@stuffますか?

これでよろしいですか？下記参照：

my @stuff = $p->look_down(
    _tag => 'tr',
    class => qr/eve.*|day.*/
);

print "\n\n";

foreach (@stuff) {
        print $_->as_text . "\n\n";
};
4

1 に答える 1

5

^クラスが最初の 3 文字と一致するようにするには、正規表現を で固定する必要があります。

以下はあなたが望むものを達成します：

use strict;
use warnings;

use HTML::TreeBuilder;

my $p = HTML::TreeBuilder->new_from_content(do {local $/; <DATA>});

foreach my $tr ($p->look_down(_tag => 'tr', class => qr{^(?:eve|day)})) {
    print $tr->as_text, "\n";
};

__DATA__
<html>
<body>
<p>hi</p>
<table>
<tr class="notme"><td colspan=2>row 1 is bad</td></tr>
<tr class="not_eve_or_day"><td colspan=2>row 2 is bad</td></tr>
<tr class="everyrow"><td colspan=2>row 3 is good 1 of 2</td></tr>
<tr class="dayme"><td colspan=2>row 4 is good 2 of 2</td></tr>
<tr class="notme"><td colspan=2>row 5 is bad</td></tr>
</table>
</body>
</html>

出力:

row 3 is good 1 of 2
row 4 is good 2 of 2
于 2014-05-30T01:25:09.237 に答える