Servus
das ist etwas krud was du da machst.
in einer datei steht eine liste von links und für jede zeile soll eine neu datei mit jeweils einem link erstellt werden ?
Richtig ?
open(LINK, "<$LINK") die "Datei "+$LINK+" konnte nicht geöffnet werden\n";
open(LINK, "$LINK") die "Datei $LINK konnte nicht geöffnet werden\n";
@ZEILEN = <LINK>;
zum lesen braucht man kein < und innerhalb doppleter anführungszeichen werden skalare übersetzt.
<FILE> liest die ganze datei im arraykontext
Eigentlich wolltest du für jede zeile eine neue datei, oder ?
$name = 0; # Z.B.
for( sort @Zeilen)
{
open NEUE, ">neue$name.html" or die "kann neue$name.html nicht öffnen";
print NEUE $_;
close NEUE;
$name++;
}
Meinst du sowas ?
Struppi.