[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