As usual your helpful comments are appreciated.#!/usr/bin/perl # # My First Obfuscated Perl Thing # use big::Letters; $a="ju"; $t="c";$u="a"; $b="st";$c="an"; $v="p";$w="t"; $d="ot";$e="he"; $x="a"; $f="r"; $g="p"; $x="a"; $h="e"; $i="r"; $x="a"; $j="l"; $k="h"; $x="a"; $l="ac";$m="ke"; $x="a"; $p="a"; $q="m"; $x="a";$x="a"; $r="e"; $s="d"; $y="i";$z="n"; $n="r"; $o="n"; $hand="W H I P L A S H\n"; $japh="$a$b $c$d$e$f $g$h$i$j $k$l$m$n $o$p$q$r$s $t$u$v$w$x$y$z"; print "$japh $hand";
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: My First Obfuscated Perl Thing
by kschwab (Vicar) on Jan 22, 2001 at 18:58 UTC | |
by azatoth (Curate) on Jan 22, 2001 at 19:20 UTC |