Leser: 1
2 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use strict;
use LWP::Simple;
use HTML::TableExtract;
my $html = get($url);
my $te = HTML::TableExtract->new( depth=>0, count=>0, keep_html => 1 );
$te->parse($html);
my $ts;
my $row;
foreach $ts ($te->table_states) {
foreach $row ($ts->rows) {
print join(',', @$row), "\n";
}
}
1;
2 Einträge, 1 Seite |