http://qs321.pair.com?node_id=167765

Okay, this isn't really an obfuscation, but it is better here than anywhere else I believe. What does it do? Pass it any number and it will see how many seconds it takes for your computer to count that high. Granted, your computer is actually faster: it would run faster without the print statements :)

#!/usr/bin/perl #Usage: "script.pl INT" [INT = any # (5000+ to see anything)] ${_}=time;print$.++."\r"while($.<$ARGV[0]);$_=abs(time-$_);print$_." s +econds.";

No, it doesn't break Deparse. I am still working on figuring out a destruction method for that...

Replies are listed 'Best First'.
Re: System Speed
by jynx (Priest) on May 20, 2002 at 17:00 UTC

    The load time of Perl is small enough that you can use the esoteric $^T here and not lose any accuracy (at least, not enough to matter; if you were using Time::HiRes it would :)
    #!/usr/bin/perl #Usage: "script.pl INT" [INT = any # (5000+ to see anything)] print++$_,"\r"while$_<$ARGV[0];print$/,abs($^T-time),"s$/"
    jynx