[oak perl] One-liners
Belden Lyman
blyman at iii.com
Mon Nov 18 20:15:12 CST 2002
George Woolley wrote:
> Belden,
> You seem to have a knack for humorous one-liners.
> Could you save them up?
>
I prefer to harvest them later :)
perl -MIO::Socket -e'print$/;($s=IO::Socket::INET->new\
(PeerAddr=>"mail.pm.org:80"))||die(q/no socket/,$/);print\
$s "GET /pipermail/oakland.mbox/oakland.mbox\n";while(<$s>\
){/^\s*>/||push at data,$_}$_=join q//, at data;print$1,$/,$/\
while /(perl -.*?)(?=\n\n)/gs'
Of course, this will include everyone's one-liners, not
just mine. (So far, however, the archives only contain
one-liners from me.)
>
> You could give them as "one-liners" when we have Lightning Talks.
>
I'll describe this tomorrow via e-mail precisely so I don't have
to try to explain it to anyone in person!
Belden
More information about the Oakland
mailing list