Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!samsung!munnari.oz.au!kaukau.comp.vuw.ac.nz!ajv
From: Andrew.Vignaux@comp.vuw.ac.nz (Andrew Vignaux)
Newsgroups: comp.lang.perl
Subject: Re: Randal's one-liners
Message-ID: <1990Mar6.110732.11660@kaukau.comp.vuw.ac.nz>
Date: 6 Mar 90 11:07:32 GMT
References: <15214@bfmny0.UU.NET> <15216@bfmny0.UU.NET> <7250@jpl-devvax.JPL.NASA.GOV> <E4uj=r1@cs.psu.edu> <7282@jpl-devvax.JPL.NASA.GOV>
Sender: news@kaukau.comp.vuw.ac.nz (News Admin)
Reply-To: ajv@comp.vuw.ac.nz (Andrew Vignaux)
Organization: Comp Sci, Victoria University, Wellington, New Zealand.
Lines: 15

I'm afraid I can't get my submission down to 1 line (excluding data) :-(
Can anyone help?

@l = split (/(..)/,'1a7r4J1n0a7e7c1o8n248o1t4u8v4s7.207l27547a7n7g1h'.
'0 511e3h7.8i564t3a6P1r7p8c8e6e3c3k7e3e533r7r286r6l4 6 1 8,7l7 3,');
srand; $_=3*int(rand(2))+2; /^$_/;
foreach (split(//,&g)) {/^$_/;print &g;} print "\n";
sub g {join('',grep(s/^.//,grep(//,@l)));}

The interesting bit is the "grep(//,@l)".  Is this a "feature" ;-)
Can anyone exploit it in a real script?

Andrew
-- 
Domain address: Andrew.Vignaux@comp.vuw.ac.nz