1: #!/usr/bin/perl
   2: @l=(a..z);$0=~m/(\d+)/;$z=shift||$1||13;$z%=26;$s=$z-1;$c=-1;while($c!=
   3: $#l){$s++;$c++;if($s>$#l){$s=0}$r[$c]=$l[$s]}$f="@l".uc("@l");$t="@r".
   4: uc("@r");while(<>){eval "y/$f/$t/";print} # rot13,14...whatever in 3.

Replies are listed 'Best First'.
RE: rotX
by Anonymous Monk on Jan 13, 2000 at 00:51 UTC
    Doesn't rotate after 26... add $z%=26; after $z=shift... to fix.
[reply]
      thx, will fix. :)
[reply]
RE: rotX
by BBQ (Curate) on Jan 09, 2000 at 06:58 UTC
    it didn't compile on my box! :(
[reply]

Back to Craft