VGChartz Playstation Trophy League

[chenguo4]

Well, not to be out done, here's the script anyway. It'll get you the page number, game title, and URL. The page number is based on 10 posts per page, I believe. I'll paste the output in my next few posts.

 

use warnings;

use strict;

use LWP::Simple;

 

 

my $i = 0;

while (1)

{

    my $page_num = 0;

    my $page = get ("http://gamrconnect.vgchartz.com/thread.php?id=42917&page=$i");

    if ($page =~ /<span id="selected"><a href="thread.php?id=42917&page=(d )">/)

    {

        if ($1 < $i)

        {

            last;

        }

    }

 

    my @posts = split (/forum_post_wrap/, $page);

    foreach my $post (@posts)

    {

        if ($post =~ /<div id=".*">(<.*>)?(.*)- Platinum Trophy Holders/)

        {

            if (!$page_num)

            {

                print "*** PAGE $i ***nn";

                $page_num = 1;

            }

 

            my $game = $2;

            $game =~ s/^s |s $//g;

            $post =~ /onClick="location.href='(.*)'"/;

            my $post_url = $1;

 

            print "Game: $gamen";

            print "URL: $post_urln";

            print "n";

        }

    }

    if ($page_num)

    {

        print "n";

    }

     $i ;

}