Re: Perl/mySQL - mein Script verschluckt immer/nur den ersten Datensatz eines Kunden.

[Jan Kunzmann <kunzmann_(at)_dcm.de>]

Hi Thomas,

> der erste Datensatz eines Kunden wird "verschluckt".
> [...]
> ####für eine Zeile der Ergebnismenge
> my ($hash_ref) = $sth->fetchrow_hashref();
> my ($kennung) = $hash_ref->{'kennung'};
> [...]
> while ($hash_ref = $sth->fetchrow_hashref())
> 
>  my $immoart = $hash_ref->{'immoart'};
>  my $baujahr = $hash_ref->{'baujahr'};

Nuja, du machst halt 2x fetchrow... das erste Mal, wenn du den
persönlichen Kundensatz holst, und das zweite Mal, wenn du mit der
Ausgabe der Angebote beginnst. Damit steht beim Beginn der
While-Schleife schon der 2. Datensatz im Hash.

Lösung:

my ($hash_ref) = $sth->fetchrow_hashref();
my ($kennung) = $hash_ref->{'kennung'};
usw.
[...]
do {
  my $immoart = $hash_ref->{'immoart'};
  my $baujahr = $hash_ref->{'baujahr'};
} while ($hash_ref = $sth->fetchrow_hashref())

Gruß Jan

---
*** Weitere Infos zur Mailingliste und MySQL unter www.4t2.com/mysql