On Fri, Aug 09, 2002 at 08:53:56AM +0100, Stephen Turner wrote: > By the way, isn't it incredibly annoying that there isn't a single Perl > variable which defaults to 1? (My UID is 1000, which would have worked well, > but I doubted it met the "work everywhere" constraint. :-)
That is the single most frustrating thing that I constantly run up against when golfing (but it forces creativity!). Another possibility may be to take the first digit of $^T... an approach that may be valid for all places (if the system clock is correct), but not for all times. In particular, it should fail beginning April 17, 2033. -- Mike -- Michael W. Thelen eval unpack u,'M*"1C/2<P,BDN-"`U+C`A(RLG*3U^>2\A+48O82UZ+SME=F%L*"1C+B(G=2HGM+" <Z,D<U4SU<(B%!.T9=5#HF-5(H)2%%/$907$`Z)B5#.E8U4BM@2&`G+EPD$+R(I.P``'
