It would have been easier to see if ag4ve had posted runnable code , but I adapted eg/dave-trailer-HD.pl
#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dumper;
use Web::Scraper;
my $html_content = <<'__HTML__';
<html>
<body>
<div></div>
<div id="wrapper">
<div></div>
<div id="outer">
<div id="inner">
<div></div>
<div id="center">
<div></div>
<div id="main">
<div></div>
<div>
<table id="wrappedcontent">
<tbody class="shnitzel" bgcolor='red'>
<tr>
<td>
<table class="someclass" style="width:508px;" id="Any_20">
<tbody>
<tr> <td><strong>key1</strong></td> <td>val1</td> </tr>
<tr> <td><strong>key2</strong></td> <td>val2</td> </tr>
<tr> <td><strong>key3</strong></td> <td>val3</td> </tr>
<tr> <td><strong>key4</strong></td> <td>val4</td> </tr>
<tr> <td><strong>key5</strong></td> <td>val5</td> </tr>
<tr> <td><strong>key6</strong></td> <td>val6</td> </tr>
<tr> <td><strong>key7</strong></td> <td>val7</td> </tr>
<tr> <td><strong>key8</strong></td> <td>val8</td> </tr>
<tr> <td><strong>key9</strong></td> <td>val9</td> </tr>
<tr> <td><strong>key10</strong></td> <td>val10</td> </tr>
<tr> <td><strong>key11</strong></td> <td>val11</td> </tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</div>
</div>
</div>
</div>
</div>
</div>
</body>
</html>
__HTML__
my @pdata;
push @pdata, scraper {
process '//*/table[@class="someclass"]',
'table[]' => scraper {
process '//tr/td[1]', 'name' => 'TEXT';
process '//tr/td[2]', 'attr' => 'TEXT';
};
};
push @pdata, scraper {
process '//*/table[@class="someclass"]',
'table[]' => scraper {
process '//tr/td[1]', 'name[]' => 'TEXT';
process '//tr/td[2]', 'attr[]' => 'TEXT';
};
};
push @pdata, scraper {
process '//*/table[@class="someclass"]//tr',
'table[]' => {
process('//tr/td[1]', 'name[]' => 'TEXT'),
process('//tr/td[2]', 'attr[]' => 'TEXT'),
};
};
push @pdata, scraper {
process '//*/table[@class="someclass"]//tr',
'table[]' => scraper {
process '//tr/td[1]', 'name' => 'TEXT';
process '//tr/td[2]', 'attr' => 'TEXT';
};
};
push @pdata, scraper {
process '//*/table[@class="someclass"]//tr',
'table[]' => scraper {
process '//tr/td[1]', 'name' => 'TEXT';
process '//tr/td[2]', 'attr' => 'TEXT';
};
result 'table';
};
push @pdata, scraper {
process '//*/table[@class="someclass"]//tr',
'table[]' => scraper {
process '//tr/td[1]', 'name[]' => 'TEXT';
process '//tr/td[2]', 'attr[]' => 'TEXT';
};
};
for my $pagedata ( @pdata ){
my $res = $pagedata->scrape( \$html_content )
or die "Can't define content to parser $!";
print Dumper( $res ), "\n\n";
}
__END__
$VAR1 = {
'table' => [
{
'name' => 'key1',
'attr' => 'val1'
}
]
};
$VAR1 = {
'table' => [
{
'name' => [
'key1',
'key2',
'key3',
'key4',
'key5',
'key6',
'key7',
'key8',
'key9',
'key10',
'key11'
],
'attr' => [
'val1',
'val2',
'val3',
'val4',
'val5',
'val6',
'val7',
'val8',
'val9',
'val10',
'val11'
]
}
]
};
$VAR1 = {
'table' => [
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef
],
'name' => [
'key1val1key2val2key3val3key4val4key5val5key6val
+6key7val7key8val8key9val9key10val10key11val11',
'key1',
'key2',
'key3',
'key4',
'key5',
'key6',
'key7',
'key8',
'key9',
'key10',
'key11'
],
'attr' => [
'val1',
'val2',
'val3',
'val4',
'val5',
'val6',
'val7',
'val8',
'val9',
'val10',
'val11'
]
};
$VAR1 = {
'table' => [
{
'name' => 'key1',
'attr' => 'val1'
},
{
'name' => 'key2',
'attr' => 'val2'
},
{
'name' => 'key3',
'attr' => 'val3'
},
{
'name' => 'key4',
'attr' => 'val4'
},
{
'name' => 'key5',
'attr' => 'val5'
},
{
'name' => 'key6',
'attr' => 'val6'
},
{
'name' => 'key7',
'attr' => 'val7'
},
{
'name' => 'key8',
'attr' => 'val8'
},
{
'name' => 'key9',
'attr' => 'val9'
},
{
'name' => 'key10',
'attr' => 'val10'
},
{
'name' => 'key11',
'attr' => 'val11'
}
]
};
$VAR1 = [
{
'name' => 'key1',
'attr' => 'val1'
},
{
'name' => 'key2',
'attr' => 'val2'
},
{
'name' => 'key3',
'attr' => 'val3'
},
{
'name' => 'key4',
'attr' => 'val4'
},
{
'name' => 'key5',
'attr' => 'val5'
},
{
'name' => 'key6',
'attr' => 'val6'
},
{
'name' => 'key7',
'attr' => 'val7'
},
{
'name' => 'key8',
'attr' => 'val8'
},
{
'name' => 'key9',
'attr' => 'val9'
},
{
'name' => 'key10',
'attr' => 'val10'
},
{
'name' => 'key11',
'attr' => 'val11'
}
];
$VAR1 = {
'table' => [
{
'name' => [
'key1'
],
'attr' => [
'val1'
]
},
{
'name' => [
'key2'
],
'attr' => [
'val2'
]
},
{
'name' => [
'key3'
],
'attr' => [
'val3'
]
},
{
'name' => [
'key4'
],
'attr' => [
'val4'
]
},
{
'name' => [
'key5'
],
'attr' => [
'val5'
]
},
{
'name' => [
'key6'
],
'attr' => [
'val6'
]
},
{
'name' => [
'key7'
],
'attr' => [
'val7'
]
},
{
'name' => [
'key8'
],
'attr' => [
'val8'
]
},
{
'name' => [
'key9'
],
'attr' => [
'val9'
]
},
{
'name' => [
'key10'
],
'attr' => [
'val10'
]
},
{
'name' => [
'key11'
],
'attr' => [
'val11'
]
}
]
};
