Jede zweite Zeile eines Arrays anders formatieren (Seite 2) (Perl/CGI)

[thread]386[/thread]

Jede zweite Zeile eines Arrays anders formatieren (Seite 2)

Leser: 1

Strat

2004-12-20 11:10

User since
2003-08-04
5246 Artikel
ModeratorIn

das geht mit HTML::Template sehr einfach
[html]
<TMPL_LOOP NAME=irgendwas>
<TMPL_IF NAME="_ _odd_ _"> (ohne leerzeichen zwischen den _ _)
<tr><td bgcolor="#FFFFFF">
<TMPL_VAR NAME=inhalt>
</td></tr>
<TMPL_ELSE>
<tr><td bgcolor="#E1E1E1">
<TMPL_VAR NAME=inhalt>
</td></tr>
</TMPL_IF>
</TMPL_LOOP>
[/html]
und beim HTML::Template->new den Parameter loop_context_vars auf was wahres setzen (sonst gibt es _ _odd_ _ nicht)

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

ptk

2004-12-20 11:58

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

In Template-Toolkit waere das ungefaehr so:

Code: (dl )

[% FOR i = irgendwas -%]
    <tr><td class="[% IF loop.count % 2 == 0 %]odd[% ELSE %]even[% END %]">
     [% i | html %]
    </td></tr>
[% END -%]

Man beachte, dass ich lieber Stylesheets verwende.

Taulmarill

2004-12-20 12:30

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

wenn man das ganze ohne template system macht, würde ich modulo bevorzugen:

Code: (dl )

for (1 .. 70) {
     print $_ % 2 ? "a" : "b";
}
print "\n";

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

ptk

2004-12-20 12:57

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Modulo kann man auch mit Templating-System verwenden, siehe meine Antwort :-)

View all threads created 2004-12-19 23:14.