Another 'prettyfu' for your amusment, ladeez an' gennlemen - a mere bagatelle, but fun to write.
@s=map{[ (' ')x 60]}(0..40); ($m,$h )=(localtime) [1,2];t( 20,$_/5,$_%5 ?".":$_/5) for(1..60);t( $_*1.5,$m/5 ,p($_))for(1.. 12);t($_*1.5, $h%12+($m/60) ,p($_+14))for( 0..10);print join("\n", map{ join('',@$_) }@s);sub t{ $s[ 20-$_[0]*cos (.52*$_[1])][30 +$_[0]*1.50 *sin(0.52*$_[1 ])]=$_[2]} sub p{substr( " Just Another Perl ". "Clock",$_[0],1)}
Cheers, Ben.

Replies are listed 'Best First'.
Re: Clock
by rob_au (Abbot) on Sep 24, 2003 at 14:19 UTC
    Very nice ... I'm glad to see that I'm not the only one who has derived obfu-fun from analog clocks - My past obfu-fun with clocks can be found here and here.


    perl -le "print+unpack'N',pack'B32','00000000000000000000001010000110'"

      Sweet. I wish I'd seen them before bothering presenting this (I did a big search for 'clock', but missed both 'tick' and 'tock' :)) - I might have tried a little harder :)