RE: [FWP] RE: JAPH

[Eli Evans <eevans@libronix.com>]

: From: Christensen, David A. (CHC) [mailto:DChristensen@chc.gov.mb.ca]
: 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[$_];}

You could use a couple of array slices for added FUN ...

@t = split //,
'
David Christensen
Technical Consultant
Manitoba Public Library Services
DChristens@gov.mb.ca
';
print"J",@t[33,11,12,6,41,42,45,44,75,80,76,28,49,65,66,27,55,8,2,91],"k",@t
[70,59];

---Eli

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