ニコニコ動画の情報を取得する WWW::NicoVideo を作成した。RSSを作成するために最低限必要な部分しか作っておらず、非公開APIについても未対応。

CPAN

http://search.cpan.org/dist/WWW-NicoVideo/

いじり中Subversionリポジトリ

http://svn.coderepos.org/share/lang/perl/WWW-NicoVideo/

いじり中ソースコードブラウザ

http://coderepos.org/share/browser/lang/perl/WWW-NicoVideo/

使い方は 添付のサンプル を参照… では不親切なので、Feed に変換するプログラム:

use utf8;
use strict;
use warnings;
 
use Getopt::Std;
use Encode;
use Encode::Guess "euc-jp";
use XML::Feed;
use WWW::NicoVideo;
 
MAIN: {
  my %opts;
  getopts('m:p:t:k:f:o:', \%opts);
  my $mail = $opts{m} || die "mail required";
  my $passwd = $opts{p} || die "passwd required";
  my $outfile = $opts{o};
  my $format = $opts{f} || "Atom";
  my $key = defined $opts{k}? decode("Guess", $opts{k}): "律子ソロ";
  my $type = $opts{t} || "tag";
  my $method = {tag => "getEntriesByTagNames",
		"search" => "getEntriesByKeywords"}->{$type} or
		die "invalid type: $type";
 
  my $outfh;
  if(defined $outfile) {
    open $outfh, ">:utf8", $outfile;
  } else {
    $outfh = \*STDOUT;
    binmode STDOUT, ":utf8";
  }
 
  my $nv = new WWW::NicoVideo();
  $nv->mail($mail);
  $nv->passwd($passwd);
  $nv->login or die "login failed";
 
  my $feed = new XML::Feed($format);
  $feed->title("@{[ucfirst $type]}: $key - ニコニコ動画");
  $feed->link("http://www.nicovideo.jp/");
  foreach my $e ($nv->$method(key => $key, sort => "f", order => "d")) {
    my $ent = new XML::Feed::Entry($format);
    $ent->title($e->title);
    $ent->link($e->url);
    $ent->content($e->desc);
    $feed->add_entry($ent);
  }
 
  print $outfh $feed->as_xml;
}

使用例: perl ritsuko-feed.pl -m your-mail@example.org -p your-passwd -k "最東みんくP" -o minkhouse.atom

ritsuko.org始めました

Defined-or 演算子 ("//") は perl 5.10 以降で利用可能 (とりあえず、開発者向けの5.9は考えない) であるが、FreeBSD port の lang/perl5.8 では利用できる。 これは、FreeBSD portのPerlは /usr/ports/lang/perl5.8/Makefile で defined-or-5.8.8.bz2 というパッチが指定されているためだ:

PATCHFILES=	defined-or-5.8.8.bz2

perl -V を実行することでもわかる:

Characteristics of this binary (from libperl):
  Compile-time options: MYMALLOC PERL_MALLOC_WRAP USE_64_BIT_INT
                        USE_LARGE_FILES USE_PERLIO
  Locally applied patches:
        defined-or

現状で 5.9 / 5.10 が導入されて環境は少ないため、可搬性を考慮する場合は "//" の利用は見合わせたほうがよさそうだ。

ニコニコ動画の更新情報をTwitterに流す実験:

• Tag: 初音ミク, 鏡音リン
• Tag: アイドルマスター, アイマス

updatetwitter.pl:

#! /usr/bin/perl
use strict;
use warnings;
use open OUT => ":encoding(euc-jp)";
use YAML qw[LoadFile];
use Data::Dumper;
use DB_File;
use Fcntl;
use Digest::MD5 qw[md5_hex];
use XML::RSS::Parser;
use Net::Twitter;
MAIN: {
  my $conf = LoadFile("etc/twitter.yml") || die $!;
  tie(my %db, DB_File => $conf->{read_db}, O_RDWR|O_CREAT, 0644) or die $!;
  foreach my $e (@{$conf->{targets}}) {
    my $twit = Net::Twitter->new(username=> $e->{username},
				 password=> $e->{password}) || die $!;
    foreach my $t (@{$e->{tags}}) {
      my $rssfile = sprintf $conf->{rss_path}, "tag", md5_hex($t);
      open my $fh, "<", $rssfile or die $!;
      my $feed =  XML::RSS::Parser->new->parse_file($fh);
      my $count = 0;
      foreach my $i ($feed->query("//item")) {
	my $title = $i->query("title")->text_content;
	my $link = $i->query("link")->text_content;
	utf8::encode($title);
	my $key = "$e->{username};$link";
	if(not exists $db{$key}) {
	  $twit->update("$link $title");
	  $db{$key} = time;
	  sleep 3;
          last if(3 <= ++$count);
	}
      }
    }
  }
}

