さみしぃので自作自演するでつ。
MyMiniCityとは。 友達にURLを渡してアクセスしてもらうと街が育っていくゲーム『MyMinCity』
うーん、手元の環境じゃ上手く住人さん増えなかったので。 MyMiniCity部を巡回するスクリプト2:今度はPerlで
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;
自作自演で、益々淋しくなったでつ。
