Problem: Datei mit array im array einlesen

[rolfrost]

Mahlzeit,

du möchtest wahrscheinlich mit anonymen Arrays arbeiten.

Viele Grüße, Rolf

Beispiel:

use strict;
my @anonym;
while(<DATA>){
 chomp;
 /^(\w+),(\w+)$/;
 push(@anonym, [$1,$2]);
}

Ein bischen was verändern...

$anonym[0]->[0] = 'Otto';
$anonym[0]->[1] = 'Walkes';

my @ergebnis;
foreach my $key (@anonym) {
    push(@ergebnis, "$key->[0],$key->[1]");
}

Ausgabe Ergebnis

print join "\n", @ergebnis, "\n";

__END__
Rolf,Rost
Ulrich,Hansel