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/