[
Thread Prev][
Thread Next] >
Date Index
>
Thread Index
LWP::Simple Verständnisfrage
Stefan Bauer -
Tue Dec 11 20:49:01 2007
Hallo Liste,
#!/usr/bin/perl -w
use strict;
use LWP::Simple;
my $url = 'http://www.debian.org/security/2007/';
my @meldung;
my @webseite = get($url);
foreach my $line (@webseite) {
if ($line =~ m/<tt>\[(.*)\]<\/tt> <strong><a href=".\/(dsa-.*)">/) {
eintrag_erstellen($1, $2);
}
}
print @meldung;
sub eintrag_erstellen {
my ($datum, $link) = @_;
my $meldung = $link . ' vom ' . $datum . "\n";
push (@meldung, $meldung);
}
Leider enthällt @meldung nur genau einen Treffer, die regex sollte
vielmehr in der $url finden. Was hab ich vergessen? *grübel* Ich seh
gerade den Wald vor lauter Bäumen nicht.
Gruß
Next: