Weekly Perl Script

[Bill Jones]

On the Jax.PM jacksonville-pm-list;
"Bill Jones" <bill at fccj.org> wrote -


> On the Jax.PM jacksonville-pm-list;
> Steve Lane <sml at zfx.com> wrote -

>>     if ($wday < $beginWeek || $wday > $endWeek) {
>>         $invalid = 1;
>>     } elsif ($hour < $axsStartHr) {
>>         $invalid = 1;
>>     } elsif ($hour >= $axsStopHr) {
>>         $invalid = 1;
>>     }

> $invalid =
>     ($wday  < $begin_week || $wday > $end_week) ? 1
>   : ($hour  < $axs_start_hr)                    ? 1
>   : ($hour >= $axs_stop_hr)                     ? 1
>   : 0;


Yes :)

print "Valid" unless (
    (0  < 0 || 0 > 0) ? 1
  : (0  < 0)          ? 1
  : (0 >= 1)          ? 1
  : 0
)

This concept really goes against the perl
grain in that 0 = false, >0 = true...

Anyone have any others?
-Sneex-  :]
FCCJ Data Security Group
______________________________________________________________________
Bill Jones  Data Security Specialist  http://www.fccj.org/cgi/mail?dss


The Jacksonville Perl Monger's Group is operated by -
Bill -Sneex- Jones ( sneex at usa.net ),
to whom send all praises, complaints, or comments...