Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Perl script leads to MySpace sexual misconduct arrest

by chargrill (Parson)
on Oct 17, 2006 at 06:37 UTC ( #578682=note: print w/replies, xml ) Need Help??


in reply to Perl script leads to MySpace sexual misconduct arrest

From the article:

Wired writer Kevin Poulsen put together about 1,000 lines of Perl code that match data from the National Sex Offender Registry to MySpace user profiles, looking for perpetrators arrogant or witless enough to sign up for a MySpace account under their real names.

1,000 lines of perl code to scrape myspace web profiles? Perhaps Mr. Poulsen should have dropped by here and learned about some space saving steps. WWW::Mechanize > LWP > use IO::Socket;. ;-)



--chargrill
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)

Replies are listed 'Best First'.
Re^2: Perl script leads to MySpace sexual misconduct arrest
by rob_au (Abbot) on Oct 17, 2006 at 13:59 UTC
    Kevin Poulsen has an interesting background in his own right - See http://en.wikipedia.org/wiki/Kevin_Poulsen for details. Accordingly, I don't think he needs any encouragement on developing "innovative" uses for IT solutions (which it could be said this story in itself rightly demonstrates).

    :-)

     

    perl -le "print unpack'N', pack'B32', '00000000000000000000001000000000'"

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (2)
As of 2022-06-25 22:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My most frequent journeys are powered by:









    Results (83 votes). Check out past polls.

    Notices?