Paul Makepeace wrote:
> 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,
Justice another perl hackers [Linux penderel 2.4.18 #4 ]
5a 5tte perl 4on, [Linux ddmi.he.net 2.2.20 #5]
Yup, looks like 'perl' is more cross platform than 'hackers' :)
--
Jonathan Peterson
Technical Manager, Unified Ltd, +44 (0)20 7383 6092
[EMAIL PROTECTED]
