Thread Datenstruktur (4 answers)
Opened by tcicit at 2010-11-15 11:32

Gast tcicit
 2010-11-16 08:44
#142769 #142769
Noch mals ich, das unten aufgeführt Beispiel hat funktioniert. Ich musste nur die Ausgabe noch in ein File um leiten. Danke.

Nun habe ich noch eine zusätzliche Frage, wenn man mal angefangen hat hört es nicht mehr auf ...

Ich habe nun die Idee gehabt das selbe für eine kleine Abfrage zu machen und die Abfrage aber in ein sub auszulagern damit ich sie immer wieder brauchen kann. Das funktioniert soweit auch ganz gut, aber wie komme ich dann im Programm wieder an die Wert?

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

my $kap = kapitel();
foreach (sort keys %$kap) {
   print %{$kap->{$_}->{name}}, "\n";
}
        


sub kapitel {

   # Daten aus der DB Lesen
        
    while (my @row=$sth->fetchrow_array()){
                        
        $rec = {};
                $rec->{key} = $row[0];
                $rec->{name} = $row[1];
                $rec->{sort} = $row[2];
                $rec->{status} = $row[3];
        
                $inRec{ $rec->{key} } = $rec;
        }
        
        return \%inRec;

} # END kapitel


Last edited: 2010-11-16 08:50:27 +0100 (CET)

View full thread Datenstruktur