Problem mit MicroMason (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

[thread]2878[/thread]

Problem mit MicroMason

kabel

2003-09-14 21:14

User since
2003-08-04
704 Artikel
BenutzerIn
[default_avatar]

schuss ins blaue: arrayreferenz? ist es zufällig immer das erste element? ;)

-- stefan

kabel

2003-09-14 23:15

User since
2003-08-04
704 Artikel
BenutzerIn
[default_avatar]

1a problemlösungsmethode :p
nach der doku müsste es so funktionieren:

Code: (dl )

...$name, "members" => \@array);

im template dann:

Quote
Members: <% join "", @{ $ARGS{members} }; %>

HTH und das es funktioniert 8)

-- stefan

Strat

2003-09-15 00:32

User since
2003-08-04
5246 Artikel
ModeratorIn

Bei

HTML::Mason koenntest du das mit den Arrays folgendermassen machen:
[html]
<TMPL_LOOP NAME=SCHLEIFE>
Instanz <TMPL_VAR NAME=COUNT><br>
</TMPL_LOOP>
[/html]
ergibt eine Liste mit Hashreferenzen als Werten, von denen einer COUNT heissen muss. Du fuellst das Template dann z.B. folgendermassen:

Code: (dl )

1
2
3

my @liste = ('A'..'Z'); # liste
@schleife = map { {COUNT => $_ } } @liste; # liste von hashrefs
$template->param(SCHLEIFE => \@schleife); # uebergeben

\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

BrownWolf

2003-09-15 01:09

User since
2003-08-15
308 Artikel
BenutzerIn
[default_avatar]

Ach ja ich brauch noch mal Hilfe ;)
Wenn ich jetzt zb. prüfen möchte ob @array leer ist was muss ich dann in den Templates schreiben ?

Komme da überhaupt nicht mit zurecht.

Code (perl): ()

1
2
3

sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};;
&#36{{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};&#36{{}->{q{{{}}}}->[@{{}];}
&#36{{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;

BrownWolf

2003-09-15 02:44

User since
2003-08-15
308 Artikel
BenutzerIn
[default_avatar]

Ich bins nochmal.
Was ich nicht verstehe ist warum HTML::Template keine Unterstützung hat, um zu prüfen ob eine Variable bzw übergebener Wert einen bestimmten Wert hat.

Also zb:

$template->param("name" => $name);

Und dann im Template:

Code: (dl )

<TMPL_IF name="name" eq "BrownWolf">
Gib irgendwas aus ....
<TMPL_ELSE>
Gib was andres aus
</TMPL_IF>

Und nun ? -.-

Code (perl): ()

1
2
3

sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};;
&#36{{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};&#36{{}->{q{{{}}}}->[@{{}];}
&#36{{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;

BrownWolf

2003-09-15 03:07

User since
2003-08-15
308 Artikel
BenutzerIn
[default_avatar]

Und wenn man mehrere Abfragen haben möchte ?

Code (perl): (dl )

if(&#36name eq "BrownWolf") {
mache dies
} elsif (&#36name eq "test") {
Mache das
} else {
Mache jenes
}

Geht das auch mit den Templates ? :)

Code (perl): ()

1
2
3

sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};;
&#36{{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};&#36{{}->{q{{{}}}}->[@{{}];}
&#36{{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;

Strat

2003-09-15 03:36

User since
2003-08-04
5246 Artikel
ModeratorIn

auf HTML::Template habe ich gerade einen Teil der Doku zu HTML::Template auf Deutsch zu uebersetzen. Ich mache nach meinem Urlaub weiter, weil ich das fuer ein recht wichtiges Modul halte... oder hilft mir jemand?

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

eisbeer

2003-09-15 09:22

User since
2003-08-29
347 Artikel
BenutzerIn

Ja kann ich machen, so als englisch aufpolierung :) Reden wir nochmal...

Die meisten PC Probleme befinden sich zwischen Bildschirm und Stuhl...

Crian

2003-09-15 15:04

User since
2003-08-04
5866 Artikel
ModeratorIn

Ins Forum mit sonstigen Fragen zur Webprogrammierung mit Perl verschoben, da mir das am passendsten erscheint.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

BrownWolf

2003-09-14 20:31

User since
2003-08-15
308 Artikel
BenutzerIn
[default_avatar]

Hallo ich habe ein Problem mit Text::MicroMason.
Ich möchte ein Array übergeben aber er gibt immer nur ein Element aus.

Beispiel:

script.pl:

Code (perl): (dl )

1
2
3

my &#36name = "BrownWolf";
my @array = ("BrownWolf","pq","Ishka");
print execute_file("./templates/template.htm", "name" => &#36name, "members" => @array);

Dann in der template.htm:

Code: (dl )

<html>
<head></head>
<body>
Name: <% $ARGS{name} %><br>
Members: <% $ARGS{members} %>
</body>
</html>

Jetzt erscheint aber nur ein Element ...
Wenn ich $ARGS{members} zu @ARGS{members} mache (Wa s auch logisch wäre) , dann geht es auch nicht.

Jemand ne Idee ?

Code (perl): ()

1
2
3

sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};;
&#36{{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};&#36{{}->{q{{{}}}}->[@{{}];}
&#36{{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;

View all threads created 2003-09-14 21:14.