Opened by geloescht at 2012-09-30 14:59
User since
2005-06-01
469 Artikel
BenutzerIn
2005-06-01
469 Artikel
BenutzerIn
Jeder Datensatz (Tabellenzeile in der DB) wird doch per fetchrow_array() in ein Array @row eingelesen. Die Werte aus @row werden dann als anonymes Array gespeichert und eine Referenz auf dieses wird dann auf ein ebenfalls anonymes Array gepusht. Auf dieses kannst Du zugreifen, wenn Du die Referenz darauf ($rows) wieder de-referenzierst $wert = $rows->[$zeile][$spalte]:
Wenn Du alle Datensätze mit einer bestimmten kdnummer ausgeben willst:
edit: Dereferenzierungspfeile fehlten z.T., *schäm*
Last edited: 2012-09-30 19:37:57 +0200 (CEST)
Code (perl): (dl
)
my $kdnummer_aus_zeile_3 = $rows->[3][0];
Wenn Du alle Datensätze mit einer bestimmten kdnummer ausgeben willst:
Code (perl): (dl
)
1 2 3 4 5 6
my $kdnummer = "12345" for my $zeile (@$rows) { next unless $zeile->[0] eq $kdnummer; # print join('; ', @{$rows->[$zeile]}), "\n"; # FALSCH print join('; ', @$zeile), "\n"; # korrigiert }
edit: Dereferenzierungspfeile fehlten z.T., *schäm*
Last edited: 2012-09-30 19:37:57 +0200 (CEST)
Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"