Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Back to the Beginning...

by kshay (Beadle)
on Oct 24, 2002 at 20:59 UTC ( [id://207850]=obfuscated: print w/replies, xml ) Need Help??

Not especially obfuscated, per se, but I think you may enjoy it.
perl -MLWP::UserAgent -e '$u=new LWP::UserAgent;$u->agent("japh"); print join(" ",(split(/\s+/,(split/\n/,$u->request(HTTP::Request-> new(GET=>join("",split(/\n/,"http://groups.google.com/groups?selm= 4365%40omepd.UUCP&output=gplain"))))->content)[60]))[0..3]),",\n"'
--Kevin

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://207850]
Approved by giulienk
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others musing on the Monastery: (2)
As of 2024-04-20 04:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found