misc

日頃の行いの成果が発揮され快晴の中久しぶりのドライブに行きました。
大泉-関越-圏央道-青梅-奥多摩-塩山-勝沼-中央道-高井戸

自宅Wikiから抽出したURLをエクスポートできました。

リンク: はてなダイアリー - はてなブックマークAtomAPIとは.

Mac miniでは

blink.jpよりブックマークをはてなに取り込む

#!/usr/bin/perl

while(<>) {

    if(/HREF=\"(.*)\" ADD_DATE/) {

	print $1 . "\n";

    }

}

#!/usr/bin/perl
use strict;
use warnings;

use DateTime;
use Digest::SHA1 qw (sha1);
use HTTP::Request;
use MIME::Base64 qw (encode_base64);
use LWP::UserAgent;

my $username = 'ユーザID';
my $password = 'パスワード';

while(<>) {
my $regUrl = $_;

my $nonce = sha1(sha1(time() . {} . rand() . $$));
my $now = DateTime->now->iso8601 . 'Z';
my $digest = encode_base64(sha1($nonce . $now . $password || ''), '');
my $credentials =
sprintf(qq(UsernameToken Username="%s", PasswordDigest="%s", Nonce="%s", Created="%s"),
$username, $digest, encode_base64($nonce, ''), $now);

my $req = HTTP::Request->new(POST => 'http://b.hatena.ne.jp/atom/post');
$req->header( Accept => 'application/x.atom+xml, application/xml, text/xml, */*');
$req->header( 'X-WSSE' => $credentials );

$req->content_type('text/html');

my $content = "<entry xmlns=\"http://purl.org/atom/ns\#\">"
. "<title>dummy</title>"
. "<link rel=\"related\" type=\"text/html\" href=\"$regUrl\" />"
. "<summary type=\"text/plain\"></summary>"
. "</entry>";
$req->content($content);
print LWP::UserAgent->new->request($req)->as_string;
}

なかなか使う機会に恵まれない白PSPのために、使い放題のコース
を契約したものの、東西線に乗りながらでは、ろく使えないことが
体験できました。

2005-11-04追記

駅毎に認証する訳ではないため、日経の為替情報くらいは読めました。


ま、地下鉄で乗車中にiモードをつかうのとあまりかわりませんね。

リンク: 無線LANサービス ホットスポット.

始発帰り、午後出勤、終電帰りのなんて生活が続いているので、
PSPをいじる時間がないのでそそられる

リンク: ハードディスク搭載DVDレコーダー「スゴ録」.