mehrdimensionales Array mit [] initialisieren (gelöst) - #165659 (Allgemeines zu Perl)

ingobulla

2013-02-08 17:44

User since
2008-08-08
20 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich würde gerne den Code

Code (perl): (dl )

1
2

my @ar = ([ [], [], [] ], 
          [ [], [], [] ]);

durch etwas weniger hart kodiertes ersetzen. Mein erster Versuch sah so aus:

Code (perl): (dl )

my @ar = map{[([]) x 3]}(0..1);

Das führt aber zu einem Array, das in der Dumper-Ausgabe so aussieht:

Code: (dl )

$VAR1 = [
          [],
          $VAR1->[0],
          $VAR1->[0]
        ];
$VAR2 = [
          [],
          $VAR2->[0],
          $VAR2->[0]
        ];

Kann mir jemand sagen, wie man das richtig macht?