nicht angemeldet
Hallo Jungs (und Mädels ? ),
ich brauche ein Script das mit für jede Zeile einer Eingabedatei eine neue Datei, mit neuem Namen ausgibt.
Beispiel:
Datei: link.csv
Inhalt:
Zeile 1 " http://www.wurstbrot.de/ "
Zeile 2 " http://www.leberwurst.de/ "
soll ausgegeben werden als
neue1.html
Zeile 1 " http://www.wurstbrot.de/ "
und
neue2.html
Zeile 2 " http://www.leberwurst.de/ "
usw.
Ich habe mich schon mal an einem Script versucht, das gibt auch die Datei aus, nur leider weiß ich nicht wie ich immer nach jeder Zeile eine neue Datei mit anderm Namen erstelle.
#!/usr/local/bin/perl5
$LINK = "link.csv"; # Links
$NEUE = "neue.html"; # Sortierte Links
@Zeilen = ("");
open(LINK, "<$LINK") die "Datei "+$LINK+" konnte nicht geöffnet werden\n";
while(<LINK>)
{
push(@Zeilen, $_);
}
close(LINK);
@Zeilen = sort(@Zeilen);
open(NEUE, ">$NEUE") die "Datei "+$NEUE+" konnte nicht angelegt werden\n";
for(@Zeilen)
{
print NEUE $_;
}
close(NEUE);
Für eure Hilfe wäre ich sehr dankbar !
Liebe Grüße Helene