#define ErrorCheck(f) if ((err = f) != 0) goto fail
でおk

それは潜在的に危険なコードです。

ErrorCheck()を使う側で、以下ようなコードを書くと、

if (.../*条件A*/)
        ErrorCheck(...);
else
        .../*処理B*/;

この見た目と違って、実際のマクロ展開は(改行と字下げを付けると)、

if (.../*条件A*/)
        if ((err = ...) != 0)
                goto fail;
        else
                .../*処理B*/;

となり、「処理B」が「条件A」のelse部でなく、「(err = ...) != 0」のelse部にくっついてしまいます。

else節は最も近いif文にくっつくという構文規則になっているので、 マクロにelse節無しの剥き出しのif文を埋め込むのは危険なのです。

do〜while(0)で囲めば、このような副作用が無くなるので、より安全なマクロ定義となります。

面白そうなので、自分も(好みにより言語は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を読み返しましょう。

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

$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!