Perl-Ref -> Wie bekomme ich die Daten aus dem Array?? =))

[Struppi]

#!/usr/bin/perl

#!/usr/bin/perl -w

Die Warnungen können helfen, gerade dann wenn man mal überhaupt nicht wieter weiss.

use DBI;
use strict;

print "Content-type: text/html\n\n";

Da du kein HMTL ausgibst, aber trotzdem eine CGI Anwendung (ist das notwendig?) schreibst, wäre hier wohl ein text/plain angebrachter.

$sth->execute("%");

Was macht denn das % Zeichen?

my @array;
while (my ($vorname, $nachname, $telephon) = $sth->fetchrow_array)
{
push(@array, {vorname=>$vorname, nachname=>$nachname, telephon=>$telephon});
}

print $$array[2]{vorname};  # Vom 2. Suchergebnis der Vorname
print $$array[4]{vorname}; # Vom 4. Suchergebnis das Telephon

Du benutzt doch ein Array und keine Referenz.
print $array[index]->{vorname};  # Vom 2. Suchergebnis der Vorname

while(@array)

???
Die Referenz auf dein array dürfte immer wahr sein. Ein while erschient mir hier ungünstig, es sei denn du möchtest das array leeren:
while(shift @array)

Du willst (und musst in diesem Falle) eine foreach Schleife benutzen.

{
print $$_{vorname};
print $$_{nachname};
print $$_{telephon};
}

print $_->{vorname}. $_->{nachname} . $->{telephon} foreach(@array);

Struppi.