3 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
use strict;
use LWP::Simple;
use HTML::TableExtract;
my $url="xxx";
my $content = get($url);
my $te = HTML::TableExtract->new(depth => 1);
$te->parse($content);
foreach my $row ($te->rows) {
print join(',', @$row), "\n";
}
3 Einträge, 1 Seite |