Anzahl von Zeilen und Spalten eines 2 Dim. Arrays - #63627 (Allgemeines zu Perl)

dominicn

2006-03-09 10:35

User since
2003-08-08
327 Artikel
BenutzerIn
[default_avatar]

Da zweidimensionale Arrays eigentlich Arrays von Referenzen auf Arrays sind, musst du das selbst implementieren:

Code: (dl )

my $spaltenzahl = @{$array[0]}

... wenn du davon ausgehst, dass alle Zeilen die gleiche Spaltenzahl haben. Sicherer wäre es dann so:

Code: (dl )

my $spaltenzahl = 0;
foreach my $zeile (@array) {
    if (scalar @$zeile > $spaltenzahl) {
        $spaltenzahl = @$zeile;
    }
}

ungetestet!