[ILUG-Webdev] Perl: counter for three columns

[adam beecher]

I'm tooling around a little with the AmphetaDesk RSS reader however my
Perl's a bit rusty. At the moment the feeds are split into two columns,
using this perl:

# Hack to create two columns. Nasty perl but it's been a while.
my $count = $#channels + 1;
my $half = int($count / 2) + 1;
my $counter = 0;

# Open the table
to_browser(qq{ <br /><table width="100%"><tr valign="top"><td
width="50%"> });

# for each channel, parse and display.
foreach my $channel (@channels) {
    $counter = $counter + 1;
    if ( $counter == $half ) {
        to_browser(qq{ </td><td width="50%"> });
    }


I'd like to change this to use three columns, which I guess I could do by
dividing by three and adding one like yerman does above (doesn't perl have a
modulus operator?), and then multiplying by two and yadda yadda, but I'd
like to make a $columns var that I can adjust. Any hints for me?

adam


<?php
$s=array(74,65,112,104,112,72,32,59,45,41);
for($i=0;$i<count($s);$i++){echo'&#'.$s[$i].';';}
?>