ツインテール萌え萌え委員会

OGR-25が無事終了宣言が出されたわけですが、早くもOGR-26に向けての準備が始まるようです。

10/26のbovineの.plansによると、

It is with great excitement that we announce our upcoming project to

find the Optimal Golomb Ruler with 26 marks. Optimal Golomb Rulers

have many applications including sensor placements for X-ray

crystallography and radio astronomy. Golomb rulers can also play a

significant role in combinatorics, coding theory and

communications. Dr. Golomb was one of the first to analyze them for

use in these areas.

超訳)OGR-26の検索プロジェクトがやってくることを興奮してお伝えするぜ(略

New clients and proxies will be required to support the new project,
which we are calling "OGR-NG". The new clients will have version
2.9101.507 or higher. Clients with version numbers prior to this will
only be able to work on the RC5-72 project. Similarly, Personal Proxy
version 343 or higher is required.

新しいプロジェクトには新しいクライアントとプロキシが必要だ。クライアントは2.9101.507以下のバージョンではRC5-72プロジェクトしか動作しない。

というわけで新しいプレリリースクライアントがOGR-NGに対応した新しいクライアントが出ているようです。

約3000日の長きにわたって運営されてきたOGR-25プロジェクトですが、そろそろ終了のようです。

以下帰ったら書く。

Distributed.netでは各個人の成績をXMLで入手することが出来ます．

このXMLをTwitterに投げるスクリプトを書いてみました．

use strict;
use XML::TreePP;
use Net::Twitter;

# IDとProject IDを設定．
# Project ID:RC5-72="8" OGR-25="25"
my $id = "347113";
my $project_id = "25";

# TwitterのIDとパスワードを設定．
my $twitter_username = "nagitsuki";
my $twitter_password = "***********";

my $stats_uri = "http://stats.distributed.net/participant/psummary_xml.php?id=" . $id . "&project_id=" . $project_id;

my $tpp = XML::TreePP->new();
my $tree = $tpp->parsehttp( GET => $stats_uri ) or die "Can't parse page\n";

my $stats_text;

#XMLから，登録名と昨日の順位，昨日の処理ノード数を取り込み．
my $participant_name = $tree->{'participant-summary'}->{'name'}, "\n";
my $yesterday_rank = $tree->{'participant-summary'}->{'stats'}->{'stat'}->[1]->{'-value'}, "\n";
my $yesterday_value = $tree->{'participant-summary'}->{'stats'}->{'stat'}->[3]->{'-value'}, "\n";

# Twitterに投稿するテキストを作成(OGR-25専用になってますね)
$stats_text = "Dnet stats(OGR-25p2):" . $participant_name . " Yesterday Rank:" . $yesterday_rank . " " . $yesterday_value . "Gnodes/sec";

$print $stats_text;

# Net::Twitterを使用して投稿．
my $twit = Net::Twitter->new(
          username=>$twitter_username
        , password=>$twitter_password
      );

#my $result = $twit->update($stats_text);

久しぶりにプログラムというものを書いてみたので(しかもPerlなんてほとんど始めて)なにか変かもしれません．
XML::TreePPとNet::Twitterを使用することでほとんどコードを書かなくても作ることが出来ました．これが高速道路ってやつか．

ツインテール関係ないじゃんって話もありますが，もともとD.netのページなので問題なし．

追記 2008/6/23

タイトルにスペルミスがあったので修正しました。

作ったのは良いけどネタが全く無いのですね(ありがち)
というわけでミラーをさせて頂いたので更新しようかなと．
ソフトハウスキャラさんのウィザーズクライマーアップデートパッチVer1.01を転載させていただきました．
当委員会ではこのページに掲載しました．

Twintail.jpが空のままなのもどうかと思ってWordPressをインストールしてみた．