« RSS, Netnewswire ->Mail.app on Leopardへ | メイン | MyMiniCity、Net::SSH::Perl、Cron用 »

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;
自作自演で、益々淋しくなったでつ。

トラックバック

このエントリーのトラックバックURL:
http://bokut.in/mt4/mt-tb.cgi/71

コメントを投稿

(いままで、ここでコメントしたことがないときは、コメントを表示する前にこのブログのオーナーの承認が必要になることがあります。承認されるまではコメントは表示されません。そのときはしばらく待ってください。)