Hallo Malte,
Warum ignoriert er bloss die
foreach $zeile (@link)
»» {
»» print $zeile;
»» }
Unterhalb der Zeile:
open(f_link, "<links.csv") die "kann links.csv nicht lesen\n";
hast du stehen:
@link = ("");
Die Anweisung verstehe ich da nicht. Damit loeschst du doch den gesamten Array, den du zuvor mit:
while(<fh_link>) { push(@link, $_); }
gefuellt hast!
Und dann ist es eigentlich auch klar, warum keine $zeile ausgegeben wird. @link ist ja leer!
Bevor Du @link mit den Daten aus <fh_link> versorgst, hast du schon mal ein:
@link = ("");
dastehen. Macht als saubere Initialisierung auch Sinn. Nur das zweite Vorkommen dieser Anweisung weiter unten solltest du mal entfernen.
viele Gruesse
Stefan Muenz