[ILUG-Webdev] Perl: counter for three columns

[adam beecher]

Thanks eh... Thallophytic. That didn't work, I ended up with a rake of
columns. With a little tweaking and twiddling, I managed to get it to the
right number of columns with (($blah1%$blah2)==0), however I'm getting odd
results now. For example, I'm getting the smaller number of feeds in the
first column, whereas it should be in the last. Logic is pissing me off, I'm
going drinking now! This is the latest code I have, but I have no idea how
far I got with it... :)


        # Columns hack by Thallophytic g0d <hostyle at csn.ul.ie>
        my $count = $#channels + 1;
        my $counter = 0;
        my $columns = 4;
        my $stop = int(($count / $columns) + .5);
        my $width = int((100 / $columns) + .5);

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

    # get the user's window target preference (which controls
    # whether links should open up in the current or a new window.
    my $link_target = get_setting( "user_link_target" );

    # for each channel, parse and display.
    foreach my $channel (@channels) {

        $counter++;

        if ( ($counter % $stop) == 0 ) {
            to_browser(qq{  </td>\n  <td width="$width%">});
        }



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


> -----Original Message-----
> From: Thallophytic g0d [mailto:hostyle at csn.ul.ie]
> Sent: 11 December 2003 15:59
> To: adam beecher
> Cc: WEBDEV
> Subject: Re: [ILUG-Webdev] Perl: counter for three columns
>
>
> On Thu, 11 Dec 2003, adam beecher wrote:
>
> >
> > # 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?
>
> Completely OTOH and untested, something like the following should do it.
>
>
> my $columns = 3;
> my $counter = 0;
> my $width = 100 / $columns;
>
>
> foreach my $channel (@channels) {
>     $counter++;
>     if ( $counter % $columns ) { # if there is a remainder
> 				 # add another cell
>         to_browser(qq{ </td><td width="$width%"> });
>     } else { # no remainder, end our row
>         to_browser(qq{ </tr><tr> });
>     }
> }
>
> Obviously the </tr><tr> isn't ideal ... but you should get the
> drift of it