gary: Array befüllen

Beitrag lesen

Abend zusammen,

Ich habe eine while-Schleife die eine Datei ausliest, und die enthaltenen Werte auf verschiedene Variabeln aufteilt. Geht alles Prima!

Nun müsste ich ein Array (@LinkCollect) anlegen, welches sich bei jedem Whileschleifendurchlauf mit einem weiteren Wert ($Thema) füllt. Ich habe bis jetzt das. Und so wie es aussieht, füllt sich da nix :-(

$counter = 0;
my $Layout1;
my $Thema;
my $Bild;
my @LinkCollect;
open(LESER, "<public/publisher.csv");
flock(LESER, LOCK_SH);

print "Content-type: text/html\n\n";

while(! eof(LESER)){     <---Schleifenbeginn

$counter = $counter + 1;

my $zeile = <LESER>;    <---Füllvorgang klappt
my ($Layout1, $Thema, $Bild) = split(/,/,$zeile); <--- Splitten klappt
my @LinkCollect = ($Thema);   <---Array mit Variable $Thema füllen klappt nicht

Komme mit der Selfhtml-Info nicht weiter

Bitte um Hilfe

Grüsse gary