Thread Verständnisproblem mit einer komplexen Datenstruktur (9 answers)
Opened by roli at 2016-01-26 13:32

hlubenow
 2016-01-27 00:35
#183652 #183652
User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]
Hier nochmal ein Beispiel dazu. Wenn Du z.B. die Spalten (Columns) haben willst, kann man das Dereferenzieren gleich in der Klasse machen. Dadurch hält man die Komplexität der Variablen relativ niedrig:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

#!/usr/bin/perl

use warnings;
use strict;

package Name_option;

    sub new {
        my $classname = shift;
        my $args = {@_};
        my $self = { name => $args->{name} || "default",
                     cols => $args->{cols} || [] };
        return bless($self, $classname);
    }

    sub getCols {
        my $self = shift;
        return @{$self->{cols}};
    }

package main;

my $n = Name_option->new(name => "xz2d4",
                         cols => ["ID", "Datum", "Vorname"]);
my @cols = $n->getCols();
for my $i (@cols) {
    print "$i\n";
}

Grundsätzlich arbeite ich lieber mit einfachen Arrays und Hashes als mit AoHoHoA oder so.

View full thread Verständnisproblem mit einer komplexen Datenstruktur