Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!samsung!emory!ogicse!iwarp.intel.com!news From: merlyn@iwarp.intel.com (Randal L. Schwartz) Newsgroups: comp.lang.perl Subject: Now *that's* a .sig! (was Re: why is this in h2ph) Message-ID: <1991Jan30.152924.4373@iwarp.intel.com> Date: 30 Jan 91 15:29:24 GMT References: <1991Jan8.073648.7186@uvaarpa.Virginia.EDU> <11216@jpl-devvax.JPL.NASA.GOV> <120572@uunet.UU.NET> Sender: news@iwarp.intel.com Reply-To: merlyn@iwarp.intel.com (Randal L. Schwartz) Organization: Stonehenge; netaccess via Intel, Beaverton, Oregon, USA Lines: 14 In-Reply-To: rbj@uunet.UU.NET (Root Boy Jim) In article <120572@uunet.UU.NET>, rbj@uunet (Root Boy Jim) writes: | print unsort split(//," ,Jaaceeehhklnoprrrsttu") Just not another Perl hacker? :-) That one had me laughing for more than a few minutes. Thanks! print &unsort(split(//," ,JaaceeehhklnoPrrrsttu")); sub unsort { @_[4,24,21,22,0,5,15,16,23,11,8,18,1,17,9,19,14,2,12,6,7,13,10,20,3]; } -- /=Randal L. Schwartz, Stonehenge Consulting Services (503)777-0095 ==========\ | on contract to Intel's iWarp project, Beaverton, Oregon, USA, Sol III | | merlyn@iwarp.intel.com ...!any-MX-mailer-like-uunet!iwarp.intel.com!merlyn | \=Cute Quote: "Intel: putting the 'backward' in 'backward compatible'..."====/