続・w3m で現在見ているページをはてなブックマークする Local CGI

id:yshl:20050810:1123666828 の続きである。*1
はてなブックマークの仕様が変わったので、Local CGI を変更した。

#!/usr/bin/perl
$name="yshl";

$str = $ENV{"W3M_URL"};
$str =~ s/(\W)/'%'.unpack("H2",$1)/eg;
$url = "http://b.hatena.ne.jp/$name/add.confirm?url=$str";

print <<EOF;
w3m-control: GOTO $url
w3m-control: DELETE_PREVBUF
w3m-control: SEARCH http

EOF

add.confirm の直後の ? を & と書き間違えたせいで、えらく時間がかかった。

*1:タイトルが正確に呼応していないが。