Re: [MacPerl] TPJ Contest Winner

[Richard Rathe <rrathe@dean.med.ufl.edu>]

On 9/26/96 Chris Nandor wrote:

>Here is his code:
>
>*_=\$#;$/=q#(.)#;$#=10;$^X=~s|.*/||;$\=chr;$#=gmtime$#;substr($#,$^F#^F
>*$^F**$^F-1)=al;s$\$/( )\$/\$/$e\$2\u\$^X\$2\$3o\$1r$    && print time
>
>
>Anyway, when run, you indeed get "The Perl Journal" -- if you run it on a
>UNIX.  If you run it on a Mac, you get "Fre MacPerl Joirnal
>".  Hmmm ...

Could the difference be due to the time functions?

>From pod/macperl.html:

>VARIA
>
>All time related functions measure time in seconds from 1904, not 1970 as
>in Unix.

RR

__________________________________________________________________________
  Richard Rathe, MD                              rrathe@dean.med.ufl.edu
  University of Florida                  http://www.med.ufl.edu/medinfo/