MyMiniCity、自作自演

さみしぃので自作自演するでつ。

MyMiniCityとは。 友達にURLを渡してアクセスしてもらうと街が育っていくゲーム『MyMinCity』

うーん、手元の環境じゃ上手く住人さん増えなかったので。 MyMiniCity部を巡回するスクリプト2:今度はPerlで

#!/usr/bin/env perl

use strict;
use warnings;

use WWW::Mechanize;

my $city_name = "shiawase";
my @hrefs = ( 
    "http://$city_name.myminicity.com/",
    "http://$city_name.myminicity.com/favicon.ico",
    "http://$city_name.myminicity.com/js/app.js?v=0",
    "http://$city_name.myminicity.com/js/swfobject.js?v=0",
);

for my $href (@hrefs) {
    my $mech = WWW::Mechanize->new();
    $mech->add_header( Referer => "http://$city_name.myminicity.com/" );
    $mech->agent_alias( 'Windows IE 6' );
    $mech->get($href);
}

print "succeed\n";
exit 0;

自作自演で、益々淋しくなったでつ。