[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] In search of a better rot13?

At 11.04 -0500 2000.01.07, Brian McNett wrote:
>For various reasons I needed rot13 on my Mac.  Fairly simple to implement
>in MacPerl, but this is a bit prolix:
>
>#!perl -wpl
>tr/AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz/NnOoPpQqRrSsTtUuVvW
>wXxYyZzAaBbCcDdEeFfGgHhIiJjKkLlMm/

This doesn't wrap lines :)

  tr/a-zA-Z/n-za-mN-ZA-M/;

-- 
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org