Quite a simple one, but based on the idea of getting the character from outside the script. 
$_='-K0145-u-!044847a9-i3105-!30610533-!-i04a0-l3141';my@a=
split/\s+/,`perl -V`;for((m((..))g)){my@c=split//;if($c[0]eq
'-'){$_=ord$c[1];$_=chr$_-1;}else{split//,$a[hex$c[0]];$_=
$_[hex$c[1]];}print;}

[download]

Replies are listed 'Best First'.
Re: Built
by chipmunk (Parson) on Jun 06, 2001 at 20:15 UTC
    Output with perl5.005_03: Jut aher prl haPke5 When writing a JAPH that depends on input from outside the script, try to make sure that the source provides the same data across systems. Barring that, inform the reader under which versions of perl the JAPH is known to work.

    This JAPH grabs the output from perl -V, which varies, of course, based on the platform, the version of perl, and the configuration options specified when perl was built. And that's the first perl in the path, rather than the perl that's running the JAPH. (Consider using $^X to run the same perl that's running the script.)

[reply]
[d/l]
[select]
      Revised version to work on Activeperl and normal perl: 
      ($_)=(`perl -V`=~m((.*)));s+\(.*\)++;my@a=split/\s+/;$_='-K0
1-t-u-!044c4149-i3105-!30310533-!-i0440-l3147';s(\s)[]g;for(
(m((..))g)){my@c=split//;if($c[0]eq'-'){$_=ord$c[1];$_=chr$_
-1;}else{split//,$a[hex$c[0]];$_=$_[hex$c[1]];}print;}

      [download]
[reply]
[d/l]
      Urgh. I realise that the output of perl -V varies but thought the first line was consistent. It expects the first line to be

      Summary of my perl5 (revision x version x subversion x) configuration

      but on (my) linux it's

      Summary of my perl5 (x patchlevel x subversion x) configuration

      Entirely my fault for not testing cross platform.
[reply]
[d/l]
[select]

Back to Obfuscated Code