|
@p=qw(x/bin/perlx yy x v Am_I_Obfuscated_yet xxPerlxHacker x xJoke yySlashdotyy
yyy xperlmonksxxx v yy hal@XD3yyyy SolarisLinuxx BSDyyy v yyyy yakyak! xx
xViRules yyyUse TheSource!xxx 106);$b=pop@p;sub h{length}sub g{printf"%c",@_};g
$b;foreach(@p){$_=~/v/?{g 32}:{$_=~/x/?{$b+=h}&g$b:{$b-=h}&g$b};}g 10;
|
RE: xyv
by raflach (Pilgrim) on May 12, 2000 at 21:35 UTC
|
I Get
Global symbol "p" requires explicit package name at new3.pl line 3.
Execution of new3.pl aborted due to compilation errors.
| [reply] |
|
|
just dump it into a file and "perl filename.pl". It's really
a silly thing, but I got to playing with other peoples
O-code and I had to come up with something.
| [reply] |
|
