[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: