Leser: 1
|< 1 2 3 >| | 26 Einträge, 3 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
my $file = "site1.txt";
my $url = 'http://user:pwd@my-home-page.de';
my $content = getstore($url,$file);
my $p = HTML::Parser->new();
$p->handler(start => \&start_handler,"tagname,attr,self");
$p->parse_file($file);
open(HTML_S2,"<site1.txt") or die $!;
while(my $line = <HTML_S2>){
if($line =~ s/.*?CLIENTS=(.+)/$1/gs){
my $string = $1;
my @string = split(/\ \<\/td><\/tr>/,$string);
print "@string";
}
}
close HTML_S2;
|< 1 2 3 >| | 26 Einträge, 3 Seiten |