Perl Monk, Perl Meditation PerlMonks

time

by teamster_jr (Curate)
 on May 01, 2003 at 15:56 UTC Need Help??

a collection of my sig timepieces:
```print "\ec";{\$_=sprintf"%02d"x3,(localtime)[2,\$x=1,0];sleep 1;s#.#\$x+=
+4;
printf"\e[%d;%dH%s\$/",\$_/3,\$x+\$_%3,(("|","_","|")[\$_%3]x vec pack(v,he
+x
unpack"x".2*\$&."a2",af099e9b39b3b789bfbb),11-\$_,1)||\$"for 4..11#eg;red
+o}
```sub w{printf"\e[%s;%sH\e[\$_[0]m%s\e[15;7H%02d:%02d:%02d %02d/%02d\$/",t
+((
\$n-3)%12),2*t(\$n),\$r<3?".":\$n,@o[2,1,0,3],\$o[4]+1}print"\ec";while(sle
+ep
1){@o=localtime;for\$r(1..3){for\$n(1..12){w}\$q=\$o[3-\$r];\$n=(\$r<2?\$q:\$q/
+5)
%12||12;w 31}w}sub t{\$r*(\$_[0]>5?-1:1)*((\$d=\$_[0]%6)?(\$d-1)%4?2:1:0)+7
+}

Let us know what you think
alex
ps: oh yeah - you need vt100...

Replies are listed 'Best First'.
Re: time
by spartan (Pilgrim) on May 04, 2003 at 00:33 UTC
++ Nice... I really enjoyed the latter...

Very funny Scotty... Now PLEASE beam down my PANTS!
Re: time
by Huele-pedos (Acolyte) on May 01, 2003 at 18:18 UTC
Muy bueno!
Re: time
by nite_man (Deacon) on May 02, 2003 at 09:40 UTC
Cool! I think that scripts like this show Perl power and strength!

P. S. If you will put some delimiter (like ':') between hours, minutes and seconds you watch will be more clear

```
--------------------------------
SV* sv_bless(SV* sv, HV* stash);
```
Re: time
by Skeeve (Parson) on May 02, 2003 at 06:58 UTC
... I'm missing words. I'm simply impressed!

Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://254692]
Front-paged by broquaint
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others chanting in the Monastery: (7)
As of 2024-05-18 12:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?

No recent polls found