etc/config.yml (utf-8):

rss_path: rss/%s/%s.rss
read_db: var/rss_read.db
targets:
  - username: vocaloid
    password: ########
    tags:
      - 初音ミク
      - 鏡音リン
  - username: idolmaster
    password: ########
    tags:
      - アイドルマスター
      - アイマス

Del.icio.usとHatena Bookmarkの両方を使っていてその内容を同期したい場合、WebService::SyncSBS::D2Hを利用することで簡単に同期することができる。使い方は examples/sbssync.plを見ればOK。

このモジュールのsyncメソッドは同期 (すなわち相互に不足分を複製) するため、私のように Del.icio.us から Hatena Bookmark 方向へのみコピーしたい場合にはそのまま利用できない。そこで、片方向のみ複製するパッチを作ってみた。このパッチを適用すると以下のメソッドが追加され、片方向の同期が可能となる。

sync_delicious_to_hatena

Reflects newly arrived sites on Del.icio.us in Hatena Bookmark.

sync_d2h

Alias for sync_delicious_to_hatena.

sync_hatena_to_delicious

Reflects newly arrived sites on Hatena Bookmark in Del.icio.us.

sync_h2d

Alias for sync_hatena_to_delicious.

WebService-SyncSBS-D2H-0.03.patch.gz

Yapooさんにはパッチを送ったので、次バージョンではもっときれいなコードになって入るかも。

最近、外に出しても差し支えないブックマーク情報ををソーシャルブックマーク (SBM; この表記は外国ではあまり使われていないようだ) サービスのdel.icio.us へ移行した。通常、ブックマークを利用するためにはdel.icio.usサイトを経由する必要があって使いづらいが、FirefoxにDel.icio.us Bookmarksを組み込むことでブラウザ標準のブックマークをそのまま置き換えて利用することができる。当初ははてなブックマークを検討していたが、ブックマークを置き換えるようなadd-onが見つからなかったため使わなくなってしまった。

Del.icio.usでは利用者層が日本人以外が数多く占めている一方、はてなは日本人がほとんどを占めている。このため、他の利用者の情報も活用したい場合には、はてなの方がよいかもしれない。Del.icio.us Bookmarks のようなaddonが出れば一番良いのだが。

通常のブックマークは階層構造でデータを管理するが、SBMでは "タグ" という概念で管理することが多く、Del.icio.usやはてなブックマークも例外ではない。こうなると "きちんと" タグ付けしたくなるものだが、大常さん によると "タグ付けは適当" らしいので、とりあえずあまり深く考えずに直感的に付けていこうと思う。

私のブックマークは: http://del.icio.us/hirata.yasuyuki

Meadow + PuTTY でSubversionを使用する方法メモ

方針

• リポジトリはリモートのUnixサーバに置く。
• アクセスはSSH (PuTTY) 経由
• PuTTYは C:\Program Files\PuTTY にインストールしてあると仮定。
• Pagent を利用。
• UTF-8マンセー
• MeadowのSVNインターフェイスはpsvnを使用

Subversionのインストール

1. Win32 packages built against Apache 2.0 または Win32 packages built against Apache 2.2 から svn-win32-x.x.x.zip をダウンロード。
2. svn-win32-x.x.x.zip を展開し、C:\Program Files\svn へコピーする。
3. スタート → 設定 → コントロールパネル → システム → システムの詳細設定 → "詳細設定" タブ → 環境変数(N)... から以下の環境変数を設定する。
   • ユーザ環境変数
     • APR_ICONV_PATH=C:\Program Files\svn\iconv
     • SVN_SSH=C:/Program Files/PuTTY/plink.exe
   • システム環境変数
     • PATH=(すでに設定されていた内容);C:\Program Files\svn\bin
