Syntactic Confectionery Delight PerlMonks

### too simple....

by Oromis92 (Sexton)
 on Jan 24, 2012 at 11:36 UTC Need Help??

```
#!/usr/bin/perl
while                                   (1)
+             {
(\$s,\$m,\$h)=localtime(); if(length(\$h)==1){\$h="0".\$h} \$q=\$h;\$r=\$h;\$h1=s
+ubstr(\$h,0,1);
\$h2=substr(\$h,1,1);if (length(\$m) == 1){\$m="0".\$m} \$w=\$m; \$t=\$m; \$m1=s
+ubstr(\$m,0,1);
\$m2=substr(\$m,1,1); if (length(\$s) == 1) {\$s="0".\$s} \$e=\$s;\$y=\$s;\$s1=s
+ubstr(\$s,0,1);
\$s2=substr(\$s,1,1);while (\$h1>0) { if (\$h1 %2 == 0) { \$str1.=0; } else
+ { \$str1.=1; }
\$h1=int(\$h1/2);} \$str1.="0" while length(\$str1)<4;\$str1=reverse(\$str1)
+;while (\$m1>0)
{ if (\$m1%2 == 0) { \$str2 .= 0; } else { \$str2.=1; } \$m1 = int(\$m1/2);
+ } \$str2.= "0"
while length(\$str2) < 4;  \$str2 = reverse(\$str2); while (\$s1>0) { if (
+\$s1  % 2 == 0)
{\$str3.=0;} else {\$str3.=1;} \$s1=int(\$s1/2); } \$str3 .= "0" while leng
+th(\$str3) < 4;
\$str3=reverse(\$str3);while (\$h2>0) { if (\$h2 %2 == 0){\$str4.=0; } else
+ {\$str4.= 1; }
\$h2 = int(\$h2/2);  } \$str4 .= "0" while length(\$str4) < 4;  \$str4 = r
+everse(\$str4);
while (\$m2>0) { if (\$m2 % 2 == 0){ \$str5 .= 0; } else { \$str5.=1; }\$m2
+=int(\$m2/2); }
\$str5 .= "0" while length(\$str5) < 4;  \$str5  = reverse(\$str5);  whil
+e (\$s2>0) { if
(\$s2%2 == 0){ \$str6 .= 0;} else {\$str6 .= 1; } \$s2= int(\$s2/2); } \$str
+6 .= "0" while
length(\$str6) < 4;\$str6=reverse(\$str6);while(\$q>0){ if (\$q % 2 == 0) {
+ \$str7 .= 0; }
else { \$str7 .= 1; } \$q = int(\$q/2); } \$str7 .= "0" while length(\$str7
+) < 6; \$str7 =
reverse(\$str7); while (\$w>0){ if (\$w % 2 == 0){ \$str8 .= 0; } else{ \$s
+tr8 .= 1; }\$w=
int(\$w/2);} \$str8.="0" while length(\$str8) < 6; \$str8=reverse(\$str8);
+while (\$e>0) {
if (\$e % 2 == 0) { \$str9 .= 0; } else { \$str9 .= 1; } \$e = int(\$e/2);
+} \$str9 .= "0"
while length(\$str9) < 6; \$str9 = reverse(\$str9); @x1 = split//,\$str1;
+@x2 = split//,
\$str4;  @x3 = split// ,\$str2;  @x4 = split//,  \$str5;   @x5 = split//,
+ \$str3;  @x6 =
split//, \$str6;  @x7 = split//, \$str7;  @x8 = split//, \$str8;  @x9 = s
+plit// ,\$str9;
print  "\n\n\n   \$x2[0]   \$x4[0]   \$x6[0] \n   \$x2[1] \$x3[1] \$x4[1] \$x
+5[1] \$x6[1]" ;
print "\n \$x1[2] \$x2[2] \$x3[2] \$x4[2] \$x5[2] \$x6[2] \n \$x1[3] \$x2[3] \$
+x3[3] \$x4[3]";
print " \$x5[3] \$x6[3] \n\n\n\n\n @x7\n @x8\n @x9\n\n\n\n\n \$r:\$t:\$y\n\
+n\n"; sleep 1;
( \$str1,  \$str2,  \$str3,  \$str4,  \$str5,  \$str6,  \$str7,  \$str8,  \$str
+9 )  =  "";  }

Create A New User
Node Status?
node history
Node Type: obfuscated [id://949651]
Approved by planetscape
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2018-05-27 05:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
World peace can best be achieved by:

Results (194 votes). Check out past polls.

Notices?