Perl Probleme

[alligator]

Hi,

$datei ="auswahl.txt"; /-> meine Datei
open (DATEI, $datei); /-> öffne Datei

flock nicht vergessen

while .... (<DATEI> ) /-> durchlaufe Datei solang bis gewünschter Wert gefunden wurde

Idee (ungetestet):

my @namen;
while(<DATEI>)
{
my $i++;
print "Zeile $i: $_\n";

my @dummy = split(/,/,$_);
push(@namen, @dummy);
}

open (NEUEDATEI, ">neu.txt") or die $!;
for (my $i;$i<$#namen;$i+=2)
{
print NEUEDATEI "Vorname: $namen[$i+1]\n";
print NEUEDATEI "Nachname: $namen[$i]\n\n";
}
close NEUEDATEI;

cya
alligator