Re^2: First japh - a bit silly

Not sure if I've missed the point here, but I can't get that to run without some spurious errors:

Possible attempt to separate words with commas at - line 14.
Use of uninitialized value in substitution (s///) at - line 2.
Use of uninitialized value in substitution (s///) at - line 2.
[download]

(This is with v5.8.0 on Unix and v5.8.4 on Win2K.)

I've done another modification to the original, which gets the \n, and removes the silly stuff:

use strict;
$==0;eval
q;\$uhJ;;$@=~s^\^^\\^;eval
join q,,,map{$=-=0b111x2-ord;$@=~m;^.{$=}(.);;$1}qw
$u ;
Q c S % N Q K Y V < = x ) g 9 W L P P Z : ? g 8 @ l T U 5 2 } 1
$;
[download]

s^^unp(;75N=&9I<V@`ack(u,^;s|$.+\`|"$`$'\"$&\"$"|ee;/m.+h/&&print$&

Comment on Re^2: First japh - a bit silly Select or Download Code

Replies are listed 'Best First'.
Re^3: First japh - a bit silly by muntfish (Chaplain) on Sep 08, 2004 at 13:45 UTC
And a further refinement to compact the data string and remove the "wordy" join and map: `use strict; $==0;eval q; $uhJ; \|\|$@=~s^\^^\\^&&s&&u;QcS%NQKYV<=x)g9WLPPZ:?g8\@lTU52}1&&&s %.%$=-=0b111x2-ord$&;$@=~m;^.{$=}(.);;$1%ge&&eval` [download] s^^unp(;75N=&9I<V@`ack(u,^;s\|$.+\`\|"$`$'\"$&\"$"\|ee;/m.+h/&&print$&	[reply] [d/l] [select]
Re^3: First japh - a bit silly by jdalbec (Deacon) on Sep 18, 2004 at 17:26 UTC
If you don't like the warnings you could change the first line to `#! /usr/bin/perl` without the `-w`.	[reply] [d/l] [select]