いや、僕もこのニュース聞いて「あ、コミケでカード決済できるかも」って思った口です。つり銭が足りないとかそういうときに「カードあったらそれでもいいですよ」って言えたら選択肢が増えるし。

まあ、コミケ会場だと電波状況が最悪なので3G、Wi-Fiともに繋がらないようなときに、とりあえずアプリ内で受け付けてあとからまとめて決済できるかどうかが重要じゃないかと思いますが。

僕としては買った人がPC買い換えたり、スマホやタブレット端末でも読みたいという場合にできるだけ変な制限のない、私的複製の範囲のコピーは自由にできて、なんだったら家族とか少数の友達にコピーしてあげられる、かつ不特定多数が使える用にインターネット上のサーバににアップロードした場合読めなくなるような、または半分までしか読めないようなDRMがあったら、即採用したいと思ってます。そんな都合の良いものは存在しないので基本DRMなしでやってますが。

もちろんサイトのアカウントも凍結されますよ。昔まだアダルト禁止の規定がなかった頃に自作エロ絵サイトで使ってて規約変更されたあと英語の文面ちゃんと読まずに放置してて凍結されたことがあります。なんとか口座にあったお金はデポジットできましたが、そのとき使っていた銀行口座は二度とPaypalでは使えなくなりました。（別メアドで取ったPaypalアカウントで銀行口座登録しようとすると拒否される）

面白そうなので、自分も(好みにより言語はHaskellで)書いてみようと思ったら、
すでに沢山あってちょっとクラクラしました……。

No guessingってのがokkyさんと似た動機で書かれた版かな。
リスト中のアルゴリズムを順に試して、
うまく行ったらまたリストの最初から繰り返す、
という造りも同じようです。

Sudoku Solver等、
似たようなプログラムが見付かるところを見ると、
やはり誰しも書きたくなる題材なのですかね。

時間ができたら自分でも遊んでみたいと思います。
面白いネタに気付かせて戴いて有難うございました。

古い格言に曰く、プログラムは思った通りではなく、書いた通りに動く。

@arrayを未定義値にしたいなら、

@array = undef;

ではなく

undef @array;

と書くべきだったという話ですかね。

undefの返値がLISTコンテキストで()と解釈されて欲しいと思うこともあるかもしれませんが、
それはそれで、

select undef, undef, undef, 0.1;

とか書けなくて不便という。

ある種のLISPにおけるnilの扱いと混同しがちですが、
結局のところ、Perlにおける()とundefを理解して適切に使い分けるのが吉かと思います。

混乱したらperldata(1)やperldoc -f undefを読み返しましょう。

おっと不等号の入力方法を間違えました。それから、s/perlfunc/perldoc/ですね。 ごめんなさい。

すでに自力で答を得ているかもしれませんが御参考までに。

$filename = "file space";
open (MD5,"md5sum $filename |");

のような2引数のopenでパイプを作ると次のように動きます。

1. Perlが変数$filenameを展開。("md5sum file space |")
2. Perlが末尾のパイプ記号を見て、残りを/bin/shに渡す。("md5sum file space")
3. /bin/shが文字列を空白で区切る。("md5sum", "file", "space")
4. /bin/shが"md5sum"を探して引数("md5sum", "file", "space")を渡す。
5. md5sumが引数を見て"file"と"space"のMD5を計算しようとする。

Perlが/bin/sh経由でmd5sumを実行するので、 空白に限らず、/bin/shの特殊文字が意味を持ってしまいます。

例えば、カレントディレクトリの全ファイルのMD5を計算しようとして、

#!/usr/bin/perl --
# 注: 危険なスクリプト
foreach my $filename (<*>) {
    open(MD5, "md5sum $filename |");
    print <MD5>;
    close(MD5);
}

なんてスクリプトを使ってしまうと、例えばカレントディレクトリに、

$ touch "<'file space'|rm -rf *"

なんてやって変な名前のファイルを仕込まれていた場合に泣きます。 良い子は真似しないでね。

話を戻すと、そもそもPerlが/bin/sh経由でmd5sumを呼び出すのが悪いので、 もっと安全にパイプコマンドを作れば良いのです。 では、どうするか? 悩んだらマニュアルを読みましょう。RTFM!! この場合はopenで悩んでいるので、

$ perlfunc -f open

とかやって読みます。するとパイプの説明で盛んに「perlipcを読め」と書いてあるので、そっちも読みます。

$ man perlipc

すると"Safe Pipe Opens"節に、 shellに邪魔されない方法が色々書いてあります。好きなやり方を選びましょう。TMTOWTDI.

Ubuntu 11.10ならこんな感じで動くはず。

open(MD5, "-|", "md5sum", $filename)

ちなみにsystemとかbacktick(qx//または``)とかも同様の問題を孕んでおり、 解決策も似ているので以下RTFM。

では引き続きPerlプログラミングをお楽しみ下さい。enjoy!