Stories
Slash Boxes
Comments
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

use Perl Log In

Log In

[ Create a new account ]

Allison (3003)

Allison
  (email not shown publicly)

Human (I think).

Journal of Allison (3003)

Tuesday October 15, 2002
01:22 PM

Narcography

[ #8385 ]
A tip for writers: if you fall asleep while editing an article, don't keep making notes after you're asleep. A case in point:

"Beware the Perl 6 early-morning joggers."

Ummmm.... huh? Someone's been reading a bit too much Lewis Carroll, eh? :)

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • Oh sure, criticize Perl's early-morning joggers without once mentioning the inherent limitations of Python's mid-evening power walkers! The fact is that Python is dependent on the gravitational constant remaining constant, while not only can Perl cope with differing values of big G, Damian even has a module that emulates gravitational constant changes for you. Just you try moving Python scripts between two machines using different values of big G and see whether you think early-morning joggers are so bad
    • ‘Twas bind, and the socketpair times
      Did glob and grep in the wait:
      All msgget were the binmode,
      And the map rand opendir.

      Beware the Perl 6 early-morning jogger!
      The shoes that trip, the skin that blinds!
      Beware the Java bowler, and shun
      The Ruby gymnast in tights!

    • Damian even has a module that emulates gravitational constant changes for you.

      Oh, it's much more general than that:

          package Inconstant;   

          sub import {   
              my ($T0, $class, $caller) = (time, shift, caller()."::");   
              (*{$caller."T"}, *{$caller."T0"}) = (sub(){time}, sub(){$T0});   
              do{ tie my($fn), $class; *{$caller.$_} = sub():lvalue{$fn} } for @_;