Mehrdimensionale Arrays (gelöst) - #170729 (Allgemeines zu Perl)

der_thomas

2013-09-27 22:49

User since
2013-09-07
158 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich habe heute ein wenig mit mehrdimensionalen Arrays rumprobiert und das klappt auch alles wie gewollt - sicherheitshalber will ich aber trotzdem fragen ob das so wie ich es mache richtig ist ?
Es geht also darum ob das alles auch viel einfacher ginge und ob ich mir mit meiner Vorgehensweise nicht irgendwelche späteren Probleme einhandle ?

Die Tabellen die ich umsetzen will haben so 200 Datensätze (Zeilen) und bis zu 20 Spalten - und müssen erweiterbar, veränderbar und nach Spalten sortierbar sein.

Code (perl): (dl )

#!/usr/bin/perl

use v5.12;
#use strict;
use warnings;


my @daten0 = qw[Blume Baum Pilz Rose Obst Gemüse];
my @daten1 = qw[1 2 3 4 5 6];
my $ref0 = \@daten0;
my $ref1 = \@daten1;

# Matrix erstellen
my @matrix = ($ref0, $ref1);
        print  "Vorher: ".${$matrix[0]}[1]."\n";

# Eintrag ändern
${$matrix[0]}[1] = "Ahornbaum";
        print  "Nachher: ".${$matrix[0]}[1]."\n";

# Neue Daten-Zeile hinzufügen
my @daten2 = qw[Hai Hirsch Käfer Fisch Reh Tiger];
my $ref2= \@daten2;
push @matrix, $ref2;
        print  ${$matrix[2]}[-1]."\n";

# Datensätze austauschen/verschieben
    print  "Vorher: ".${$matrix[2]}[3]."\n";
#@daten0,@daten2 = @daten2,@daten0; # funktioniert nicht
my @tempdaten = @daten0;
@daten0 = @daten2;
@daten2 = @tempdaten;
        print  "Nachher: ".${$matrix[2]}[3]."\n";