[JaxPM] Perl Question

[j proctor]

On the jacksonville-pm-list; Jax.PM'er j proctor <jproctor at oit.umass.edu> wrote -


without actually testing this...

[...]
this line:

        print "<td align=right>$_</td>\n";

becomes:

    my $day = (localtime)[3];

    print   qq(td align="right">) 
          . ($_ == $day) ? qq(<a href="whatever.cgi?day=$_">$_</a>) : $_
          . qq(</td>\n);

and that should do it.  Well, except if they run the program just before
midnight and don't look at the results until after. 


j


Jax.PM Moderator's Note:
This message was posted to the Jacksonville Perl Monger's Group listserv.
The group manager can be reached at -- owner-jacksonville-pm-list at pm.org
to whom send all praises, complaints, or comments...