All the Perl that's Practical to Extract and Report
use Perl Log In
Elthek (2737)
Elthek
(email not shown publicly)
(email not shown publicly)
Thursday May 23, 2002
10:08 AM
When JAPHs Attack.
I posted this to london.pm yesterday:
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
It seems to be even less portable than I'd thought; it works on OS X and all versions of Redhat and Mandrake that I can find, but.. nothing else.
Oops. Next up, ripping the text straight from perlfaq1..
The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
--Larry Wall in eval.c from the perl source code
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
Justly Anselmo perl hag, (Score:1)