[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] Q on Mac Time Zones

At 15.58 +0100 1999-01-08, Chris Nandor wrote:
>Something like this seems to work:
>
>    $diff =~ s/^(-?)(\d{3,4})$/
>        ($1 ? '-' : '+') .
>        (length($2) == 3 ? "0$2" : $2)/e;

That works equally well. I get "+0100", as I should. :-)

/Cajo.

___Carl_Johan_Berglund_________________________
   Adverb Information
   carl.johan.berglund@adverb.se
   http://www.adverb.se/



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch