[Templates] Perl to TT question

[prev] [thread] [next] [Date index for 2004/10/19]

I have a Perl routine which does this:

my $count = 0;

while($sth->fetchrow_arrayref) {
    if ($count % 2) {
        print "something";
    }
    else {
        print "something else";
    }
    $count++;
}

Is this the equivalent?

[% count = 0;
    WHILE ($sth->fetchrow_arrayref) %]
        [% IF ($count % 2) %]
            print "something";
        [% ELSE %]
            print "something else";
        [% END %]
    count++;
[% END %]

Just trying to wrap my head around converting it to TT format.

Robert




_______________________________________________
templates mailing list
templates@xxxxxxxxxxxxxxxx.xxx
http://lists.template-toolkit.org/mailman/listinfo/templates