Opened by root at 2004-08-18 22:12
User since
2003-08-15
120 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
120 Artikel
BenutzerIn
Ich habe eine PLZ vom User und ganz viele PLZs und sogar schon Längen- und Breitengrade von Filialen.
Nun nehme ich mir alle Filialen aus der Datenbank und checke für jede wie weit sie vom User entfernt ist. Wenn die Filiale weniger als 100km entfernt ist kommen Ihre Daten in ein Hash. Die Keys vom Hash sind die Eigenschaften der Filiale, Ort, PLZ usw. Ich übergebe das an Flash, darum brauche ich so einen String.
Ich habe mich irgendwie doch wieder um ein Array mit Hashes als Listenelement rumgemogelt.
Ich brauche aber genau den String um ihn rauszuschreiben. Also habe ich es erstmal so gelassen.
Problem ist nun , ich muss die Daten so ausgeben, dass ich den Ort, mit der geringsten Entfernung als erstes nenne...
Ich habe also ein Hash mit lauter Pipe getrennten Daten.
$ausgabe{'name'} = "name1|name2|name3";
$ausgabe{'entfernung'} = "3|1|2";
$ausgabe{'...
Das soll nun nach der Entfernung sortiert werden. So dass ich dann
$ausgabe{'name'} = "name2|name3|name1";
$ausgabe{'entfernung'} = "1|2|3";
$ausgabe{'...
HILFE!!!\n\n
<!--EDIT|root|1092852917-->
Nun nehme ich mir alle Filialen aus der Datenbank und checke für jede wie weit sie vom User entfernt ist. Wenn die Filiale weniger als 100km entfernt ist kommen Ihre Daten in ein Hash. Die Keys vom Hash sind die Eigenschaften der Filiale, Ort, PLZ usw. Ich übergebe das an Flash, darum brauche ich so einen String.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
my %spaltennamen = ();
my $cnt = 0;
my $statement="SELECT * FROM filialen";
my $sth = $dbh->prepare($statement) or die("Kann keine Abfrage ($statement) starten:$DBI::errstr");
$sth->execute;
my $row;
while ($row = $sth->fetchrow_hashref)
{
my %temp=%$row;
$temp{'entfernung'} = &entfernung($temp{'bgrad'},$temp{'lgrad'}, $standort{'bgrad'},$standort{'lgrad'});
if ($temp{'entfernung'} <= $eingang{'umkreis'}){
foreach my $key (keys %temp){
$ausgabe{'data_'.$key} .= $temp{$key}."|";
$spaltennamen{$key}++;
}
}
$ausgabe{'error'} = 0;
$cnt++;
last if $cnt > 1000;
}
$sth->finish;
Ich habe mich irgendwie doch wieder um ein Array mit Hashes als Listenelement rumgemogelt.
Ich brauche aber genau den String um ihn rauszuschreiben. Also habe ich es erstmal so gelassen.
Problem ist nun , ich muss die Daten so ausgeben, dass ich den Ort, mit der geringsten Entfernung als erstes nenne...
Ich habe also ein Hash mit lauter Pipe getrennten Daten.
$ausgabe{'name'} = "name1|name2|name3";
$ausgabe{'entfernung'} = "3|1|2";
$ausgabe{'...
Das soll nun nach der Entfernung sortiert werden. So dass ich dann
$ausgabe{'name'} = "name2|name3|name1";
$ausgabe{'entfernung'} = "1|2|3";
$ausgabe{'...
HILFE!!!\n\n
<!--EDIT|root|1092852917-->