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

[Frank Schönmann]

hi!

#!/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"
}

Wie unschön ;)

print RAUS join "\n", grep { /^URL:\s(.+)$/ } <REIN>;

close RAUS;
close REIN;

bye, Frank!