Opened by Kathrin at 2004-12-16 16:21
User since
2004-02-19
1750 Artikel
BenutzerIn
2004-02-19
1750 Artikel
BenutzerIn
hm, also, seh ich das richtig, dass immer nur das letzte element aus der produkt-datenbank gezogen wird? das dürfte, wie esskar schon gesagt hat, daran liegen, dass der %hash bei jedem schleifendurchlauf überschrieben wird. ich würde folgendes vorschlagen:
damit hast du dann alle ergebnisse aus der produktdatenbank in @produkte (<= array of hashes).
kommst du damit dann weiter?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
my @produkte;
while (my @row = $sth_suchen->fetchrow_array()) {
my %hash;
$hash{identnr} = $row[0];
$hash{doctyp} = $row[2];
$hash{docname} = $row[3];
$hash{head_de} = $row[4] if ($row[1] eq 'DE');
$hash{head_en} = $row[4] if ($row[1] eq 'EN');
$hash{head_fr} = $row[4] if ($row[1] eq 'FR');
$hash{deutsch} = $row[5] if ($row[1] eq 'DE');
$hash{englisch} = $row[5] if ($row[1] eq 'EN');
$hash{franz} = $row[5] if ($row[1] eq 'FR');
$hash{ersteller}= $row[7];
$hash{werk} = $row[8];
$hash{check1} = $row[9];
$hash{check2} = $row[10];
$hash{check3} = $row[11];
$hash{check4} = $row[12];
push @produkte, \%hash;
}
damit hast du dann alle ergebnisse aus der produktdatenbank in @produkte (<= array of hashes).
kommst du damit dann weiter?
$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78
0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0
F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0
F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B