Re: [FWP] RE: JAPH

[Andy Lester <andy@petdance.com>]

> You've inspired me:
> 
> #!/usr/bin/perl
> @i =
> ("J",33,11,12,6,41,42,45,44,75,80,76,28,49,65,66,27,55,8,2,91,"k",70,59);
> @t = split //,
> '
> David Christensen
> Technical Consultant
> Manitoba Public Library Services
> DChristens@gov.mb.ca
> ';
> foreach $_ (@i) {/\D/ ? print $_ : print $t[$_];}

Very cool.  I tweaked it a bit, so that all the code is separate from the
information, and I shrunk that for loop.  It's now only 3 lines of code
instead of 6.  Oh, and I toasted the plaintext J and k.

#!/usr/bin/perl
undef $/;@t=split//,<DATA>; print map{$_<0?chr(-$_):$t[$_]} qw
/-74 32 10 11 5 40 41 44 43 74 79 75 27 48 64 65 26 54 7 1 90 -107 69 58/;
__END__
David Christensen
Technical Consultant
Manitoba Public Library Services
DChristens@gov.mb.ca



xoxo,
Andy


--
# Andy Lester
%_=split';','.; Perl ;@;st a;m;ker;p;not;o;hac;t;her;y;ju';
print map $_{$_}, split //,
'andy@petdance.com'


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe