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

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;. ;-)

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 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?

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (2)
As of 2022-08-14 04:40 GMT
Find Nodes?
    Voting Booth?

    No recent polls found