http://www.perlmonks.org?node_id=578682


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'"