Beitrag von Jürgen (614 Beiträge) am Donnerstag, 9.Januar.2003, 23:42.
Auflistung DB von - bis
Antworten
Beitrag von Jürgen (614 Beiträge) am Freitag, 10.Januar.2003, 02:22.
Perl Profis gefragt
Hey Leute,
habs hinbekommen, jedoch hab ich ein anderes Prob jetzt.
Wie kann ich das einfacher proggen??
Will verschiedene Bilder anzeigen lassen nach Trefferquote. Hier mal der Code:
<loop db=gastro sort=Lokalname Lokalname\>=$von&Lokalname\<$bis Kuechenart~=$Art Freigegeben==1 code=perl range^=0,1>
</loop>
<perl>
$treffer = "http://www.meinedomain.de/okmen.jpg"; # Treffer
$sorry = "http://www.meinedomain.de/sormen.jpg"; # keine Treffer
unless ($_amount_query)
{
$status=$sorry;
} else
{
$status=$treffer;
}
</perl>
<IMG SRC="$status" BORDER=0>
Sicher geht das besser, aber ich bin Anfänger in Perl.
Wer könnte mir helfen?
Servus Jürgen
Antworten
Beitrag von Sander (8133 Beiträge) am Freitag, 10.Januar.2003, 09:28.
Re: Perl Profis gefragt
ob es einfacher ist mußt du entscheiden ;-)
<perl>
get "Lokalname>=$von Lokalname<$bis Kuechenart~=$Art Freigegeben==1 sort=Lokalname range^=0,1","gastro";
out "<IMG SRC='http://www.meinedomain.de/".($_amount_query?"okmen.jpg":"sormen.jpg")." BORDER=0>";
</perl>
Sander
Antworten
Beitrag von Jürgen (614 Beiträge) am Freitag, 10.Januar.2003, 10:42.
Re: Perl Profis gefragt
Hey Sander,
hab da etwas noch rum probieren müssen - funzte nicht auf anhieb. Mußte noch etwas maskieren.
So O.K.?
Hier mal der Code:
<perl>
get "Lokalname>=$von Lokalname<$bis Kuechenart~=$Art Freigegeben==1 sort=Lokalname range^=0,1","gastro";
out "<IMG SRC=\"http://www.meinedomain.de/".($_amount_query?"okmen.jpg\"":"sormen.jpg\"")." BORDER=0>";
</perl>
Servus
Jürgen
Antworten
Beitrag von Jürgen (614 Beiträge) am Freitag, 10.Januar.2003, 10:15.
Re: Perl Profis gefragt
Hey Sander,
danke - siet doch viel besser aus als meines. Ich hatte meine Zweifel mit dem Zeitfressen. Wäre das so auch in Ordnung gewesen?
Danke nochmal für den Tipp.
Servus
Jürgen
Antworten
Beitrag von Sander (8133 Beiträge) am Freitag, 10.Januar.2003, 10:40.
Re: Perl Profis gefragt
naja, der wechsel von loop auf perl ist ein klitzekleiner verschwender.
Sander
Antworten
Beitrag von Jürgen (614 Beiträge) am Freitag, 10.Januar.2003, 10:55.
Re: Perl Profis gefragt
Hey Sander,
besten Dank.
Servus
Jürgen
Antworten
