Thread Struct array und unterprogramm
(20 answers)
Opened by Eles at 2010-10-28 13:29
wenn ich raten müsste würde ich sagen der Code sieht im groben so aus:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 # Datenbank öffnen my $dbh=DBI->connect(...) or die("ERROR CONNECT: $DBI::errstr\n"); # abfrage: my $sth=$dbh->prepare('SELECT (name,preis,menge) FROM ... WHERE ...'); $sth->execute(...); my @Artikel; my $Artikel_count=0; while(my $array_ref=$sth->fetchrow_arrayref()) { $Artikel[$Artikel_count]=$array_ref; $Artikel_count++; } ... Das ließe sich dann recht einfach ändern: 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 # Datenbank öffnen my $dbh=DBI->connect(...) or die("ERROR CONNECT: $DBI::errstr\n"); # Abfrage: my $sth=$dbh->prepare('SELECT (name,preis,anzahl) FROM ... WHERE ...'); $sth->execute(...); my @Artikel; while(my $hash_ref=$sth->fetchrow_hashref()) { push(@Artikel,$hash_ref); } # Ausgabe: for my $artikel (@Artikel) { print_Artikel($artikel); } sub print_Artikel { $artikel = shift; print "<!-- Name: $artikel->{name} -->\n"; print "<!-- Preis: $artikel->{preis} -->\n"; print "<!-- Anzahl: $artikel->{anzahl} -->\n"; print "<!--geht2-->\n\n"; } |