Red Perl part I

$t=[[[e=>[[[[w=>[L=>"R"]],[[T=>[G=>"I"]],[[V=>[",","."]],[[H=>"J"],[K=
+>"Y"]]]]]
,[h=>"P"]],"s"]],[[[[[p=>"v"],"\n"],"l"],"t"],[[[S=>[B=>"M"]],[[b=>"f"
+],[m=>[F
=>"O"]]]],"o"]]],[[[[n=>"d"],[[[[W=>[[q=>"x"],"Q"]],"g"],[C=>"k"]],[[u
+=>[D=>"U"
]],"N"]]],[[a=>"i"],[[c=>[y=>[A=>[[z=>"'"],"E"]]]],"r"]]]," "]];sub d{
+($r,$o)=$
_;$z=ord(chop($r))-34;$r=~s/(.)(.)/sprintf"%013b",58-($2 ge']')+92*(or
+d($1)-($1
ge']')-35)+ord($2)/eg;substr(($r=reverse$r),13-$z,$z,'');while(length$
+r){$c=$t;
$c=$c->[chop$r]while+ref$c;$o.=$c}$o};for(<DATA>){s/\s//g;print d};__D
+ATA__
.W&fKq+7Lv.}/~y_W+v99r{PspGYxc:WFH_sNH"4glv(rpJa92qx`|d|Fxth/[[x;#Ne1H
+.H8TwjQEygBIEm(Sw]]6W"te-*X}kcy+sQ'i)@9b?eP%Y]8xjM6kOvhsex=mo~%,KW$ji
+()IAC,}gmLB-=zKD_ny(,Y"It)qhCWY{uXuL@CeoqygBIyvg6PVv0(<{j#F4gv0'T:,lD
+ViTNuN0puzyvg6PU"LmL;fi]s@)'sQ'i*@g]Qsx]JR[821xdq.[AAc&]3[+0/Jm'd?p:.
+W{O>h5$hYCALsmV6W)&wEgAnXW?kQnDBtG[EH:giJ8EZJfQ=w-,KW$]MkjgB]T)Hl^Ecb
+oLUSyqDF{vdNn9:5'TgJN^u+<E%V``@`|%|%|%|%|%|%|%|%|%|%{k+NO|)$v+b~wQ{t|
+$|%lf{8|$|%qY{M|$NQu^:Sm-0l[HNQ|%|%|%|%|%|%|%|%|%|%01G~:5KpNHt~H+<+BG
+V9dSCktf0oz$Ux^I9ymH0F12a2y+^sXfriY>#UrRvuRxLP^n|%|%|%|%|%|%|%|%|%|%o
+GtpJM)jm>,}oc*>n`JA`aZO7H>`-nHrQU7QBUKpF1.ha%mGU-rVtr%5E+l{QdfCM$lr@J
+zv9IVO0A{9Z$xiUz%5WW$tJBCEHl^Ee2gC/6G%yZ#]X%Dl^2Rn#H]$s<%(0+i2uZsQ'fx
+V`dBc{o93"c)<f$1jg1G_>q/vDl_zKwFKYoP18?kAk*n;OyV3zt:$<EmfO=TdNmmF'JP)
+GwDkcboFhb)tqSp:.W:Jt'+SHl^Ecbyc^3>@l"Rb.W&c[Ahl2QGH)'=F0y`9ycd37~KwT
+AwMf;AT]a0E#nmML<zBv3{Jt'*/c^gAs;R`NhG7.rrpJ_b`HhN9Kxk*Pq<me$/'J`X2<1
+a<xX]l+9,}gmK3q?YDj)u+<E%nbxR0`Y.'P0NOUIi0tCT3=""3*
[download]

-- with thanks to D. Huffman

update: eol issues fixed

Comment on Red Perl part I Download Code

Replies are listed 'Best First'.
Re: Red Perl part I by simonm (Vicar) on Apr 30, 2004 at 20:30 UTC
This fails for me, with "`substr outside of string at /tmp/t line 11, <DATA> line 1.`" (This is perl, v5.6.0 built for darwin.)	[reply]
Re: Re: Red Perl part I by ysth (Canon) on Apr 30, 2004 at 21:02 UTC
That will result if you save it with incorrect line endings for your platform.	[reply]
Re: Red Perl part I by mpolo (Chaplain) on May 01, 2004 at 13:41 UTC
Well, it doesn't "fail" per se for me, but I think that I am too thick to understand the output: `The hmneede` [download] Using Fedora Core 1, perl 5.8.3. I just hit "download code" and ran it...	[reply] [d/l]
Re: Re: Red Perl part I by ysth (Canon) on May 02, 2004 at 08:44 UTC
That's strange; if you run it with warnings on, what do you see? What does this say? `print join ":", map ord, split //, <DATA>;__DATA__ .W&fKq` [download]	[reply] [d/l]
Re: Re: Re: Red Perl part I by mpolo (Chaplain) on May 02, 2004 at 14:25 UTC
Here's the output under perl -w `Argument "*" isn't numeric in array element at index.pl line 7, <DATA> + line 1. Argument "" isn't numeric in array element at index.pl line 7, <DATA> +line 1. Argument "" isn't numeric in array element at index.pl line 7, <DATA> +line 1. The hmneede` [download] The other code fragment prints `46:87:38:102:75:113:13:10`	[reply] [d/l] [select]
Re: Re: Red Perl part I by ambrus (Abbot) on May 02, 2004 at 16:06 UTC
That's exactly what it prints for me when I don't remove the control-m's. When removing them, the output seems ok. I'm on i686-linux, perl 5.8.1.	[reply]


Do you know where your variables are?
	PerlMonks