Slash Boxes
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
More | Login | Reply
Loading... please wait.
  • Fun! Thank you !

    The folks over at /. [] picked up on this too. (And got rather silly, as expected. PerlMonks act as if Y2K didn't happen because of the hype, instead of not happening because we fixed it first, which bugs me, but...) I rather liked their suggestion [] of celebrating Fibonacci [] day this summer, rather than waiting for the octal [] date or 1234567890 []. However in Network standard byte order, "BILL" o'clock is coming up soon, I like that, followed shortly by "Bill" o'clock.

    $ perl -le 'for (qw{BILL Bill}){print "$_ ", scalar gmtime unpack("N*",pack("a*",$_)) }' ;
    BILL Tue Mar 29 12:38:36 2005
    Bill Fri Apr 22 21:28:12 2005

    And many other words starting with B.

    $ perl -nle 'next unless /^B...$/i; s/^b/B/;
        print $_,"-",scalar gmtime unpack("N*",pack("a*",$_));' /usr/dict/words |more
    Babe-Sat Apr 16 19:07:17 2005
    Beer-Tue Apr 19 20:09:22 2005
    Byte-Thu May 5 01:18:29 2005
    (All times are GMT=UTS. Replace gmtime with localtime to get your TZ.)

    Note that April 16th is Astronomy Day [] 2005!

    Looks like there are about two stretches of mostly pronouncable time_t's per year for a while.

    # I had a sig when sigs were cool
    use Sig;