On Wed, May 22, 2002 at 04:13:33PM +0100, Chris Ball wrote:
> chris@lexis:~$ perl -le'@a=($^O eq 'darwin')?qw(100453 81289 9159):qw
> (23152 19246 2040);while(<>){chomp;push @b,$_ if grep {$.==$_}@a}push
> @b,$^X;print ucfirst join(" ",@b[2,0,3,1]).","'</usr/share/dict/words
I knew this couldn't possibly work, but damn it's funny!
Justness ANSI perl Hagen,
Track basic perl Riga,
Paul, just another debian/solaris[0] admin
[0] /usr/dict/words
--
Paul Makepeace ....................................... http://paulm.com/
"What is that on your back? Ask again."
-- http://paulm.com/toys/surrealism/
