my $number = 1; my $actualPage = 1; my $resultsPerPage = 4; my $count = int((@$array+$resultsPerPage-2)/$resultsPerPage); my $start = ($actualPage-1)*$resultsPerPage; my $end = $start+$resultsPerPage-1; foreach (@$array[$start..$end]) { #Das Array of Hash durchlaufen if ($_->{plz} eq $convert && $_->{Geschlecht} eq $temp) { #Wenn in dem aktuellen Element Stadt der eingegebene Ort steht... my $pfad_bild = "../bilder/".$_->{Bild_klein}; #Den richtigen Pfad des kleinen Bildes anhängen print "\n"; #Ausgabe der ID print "\n"; #Einfügen des Bildes print "\n"; #Ausgabe der Stadt print "\n"; #Ausgabe des Names print "\n"; #Ausgabe Mann oder Frau print "\n"; #Ausgabe des Alters print "\n"; #Ausgabe der Größe print "

ID:	".$_->{ID}."	{ID};orte=$_->{Stadt}>
Ort:	".$_->{Stadt}."
Name:	".$_->{Name}."
Geschlecht:	".$_->{Geschlecht}."
Alter:	".$_->{Alter}."
Groesse:	".$_->{Groesse}."
{ID};plz=$_->{plz};art=$_->{Geschlecht}>...Details

"; #Link für Detailsansicht, es wird die ID mitgeschickt um das Element des Arrays zu wissen } elsif ($_->{plz} eq $convert && $_->{Art} eq $temp) { #Wenn in dem aktuellen Element Stadt der eingegebene Ort steht... my $pfad_bild = "../bilder/".$_->{Bild_klein}; #Den richtigen Pfad des kleinen Bildes anhängen print "\n"; #Ausgabe der ID print "\n"; #Einfügen des Bildes print "\n"; #Ausgabe des Names print "\n"; #Ausgabe der Stadt print "\n"; #Ausgabe der Größe print "\n"; print "

ID:	".$_->{ID}."	{ID};orte=$_->{Stadt}>
Straße:	".$_->{Strasse}."
Ort:	".$_->{Stadt}."
Kontakt:	".$_->{Kontakt}."

{ID};plz=$_->{plz};art=$_->{Art};>...Details

"; #Link für Detailsansicht, es wird die ID mitgeschickt um das Element des Arrays zu wissen } } print "
zurück
\n"; #Link zur Startseite #print "Anzahl der Seiten: ".$count."
\n"; print "Seiten: \n"; while ($number<$count) { print $number++." \n"; } print "

"; print "\n"; print "\n";