Just another Perl shrine PerlMonks

### Re: Visually-Interlaced Mesmerizing Japh (Mini Spoiler)

by imp (Priest)
 on Sep 06, 2006 at 04:22 UTC Need Help??

```chr(
5 * (
...
+ l(\$char3)
+ 2
)
```
```int ( ord(\$char) - 42) / 16
```
```[::j] chr(2+5*(5*l(:)+l(:))+l(j)) = chr(5*(5*1+1)+4+2) = \$
[jJj] chr(2+5*(5*l(j)+l(J))+l(j)) = chr(5*(5*4+2)+4+2) = t
...
[jJ*] chr(2+5*(5*l(j)+l(J))+l(*)) = chr(5*(5*4+2)+0+2) = p
[>>N] chr(2+5*(5*l(>)+l(>))+l(N)) = chr(5*(5*1+1)+2+2) = "
[N>N] chr(2+5*(5*l(N)+l(>))+l(N)) = chr(5*(5*2+1)+2+2) = ;
```
```\$t = "v.tmp";
```
``` \$t="v.tmp";open(\$f,">\$t");
print \$f "
...
";close\$f;
system("gvim -c \"so \$t\" \"\$0\"")
#jcn
```
```let search_patterns=["[][+/13579;=?_acegikmoqsuwy-]","[],014589<=@%`ad
+ehilmpqtuxy-]","[/.016-9>?@^_`af-in-qv-y]","[2-9b-ir-y]","John C. Nor
+ton 'liverpole'"]
let vector=8
...
end
sleep 100m
endwhile
```

Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://571370]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others scrutinizing the Monastery: (3)
As of 2024-06-24 15:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?

No recent polls found

Notices?
 • erzuuli ‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.