Aus einer Textdatei alle http: URL's rausfiltern....Wie mach ich das?

[n.d. parker]

hi ho

Name: Max Mustermann
Straße: Musterstraße 1
PLZ: 11111
Ort: Musterort
URL: http://www.mustermann.de

wenn der aufbau der datei wirklich so standardisiert ist, sollte folgendes funktionieren:

#!/usr/bin/perl -w

$rein="namedertextdatei";
$raus="namederurldatei";

open REIN,"<$rein" or &error (tralala);   # oeffnen zum lesen
open RAUS,">$raus" or &error (soundso);   # und zum schreiben
while (<REIN>) {
  if (/^URL:\s*(.+)$/) {                  #  siehe perldoc perlre :-)
    print RAUS "$1\n";
}
close RAUS;
close REIN;

Trara!

cua

n.d.p.