4. スタート → ファイル名を指定して実行(R)... から "regedit" を起動。
5. レジストリエディタの HKEY_CURRENT_USER\Software\Tigris.org\Subversion\Config\miscellany キー内に 名前: "log-encoding", 種類: "REG_SZ", データ: "utf-8" を設定する。
6. スタート → ファイル名を指定して実行(R)... から "cmd" を起動。
7. コマンドプロンプトに "svn" と入力して、正常に実行されることを確認する。

   C:\Users\yasu>svn
   Type 'svn help' for usage.
   

レポジトリの作成とテスト

1. リモートのUnixホストでレポジトリを作成

   pluto% svnadmin create /home/yasu/testrepos
   

2. アクセスできることを確認。

   C:\Users\yasu\work>mkdir test
   C:\Users\yasu\work>echo moemoe > test\test.txt
   C:\Users\yasu\work>svn import test svn+ssh://pluto/home/yasu/testrepos/test/ -m "initial import"
   Adding         test\test.txt
   Committed revision 1.
   C:\Users\yasu\work>svn list svn+ssh://pluto/home/yasu/testrepos/test/
   test.txt
   C:\Users\yasu\work>svn co svn+ssh://pluto/home/yasu/testrepos/test/ localcopy
   A    localcopy\test.txt
   Checked out revision 1.
   C:\Users\yasu\work>cd localcopy
   C:\Users\yasu\work\localcopy>svn status
   M      test.txt
   C:\Users\yasu\work\localcopy>svn commit -m "sakura tan haahaa"
   Sending        test.txt
   Transmitting file data .
   Committed revision 2.
   

Meadowの設定

