Thread Struct array und unterprogramm (20 answers)
Opened by Eles at 2010-10-28 13:29

topeg
 2010-10-28 22:56
#142316 #142316
User since
2006-07-10
2611 Artikel
BenutzerIn

user image
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";
}

View full thread Struct array und unterprogramm