Keep It Simple, Stupid PerlMonks

### Re: Camel Time

by belg4mit (Prior)
 on Aug 16, 2002 at 02:15 UTC ( #190578=note: print w/replies, xml ) Need Help??

Spiffy, but in your explanation you neglected to say at what time(s) the hands can be read (clockwise of course) as a sentence :-P

UPDATE: This ever so slightly tweaked version lets you see the *cough* camel *cough* as well :-D

```#!perl  -w
use strict;
\$_='
\$,=\$/;\$|=@_
=split//,"Justan                ot
+he
rPerl.hacker";\$/=\'\$~=         (local
+ tim
e)[\$.]*(\$.==0||\$.==1?1:5);s      ubstr(\$
+_,eval
\\\'\$^=\$~*2*atan2(1,1)/15;int(-  cos(\$^) *
+(\$=+
1)+11.5)*25+int(sin(\$^)*(\$=+1)+12.5)\\\',1
+,
\$_[\$=+(11,4,0)[\$.]])\';do{\$_=("."x287).
"#"."."x287;for\$=(0..10){\$.=0;eval\$/;
\$=<7&&(\$.=1,e         val\$/);\$=<4&
&(\$.=2,ev             al\$/);}p
rint(p               ack("
c3  ",                27,9
1,  72                ),(/
.{  25                }/g)
,s  ca                lar(
lo   cal              time)
);}   whil            e(slee

p(1))';print;s/\s+//g;eval

--
perl -pew "s/\b;([mnst])/'\$1/g"

Create A New User
Node Status?
node history
Node Type: note [id://190578]
help
Chatterbox?
 [Corion]: karlgoethebier: Heh - naah, I think they are just very fresh out of university. At least they seem to have hired one person as key accountant who has done enterprise consulting etc. before :) [Corion]: erix: It wouldn't be nice of me to publically shame and name ;) [Corion]: I'm interested in how their product actually works. It uses websockets between two non-browser components, so there are some weird technology decisions, or rather, I assume the product started out as something completely different :) [erix]: fair enough

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (10)
As of 2018-04-19 12:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
My travels bear the most uncanny semblance to ...

Results (73 votes). Check out past polls.

Notices?