1. ~/.emacs へ以下の設定を行い、C-x e で評価するか Meadow を再起動する。

   (set-default-coding-systems 'utf-8-unix)
   (require 'psvn)
   (global-set-key "\C-c\C-s" 'svn-status)
   (setq svn-status-svn-executable "C:/Program Files/svn/bin/svn")
   

2. C:\Users\yasu\work\localcopy\test.txt を開く。
3. 適当に編集し、C-x C-s で保存。
4. C-c C-s でステータスを表示。(変更しているため、"M" (modified) が付いている)
   
5. "test.txt" にカーソルを合わせて "=" を押すことで差分を表示することが出来る。
   
6. c を押すとログ入力画面が表示されるので、ログを入力後 C-c C-c でコミットする。
   
   

ニコニコ動画のタグごとにRSSを作るため、最初は以下のように正規表現でゴリゴリと処理していたが、イマイチ綺麗じゃない。

while($html =~ m{<p><a\s+href="watch/(\w+)">\s*
                 <img\s+.*?src="(.*?)".*?>.*?
                 <strong>((?:\d+分)?\s*\d+秒)</strong>.*?
                 再生：<strong>([\d,]+)</strong>.*?
                 コメント：<strong>([\d,]+)</strong>.*?
                 <a\s+class="video".*?>([^<>]*)</a></p>.*?
                 <p.*?>([^<>]*?)</p>.*?
                 <p.*?><strong>([^<>]*?)</strong></p>
                 }gsx) {
    ...
}

今回は Web::Scraper というモジュールを使ってみた。これは、CSSセレクタやXpathで対象を指定すると、解析した結果を返してくれる。HTMLをパースして情報を取得するときに便利だ。

どのブロックからデータを取得するのかを大まかに指定してしまって、その中で細かい情報を取得するという段階を踏むと、スクレーピングしやすいとあったので、

1. "thumb_frm" を class 属性として持つ div 一式を取得
2. これらの div について、細かく Xpath 指定で要素を抽出

という手順で処理することにした:

my $scraper = scraper {
  process('//div[@class="thumb_frm"]',
          'videos[]' => scraper {
            process('/div/div/div/p/a/img',
                    img_url => '@src',
                    img_width => '@width',
                    img_height =>  '@height');
            process('/div/div/p[2]/strong',
                    length_str => 'TEXT');
            process('/div/div/p[2]/strong[2]',
                    num_played_str => 'TEXT');
            process('/div/div/p[2]/strong[3]',
                    num_comments_str => 'TEXT');
            process('/div/div[2]/p/a[@class="video"]',
                    title => 'TEXT',
                    url => '@href');
            process('/div/div[2]/p[2]',
                    desc => 'TEXT');
            process('/div/div[2]/div/p/strong',
                    comment => 'TEXT');
          });
};

作った結果: ニコニコ動画 俺様用RSS

ニコニコ動画アクセス関係は WWW::NicoVideo として分離させているけど、需要あるかな?

ニコニコ動画Perlインターフェイス (WWW::NicoVideo) を公開しました。

Firefoxのアドオンによって様々な機能を追加することができる。最近まであまり活用していなかったがが、いろいろと調べて最終的に使うことになったのは以下の通り。再インストール時のときのため、自分用にメモ。

Add N Edit Cookies

クッキー編集機能

Allow Right-Click

右クリックを禁止するアホなサイト対策

Context Search

選択した文字列をサーチエンジンで検索

dragdropupload

ファイルアップロード領域にドラッグ・ドロップで入力する

Firebug

デバッグ用

Greasemonkey

サイトごとにユーザスクリプトを適用する

IE Tab

IEのレンダリングエンジンをFirefoxに組み込む

PDF Download

PDFをインラインで表示せず、ダウンロードして表示

Popup ALT Attribute

Alt属性に指定された文字列をポップアップさせる (本当はtitle属性を使うのが正しいのだが)

Sage++

フィードリーダ

Stylish

サイトごとにユーザCSSを適用する

私がフィードリーダに求める機能は以下の4点。

• サイト一覧、サイトの記事タイトル一覧、内容表示の3ペイン方式であること。
• フィード情報を1ページにまとめて表示 (フィードに含まれる記事一覧を内容も含めて表示) してほしい。(サイトによってはdescriptionなどに内容がすべて入っているため。)
• 内容表示はウェブサイトを表示可能であること。(フィードに完全なdescriptionが含まれない場合はウェブサイトを表示する必要があるため。別ウインドウ・タブで表示するのは面倒。)
• できれば favicon に対応してほしい。

上記の観点を踏まえて、Firefoxで利用可能なフィード (RSS/ATOM) リーダを複数試してみた。

Sage

タイプ: 3ペイン (サイドバー2ペイン)
フィードをまとめて表示: Yes
内容としてサイトを表示: Yes
Favicon対応: No
データ: ブックマーク
Faviconに対応していないという欠点はあるが、それ以外の機能はすべて実現可能。URL欄にランダム文字列のディレクトリ名を含んだフルパス名が出るのがイマイチ。(セキュリティ的な意味で)

Sage++

タイプ: 3ペイン (サイドバー2ペイン)
フィードをまとめて表示: Yes
内容としてサイトを表示: Yes
Favicon対応: No
データ: ブックマーク
Sageの改造版。広告ブロック機能があるので最終的にこれを利用することにした。

Brief

タイプ: 2ペイン (ペイン分割)
フィードをまとめて表示: Yes
内容としてサイトを表示: Yes
Favicon対応: Yes
データ: ブックマーク (ライブブックマーク)
タイトル (とdescription) 一覧とウェブサイトを同一ペイン内で切り替えるため、私にとっては使いづらい。フィードに含まれる内容だけを読むのであれば良いと思う。

Wizz RSS News Reader

タイプ: 3/4ペイン (サイドバー 2/3ペイン)
フィードをまとめて表示: Yes
内容としてサイトを表示: Yes
Favicon対応: (Yes)
データ: ブックマーク
Sageと似ているが、機能がかなり多い。必要な機能は網羅しているが、デザインがあまり好きになれない。Faviconはフィードを提供するサイトのものが使われるのが残念。

NewsFox

タイプ: 3ペイン (ペイン分割)
フィードをまとめて表示: Yes
内容としてサイトを表示: Yes
Favicon対応: Yes
データ: 独自?
3ペイン分割タイプで、OutlookやThunderbirdと似た画面で利用することができる。フィードすべてを再読み込みさせるとFirefoxが応答なしになる、フィードの登録インターフェイスが使いづらいという欠点はあるが、購読するフィードが少ないなら良いと思う。

Sage++とWizz RSSのどちらにするか迷ったが、広告ブロック機能がある点と、デザインが好みである点からSage++を利用することとした。(広告自体は嫌いではなくKasperskyの広告ブロック機能も無効にしてあるが、記事一覧に広告があるのは好きではないため。) 上記の欠点が修正されれば Brief や NewsFox に乗り換えるかもしれない。

Sage++ではキーバインドが変更されているため、about:config で下記内容に変更。

sage.key.focusSidebar = X
sage.key.focusSidebar.modifiers = alt
sage.key.openSidebar = Z
sage.key.openSidebar.modifiers = alt

メールアドレスが正しい形式であるか確認する

入力されたメールアドレスの形式を確認するため、

if(not $mail =~ /^[a-z0-9]+@[a-z0-9-]+(?:\.[a-z0-9-]+)+$/) {
  die "invalid address";
}

のようなコードを書くべきではない。メールアドレスというものはあなたが考えている以上に複雑で、このような単純なコードでチェックし切ることはできない。車輪の再発明をせず、次のように Email::Valid を利用しよう。これはDNSのMXレコードのチェックなども可能である。

use Email::Valid;
if(not Email::Valid->address(-address => $mail,
                             -mxcheck => 1,
                             -fqdn => 1) {
  die "invalid address";
}

RFC 822 (2822) 形式のアドレスをパースする

メールのヘッダ中に含まれるアドレスはさまざまな形式を取るため、これを自力で解析するのは骨が折れる。これもモジュールを利用することで車輪の再発明を避けることができる。以下は Email::Address を利用した例である。(同様のモジュールとしては Mail::Address があり、若干インターフェイスが異なる。)

use Email::Address;
my @addrs = Email::Address->parse(
  'HIRATA Yasuyuki <yasu@example.com>, ' .
  'yasu@example.net (HIRATA Yasuyuki), ' .
  '"sakura tan haahaa"@example.org' # *VALID* RFC 2822 address
);
foreach (@addrs) {
  print $_->address, "\n";
}

ループ処理

mod_rewrite でループ処理を行うには、[N] (next) フラグを利用する。たとえば、/hoge/1/bar/2/baz/3/ を /hoge/index.cgi?foo=1&bar=2&baz=3 としたい (その際、パラメータの個数が不定) 場合、下記の通り記述する。"QSA" (query string append) フラグは、書き換え後の QUERY_STRING 部分のみ "追加" の扱いとする。

RewriteEngine on
RewriteLog /var/log/httpd/rewrite.log
RewriteLogLevel 9
# Rule 1:
RewriteRule ^(/hoge/.*/)([^/]+)/([^/]+)/$ $1?$2=$3&path=$1 [QSA,N]
# Rule 2:
RewriteRule ^/hoge/([^/]+)/$ /hoge/index.cgi?foo=$1 [QSA]

処理の流れは以下の通り。

1. path = "/hoge/1/bar/2/baz/3/", QUERY_STRING="" → Rule 1
2. path = "/hoge/1/bar/2/", QUERY_STRING="baz=3" → Rule 1
3. path = "/hoge/1/", QUERY_STRING="bar=2&baz=3" → Rule 2
4. path = "/hoge/index.cgi", QUERY_STRING="foo=1&bar=2&baz=3"

日本語のファイル名に見せかけてSEO

ファイル名はSEOを考慮すると日本語 (UTF-8) で付けた方が良いが、日本語のファイル名はUnix上で扱いづらいという欠点がある。mod_rewrite を利用することで URL path中の日本語文字列を任意のファイル名 (英数字) にマッピングすることができる。

1. httpd.conf に以下の行を追加

   RewriteEngine on
   RewriteLog /var/log/httpd/rewrite.log
   RewriteLogLevel 9
   RewriteMap foo_kanji_ascii txt:/www/etc/map/naiyo_kanji_ascii.txt
   RewriteRule ^/(.*[^!-~]+.*) /www/htdocs/${naiyo_kanji_ascii:$1}.html
   

2. /www/etc/map/naiyo_kanji_ascii.txt に UTF-8 で以下の内容を記載。

   萌え	moe
   

3. httpd の再起動。
4. http://www.example.com/%E8%90%8C%E3%81%88 へアクセスすると /www/htdocs/moe.html の内容が表示される。

大規模に書き換えを行う場合には、性能上の観点からテキストファイルではなくDBMファイルで用意することが望ましい。

以前、特定の国からのメールをすべて拒否で、Postfix のみに利用できる方法を解説したが、他のソフト (Apache + mod_access_rbl や CGIプログラムなど) から利用可能にするには、DNSBLとして利用できる形態が望ましい。(DNSBLについては、Apache 1.3 + mod_access_rbl を参照。)

DNSBLの運用にBINDを利用することも可能ではあるが、ある程度規模があるDNSBLを運用する場合には設定ファイルの再読み込みに時間がかかるなどの問題があるため、ここでは rbldnsd を利用する方法を解説する。

導入するべきソフト

• dns/rbldnsd

方針

rbldnsdは 127.0.0.1:10053 で待ち受けする。BINDは特定のゾーン (rbldnsd.local) のクエリのみ rbldnsd を参照する。

         +------+     +---------+
query -->| *.53 | --> | L:10053 |
         | BIND |     | rbldnsd |
         +------+     +---------+

設定方法

1. 設定ファイルの作成・修正

   # mkdir /usr/local/etc/rbldnsd
   # cd /usr/local/etc/rbldnsd
   # vi rbldnsd.rbl
   # vi /etc/namedb/named.conf
   # vi /etc/rc.conf
   # /usr/local/etc/rc.d/rbldnsd.sh start
   

   rbldnsd.rbl の記載内容は以下の通り (実際のデータの一部):

   $DATASET ip4set:ad ad
   :127.0.0.1:Andorra
   194.158.64.0-194.158.95.255
   85.94.160.0-85.94.191.255
   91.187.64.0-91.187.95.255
   $DATASET ip4set:ae ae
   :127.0.0.1:United Arab Emirates
   194.170.0.0-194.170.255.255
   195.229.0.0-195.229.255.255
   213.132.32.0-213.132.63.255
   

   named.confの追加内容は以下の通り:

   zone "rbldnsd.local" {
     type forward;
     forward first;
     forwarders { 127.0.0.1 port 10053; };
   };
   

   rc.confの追加内容は以下の通り:

   rbldnsd_enable="YES"
   rbldnsd_flags="-u bind:bind -r /usr/local/etc/rbldnsd -b 127.0.0.1/10053 -c 0 rbldnsd.net:combined:rbldnsd.rbl"
   

2. 194.158.64.0 は Andorra に割り当てられたアドレスなので、"ad.rbldnsd.local" にはレコードが存在し、"jp.rbldnsd.local" には存在しないことを確認する。

   % host 0.64.158.194.ad.rbldnsd.local
   0.64.158.194.ad.rbldnsd.local has address 127.0.0.1
   % host -t txt 0.64.158.194.ad.rbldnsd.local
   0.64.158.194.ad.rbldnsd.local descriptive text "Andorra"
   % host 0.64.158.194.jp.rbldnsd.local
   Host 0.64.158.194.jp.rbldnsd.local not found: 3(NXDOMAIN)
   

3. 外部からの利用を許したくない場合、ゾーン設定に allow-query を追加すればよい。(以下の例は127.0.0.1, 192.168.1.0/24 のみを許可する場合。)

   allow-query { 127.0.0.1; 192.168.1.0/24; };
   

4. 必要に応じて Apache や Postfix などの設定を行う。

とりあえず、試験的に countrycode.dnsacl.net を立ち上げてみた。たとえば、kr.dnsacl.net は韓国のアドレスをブロックするDNSBLになっている。("acl" は access control list; ホワイトリストにも利用できるため。)

画像への直接リンクを防ぐ (2007/07/23) の補足。

RFC 2616 で Referer: は以下の通り定義されており、絶対URIの他、相対URIを含めることも許されている。

Referer = "Referer" ":" ( absoluteURI | relativeURI )

RFC 2616: Hypertext Transfer Protocol (HTTP/1.1), 14.36 Referer

したがって、

RewriteCond %{HTTP_REFERER} !^$
RewriteCond %{HTTP_REFERER} !^http://www\.example\.jp/ [NC]
RewriteCond %{REQUEST_URI} !^/tmp/eroero\.gif$
RewriteRule \.(jpg|png|gif)$ http://www.example.jp/tmp/eroero.gif [R,NC]

は、下記の通りとするべきである。

RewriteCond %{HTTP_REFERER} ^http://
RewriteCond %{HTTP_REFERER} !^http://www\.example\.jp/ [NC]
RewriteCond %{REQUEST_URI} !^/tmp/eroero\.gif$
RewriteRule \.(jpg|png|gif)$ http://www.example.jp/tmp/eroero.gif [R,NC]

なお、(アンチウイルスソフトによっては) Referer: に blocked by XXXX とかいう訳のわからん文字列を突っ込んできます との指摘があったが、今回の修正で救われる。とはいえ、これはRFCに違反するそのベンダと利用者の責任であるため、積極的に救う必要は無いだろう。

でも、在日3世の僕には選挙権が無い。両親も自分も名古屋育ち。日常生活は日本語。日本人とほとんど同じ生活をしている。在日は今では4世までいて、ずっと日本人と一緒に暮らしてきた。戦後の日本復旧を一緒に支えてきたという面もあると思うし、そろそろ信頼して参政権を与えて欲しい。 "今でも遠い参政権", 金原 大志, 2007/07/27 朝日新聞朝刊 "私もひとこと 07参院選"

そもそも参政権というものは、国民のみが持つ重要な権利である。参政権を望むのであれば、帰化して日本国籍を取得すれば良いのだ。韓国人として "日本" という運命共同体の外から国政へ関わりたいというのは、我侭でしかない。自国民と外国人は対等ではないのは当然のことで、これは "差別" ではなく "区別" である。

なお、帰化申請全体の数%程度は不許可となるが、帰化の判断は各国がそれぞれ自由に決定するものなのでこれは諦めてもらうしかないだろう。もっとも、今回のようなケースで不許可になることはまず無いと思うが。

会社に行ったら、システム管理・運用業務に関わる人全員に「今日はシステム管理者の日。いつもありがとう」的なカードが配られた。

とかくシステム管理・運用業務というものは、具体的な成果というものが出にくく表立って評価されることは多くないもの。そんな中、このように粋な心遣いをしてくれた担当役員に感謝。

この日記でピンと来た人は、同じ現場の人です。:-)

Javaのようにバックトレース付きで死ぬ方法。

# confess.pl
use Carp qw[confess];
require "confess2.pl";
foo();
sub foo { bar() }

# confess2.pl
sub bar { baz() }
sub baz { zot() }
sub zot { confess "moe" }
1;

実行結果:

% perl confess.pl
moe at confess2.pl line 3
        main::zot() called at confess2.pl line 2
        main::baz() called at confess2.pl line 1
        main::bar() called at confess.pl line 4
        main::foo() called at confess.pl line 3

元ネタ: Holes in Firefox password manager (via Open Tech Press: Firefox 2.0.0.5にパスワードが盗まれる脆弱性)

Firefox 2.0.0.5でパスワードマネージャのセキュリティホールが修正されたが、危険性が残ったままであり、パスワードが盗み取られる可能性があるとのこと。

Firefoxには (ユーザが許可すれば) 一度入力されたパスワードは次回訪問時に自動的に入力されるが、これが同一ページ以外でも同一のサーバ上に同様のフォームがあれば機能してしまう。

ある会員制のサイトに利用者がそのサーバ上にウェブページを作成する機能を持つ場合、攻撃者は偽のフォームを設置することができる。この偽フォームの送信先に関わらず、そのページにサイトの会員がアクセスした時点で自動的に (IDと) パスワードが入力された状態になる。あとはJavaScriptでフォームの情報にアクセスすることでパスワード等を得られる。

JavaScriptを利用しない場合でも、CSS で

input {
  display: none;
}

とした上で、<input type="submit" value="さくらたんのエロ画像を表示"/> とするだけで引っかかってくれそうな予感。もしくは、画面いっぱいの Submit ボタンを設置するとか。

Perl v5.9.4 - v5.9.5間の変更点で気になったところをメモ。(元ネタはv5.9.5のperldelta) v5.9.x は開発版のため、安定版で利用できるまではしばらくかかる。(v5.10 で実装?)

非互換

汚染とprintf

Taint mode (汚染チェックモード) で動作する場合、printf/sprintfの書式指定文字列に汚染されたデータはNG。

undefとシグナルハンドラ

"undef $SIG{FOO}", "delete $SIG{FOO}" は "DEFAULT" の代入と等価になった。

仮想ハッシュは取り除かれた

仮想ハッシュ (pseudo hash) って何だ? と思ったら配列をハッシュっぽくアクセスする機構らしい。いらないな。

バイトコードコンパイラと perlcc は削除

信頼性と人的資源の問題らしい。

正規表現

再帰的なパタン

"(??{})" 構文を使用せず、再帰的なパタンを記述可能になる。後方参照して使えるので嬉しい。入れ子になった対応する山括弧にマッチさせるには下記の通り:

/
 ^                      # 行の開始
 (                      # 取込領域1の開始
    <                   #   開き山括弧にマッチ
    (?:                 #   以下のいずれかにマッチ:
        (?>             #     このグループ内でバックトラックを発生させない
            [^<>]+      #       山括弧以外の文字が1文字以上
        )               #     無バックトラックグループの終了
    |                   #     ... または ...
        (?1)            #     取込領域1の呼び出して再実行
    )*                  #   0回以上。
    >                   #   閉じ山括弧にマッチ
 )                      # 取込領域1の終了
 $                      # 行の終了
/x

PCREの実装とは少々異なるので注意とのこと。

名前付きの取込領域

$1 のように数字でアクセスする時代は終わった。(?<name>regex) でマッチさせた部分は \k<name> または $+{name} で参照することは出来る。例:

s/(?<letter>.)\k<letter>/$+{letter}/g

同一の取込領域名を複数個所に付けた場合、%+ の代わりに %- を利用する。これは値として配列へのリファレンスをもち、その配列にはマッチした文字列がそれぞれ含まれている。

標準のMSIME辞書では "支那" や "日本海" などを変換することが出来ない。(後者は "日本" + "海" で候補が出る。) これらの単語が変換できず、困る場合には自主規制語補完辞書を利用して登録すれば良い。

1. 言語バーから "ツール" → "辞書ツール" を起動。
2. "ツール(T)" → "テキストファイルからの登録(T)..." を選択。
3. ダウンロードしたファイルを選択。

ウェブサイトにアイコンを関連付ける機能は、元々 Internet Explorer に実装されていたものだが、今では多くのブラウザが対応している。

アイコンファイルの作成

Windows Iconファイルを作成するソフトが数多くあるが、ここでは手軽に使える toico を紹介する。インストールは難しいこと無いので普通に。標準的な make(1) には対応しないため、GNU make を利用する必要がある。

% wget http://wizard.ae.krakow.pl/~jb/toico/toico-0.18.tar.gz
% tar xvfz toico-0.18.tar.gz
% cd toico-0.18
% gmake
# gmake install

アイコンサイズは、ブラウザ用 (16x16)、デスクトップ用 (32x32) などがあるが、環境によっては 48x48, 64x64, 128x128 が利用されることもあるので、余裕があればそれらのサイズでも作成しておくと良いだろう。(ただし、128x128 は滅多に使われず、サイズも大きくなりすぎるため、64x64 までが現実的である。)

icon-16x16.png, icon-32x32.png, icon-48x48.png から favicon.ico を作成するには以下の通り実行すればよい。

% toico -o favicon.ico icon-16x16.png icon-32x32.png icon-48x48.png

FreeBSDには graphics/png2ico があったようだ。

アイコンファイルの指定

この機能により、Windows Icon ファイルを /favicon.ico (ウェブサイトの最上位ディレクトリ) でアクセスされる位置に配置するか、HTMLファイル中に以下の指定を行うことでURL欄やブックマークに表示することができる。混乱を避けるため、ファイルは常に /favicon.ico として、link による指定も同時に行うのが良いだろう。

<link rel="shortcut icon" href="/favicon.ico">