2007-03-08

勝手に小作り

dankogaiさんの404 Blog Not Found:勝手に添削 - Ajaxでデバッグしよう - ＠ITにてflookが必要なのかが論争になっているようなのでヒントだけ指し示した。

use strict;
use warnings;

open my $tokuhirom, '>>/tmp/child' or die $!;
open my $oppaisan, '>>/tmp/child' or die $!;

print $tokuhirom "tokuhirom\n";
print $oppaisan "oppaisan\n";

print $tokuhirom "tokuhirom\n";
print $oppaisan "oppaisan\n";

print $tokuhirom "tokuhirom\n";
print $oppaisan "oppaisan\n";

close $tokuhirom;
close $oppaisan;

この結果が以下の通りである。

tokuhirom
tokuhirom
tokuhirom
oppaisan
oppaisan
oppaisan

私が言うのもおこがましいですが、子種がミックスされないので子供が出来ない。

oppaisanが攻めにまわると

use strict;
use warnings;

open my $tokuhirom, '>>/tmp/child' or die $!;
open my $oppaisan, '>>/tmp/child' or die $!;

print $tokuhirom "tokuhirom\n";
print $oppaisan "oppaisan\n";

print $tokuhirom "tokuhirom\n";
print $oppaisan "oppaisan\n";

print $tokuhirom "tokuhirom\n";
print $oppaisan "oppaisan\n";

close $oppaisan;
close $tokuhirom;

逆になる

oppaisan
oppaisan
oppaisan
tokuhirom
tokuhirom
tokuhirom

2006-05-08

添削 #2

さて、第二回目の添削は、私がもっとも敬愛するPerl プログラマの小飼弾さん作であり、全Perl プログラマがお世話になるEncodeパッケージを選ばさして頂いた。

私の暇な時間のもて遊ばし方は、とにかく小飼弾さんの作られたコードを読むことに費やしている。
それは過去のバージョンのささいなコードすらも範疇に含まれる。

先日Encodeをバージョンアップされ、全てにperltidyを施されたとのことで、それは針の穴を眺めるように細部を読まさせて頂いた。

まずencodingのソースを読んで頂きたい。

        elsif ( $country_language =~ /^zh_CN|chin(?:a|ese)?$/i ) {
            $locale_encoding = 'euc-cn';
        }

これでは、zh_CN,chin,china,chineseの四つが引っかかるようになっている。
はたしてchinで引っかかる事は問題ないのだろうか?

念のために検証

[jank@localhost tmp]$ cat chin.pl 
#!/bin/perl
use CGI;
foreach (('zh_CN', 'chin', 'china', 'chinese')) {
if ($_ =~ /^zh_CN|chin(?:a|ese)?$/i) {
print "$_\n";
}
}
[jank@localhost tmp]$./chin.pl 
zh_CN
chin
china
chinese

ためしにGoogle先生にお伺いをたてると
chin の検索結果のうち日本語のページ約 717,000 件中 1 - 10 件目 (0.25 秒)

日本ちんこまんこ学会
注 意. ●このサイトはいわゆる「アダルトサイト」ではありません。
 当サイトの目的は エロ物件を観賞して笑ったりあきれたり脱力することであり、決して扇情的なコンテンツ を含むものではありません。
そういったものを期待されるとアテが外れます。 ...
www.kt.rim.or.jp/~sokohaka/chin-man/ - 2k - キャッシュ - 関連ページ

中国とは関係ない。

        elsif ($country_language =~ /^zh_CN|chin(?:a|ese)$/i ) {
            $locale_encoding = "euc-cn";
        }

変更後も検証

[jank@localhost tmp]$ cat china.pl 
#!/bin/perl
use CGI;
foreach (('zh_CN', 'chin', 'china', 'chinese')) {
if ($_ =~ /^zh_CN|chin(?:a|ese)$/i) {
print "$_\n";
}
}
[jank@localhost tmp]$ perl ./china.pl 
zh_CN
china
chinese

はてなを切り捨てただけである。

ジャンク・オーグァィは小飼弾さん大好き