• ~/dotfiles/skk/my.rule をコミッシュ
• SKK の辞書を Dropbox にいれる
• Virtual Box のイメージうつし
• ~/sketch/* を Dropbox にうつす

サブドメインに任意の文字列が入るようなサービスをローカルで開発しようとすると、いろんなホストを /etc/hosts に書かないといけなくてすごく不便なので、なんとかしようと思っていたところ、id:hakobe932 先生に「それアレでできますよ」との御言葉を頂き、簡単なスクリプトを書きました。

以下のスクリプトを

./localhost.pl local.example.com

とかすると DNS サーバが起動し *.local.example.com が全部 localhost に向くってだけのものです。たぶん OS X じゃないとうごかない…

を書きました

• https://github.com/cho45/net-irc/blob/master/examples/hcig.rb

• PASS に javascript:alert(document.cookie.match(/rk=(\S+)/)[1]); を指定
• /join #counter-{userid}-{counterid} する

と適当にクロールして IRC ログにアクセスがながれてきます。

UA とリモートホスト (を削ったもの) を元に ua_id というのを作って nick にしているほか、リモートホスト部分に色をつけるようにしてます。

• POP3 に詳しくなった

use strict;

use LWP::Simple qw($ua);
use HTML::TreeBuilder::XPath;

my $res = $ua->get('http://subtech.g.hatena.ne.jp/keyworddiary/gerry');
$res->is_success or die "Failed to GET: $res";

my $data = [];
my $doc = HTML::TreeBuilder::XPath->new_from_content($res->content);
my $nodes = $doc->findnodes('id("refered-diary")//ul/li[@class="diary-listitem"]/a');
for my $node (@$nodes) {
	my $href = $node->findvalue('@href');
	if (my ($year, $month, $day) = ($href =~ m{/cho45/(\d{4})(\d\d)(\d\d)})) {
		push @$data, [$year, $month, $day] ;
	}
}

$doc->delete;


use WebService::Hatena::Graph;
use IO::Prompt;
use Perl6::Say;

my $password = prompt "Password:", -echo => '';

my $graph = WebService::Hatena::Graph->new(
	username => 'cho45',
	password => $password,
);

my $count = 1;
for my $date (reverse @$data) {
	$graph->post_data(
		graphname => 'gerry',
		date      => join('-', @$date),
		value     => $count++,
	);
	say join('-', @$date);
}

use DateTime;
use IO::File;
my $fh = IO::File->new('gerry_access_log', 'w');

for my $date (@$data) {
	my ($year, $month, $day) = @$date;
	my $dt = DateTime->new(year => $year, month => $month, day => $day, time_zone => 'Asia/Tokyo')->strftime('%d/%b/%Y:00:00:00 +0900');

	$fh->write(qq|0.0.0.0 - - [$dt] "GET /gerry HTTP/1.1" 200 26768 "-" "Gerry"\n|);
}

$fh->close;