> -----Original Message----- > From: Jose Alves de Castro [mailto:[EMAIL PROTECTED] > > I was trying to do a japh with a twist. Kind of a: > > print "Just another Perl highlander\n"; > > but not using each character more then once... > > This is what I got so far: > > > #!/usr/bin/perl > $_=lc(q{#uS69A0oThE4:%'R.?HIG*LaN&er}); > [EMAIL PROTECTED]<XVQZJYPd-v >, > > > It does what I want it to do, but uses two "r"s and two "-"s. > If anyone could offer me some other suggestion, I'd be much > appreciated :-) (this has probably been tried before, but I > couldn't find anything on it...) Jose,
I saved a copy of this a while back, and was able to dig it out of the FWP archive: s{}[k:'Ej2Z-G8R*a0F9Nc?D5&)+|],$_^=q<!OT1JS4B3P7XA`#K"CW%VMLYv>;print Thanks to Ronald J. Kimball for providing that code in this message: http://www.mail-archive.com/[EMAIL PROTECTED]/msg03044.html Seems like a good starting place for your project. The problem is that you have a limit to the number of characters you can use, and this approach uses 2 characters per output character. Also, you've immediately ruled out nineteen characters: s{}[],$_^=q<>;print You're looking at a 28 character string, so we'll need 75 characters to create this line. Good Luck! Chris LEGAL NOTICE Unless expressly stated otherwise, this message is confidential and may be privileged. It is intended for the addressee(s) only. Access to this E-mail by anyone else is unauthorized. If you are not an addressee, any disclosure or copying of the contents of this E-mail or any action taken (or not taken) in reliance on it is unauthorized and may be unlawful. If you are not an addressee, please inform the sender immediately.