Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Alternating colors for HTML Table's

by narainhere (Monk)
on Sep 06, 2007 at 10:28 UTC ( #637375=perlquestion: print w/replies, xml ) Need Help??
narainhere has asked for the wisdom of the Perl Monks concerning the following question:

Hi monks,

I would like to share the wisdom I gained.We come across situations when we need to generate a HTML table and stuff some data into it.If the table contains large number of rows we would use bi-(or)multi-color to make it easier to read and for some visual appeal. We can do it in a line of code

@colors=("blue","green"); foreach $row(@rows) { print "<TR BGCOLOR=".$colors[push(@colors,shift(@colors))- +@colors].">".$row."</TR>"; }
This keeps on swapping the colors for each row and code too will look neat and simple.Any more simplification welcomed!!

Be inspired by Perl REGEX when you choose your spouse!!

Replies are listed 'Best First'.
Re: Alternating colors for HTML Table's
by marto (Bishop) on Sep 06, 2007 at 11:18 UTC
    I try to keep HTML seperate from my code, using HTML::Template and <TMPL_IF NAME="__first__">,<TMPL_IF NAME="__odd__"> etc you can achieve this sort of result. Check out the documentation from examples.

    Hope this helps

    Update:Slight rewording and link to the docs.

Re: Alternating colors for HTML Table's
by ctilmes (Priest) on Sep 06, 2007 at 10:45 UTC
    my @colors = qw(blue green); my $i = 0; foreach my $row (@rows) { print "<TR BGCOLOR=$colors[$i++ % @colors]>$row</TR>"; }
Re: Alternating colors for HTML Table's
by moritz (Cardinal) on Sep 06, 2007 at 11:29 UTC

    use Tie::Cycle; tie my $color, 'Tie::Cycle', [qw(red green blue)]; for my $row (@rows){ print qq{<tr bgcolor="$color">$row</tr>\n}; }

    But normally you use a template anyway...

      TIMTOWDI I like that!!!!

      The world is so big for any individual to conquer

Re: Alternating colors for HTML Table's
by hawtin (Prior) on Sep 06, 2007 at 14:17 UTC


    Personally I don't like setting format in the HTML, I find it easier to manage in the stylesheet.

    In site.css: .row_2 { background-color: #f4f4f4; } .row_1 { background-color: #ffffff; } In ... print "\@import url(/site.css);\n"; my $num_rowtypes = 2; ... my $count = 0; for(my $i=0;$i<=$#{$items_list};$i++) { print "<tr class=\"row_${count}\">". "<td class=\"pos\">".($i+1)."</td>\n"; foreach my $col ("art","tit","yer","cht") { my $val = link_to($cat,$page,$col,$nam); print "<td class=\"$col\">".$val."</td>\n"; } print "</tr>\n"; $count++; $count = 0 if($count == $num_rowtypes); }
Re: Alternating colors for HTML Table's
by Lorphos (Novice) on Sep 06, 2007 at 14:29 UTC
    Yet another WTDI:

    Data::Table has builtin support for different colors for even and odd rows.

Re: Alternating colors for HTML Table's
by Anonymous Monk on Sep 06, 2007 at 10:57 UTC
    @colors=("blue","green"); for my $row(0..$#rows) { print "<TR BGCOLOR=", $colors[ $row %2], ">", $rows[$row],"</TR>"; }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://637375]
Approved by Corion
[choroba]: I can't say "Good morning", getting the "Whoa cowboy"
[marto]: the same thing just happened to me :P
Discipulus our orders office is a crow of idiots...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (9)
As of 2017-01-19 10:05 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (170 votes). Check out past polls.