Thread Perl: weil es so schön ist (3 answers)
Opened by Crian at 2004-01-05 12:50

pktm
 2004-01-03 21:51
#18735 #18735
User since
2003-08-07
2921 Artikel
BenutzerIn
[Homepage]
user image
Hallo!
Nachdem meine Anweisungen in meinen Programmen im Vergleich zu früher immer länger werden habe ich mir mal den Spaß erlaubt eine Anweisung zu zerpflücken:
Code: (dl )
$zw_t->param( "vnav" => [{"link" => $cgi->a( {href => $cgi->url(-full=>1) . "?action=$keyword" }, "$titel"),},] );

Das kam dabei raus:
Quote
Gegeben: Templateobjekt, CGI-Objekt (Details irrelevant).
Weise beim Template-Objek dem Wiederholungs-Parameter "vnav" eine Referenz auf eine Liste mit einem Element zu,
welches aus einer Referenez auf eine assoziative Liste besteht, dessen assoziativer Name stets "link" ist welcher so innerhalb des Wiederholunggsparameters
im Template definiert ist und deren Wert sich aus der erzeuge-einen-Hyperlink-Funktion mit Protokoll, Server und Port des CGI-Objekts sowie einem
Aktionsparameter mit der jeweiligen Aktionsparametervariable $keyword besteht, wobei der Benutzer jeweils den Titel $titel für den erzeugten Link sehen
können soll.


Ich finde das irgendwie lustig wie komplex eine einzige Zeile Programmcode sein kann :ghostface:
mfg pktm
http://www.intergastro-service.de (mein erstes CMS :) )

View full thread Perl: weil es so schön ist