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

Hello Monks,

ars technica just released an article about perl being used with the National Sex Offender Registry to find offenders using MySpace.

Article

Tatnall

"Recognizing who we aren't is only the first step toward knowing who we are." - Os Guinness
  • Comment on Perl script leads to MySpace sexual misconduct arrest

Replies are listed 'Best First'.
Re: Perl script leads to MySpace sexual misconduct arrest
by chargrill (Parson) on Oct 17, 2006 at 06:37 UTC

    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($,,$;,$*,$/)
      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'"

Re: Perl script leads to MySpace sexual misconduct arrest
by davorg (Chancellor) on Oct 17, 2006 at 08:41 UTC

    Alternatively, there's the original article by the Wired reporter who wrote the program.

    --
    <http://dave.org.uk>

    "The first rule of Perl club is you do not talk about Perl club."
    -- Chip Salzenberg