Leser: 14
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/Perl/bin/perl
use strict;
use warnings;
use FileHandle;
use Data::Dumper qw/Dumper/;
use Web::Scraper;
my $content = q~
<p class="x" style="right">text1</p>
<p class="x">text2</p>
~;
#p[@class='x' && not(@style)]
my $parser = scraper {
process '//p[@class="x" and not(@style)]', "items[]" => {
style => '@style',
text => 'TEXT',
};
};
my $result = $parser->scrape( $content );
print Dumper $result;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/Perl/bin/perl
use strict;
use warnings;
use FileHandle;
use Data::Dumper qw/Dumper/;
use Web::Scraper;
my $content = q~
<p class="x" style="right">text1</p>
<p class="x" style="">text2</p>
~;
#p[@class='x' && not(@style)]
my $parser = scraper {
#process '//p[@class="x" and not(@style)]', "items[]" => {
process '//p[@class="x" and @style=""]', "items[]" => {
style => '@style',
text => 'TEXT',
};
};
my $result = $parser->scrape( $content );
print Dumper $result;