CGIで外部コマンドを実行したときのエラーメッセージを取得したい

質問

PerlCGIで外部コマンドを実行して実行結果を取得する場合、パイプを利用して、

open(IN, "date |");
while (<IN>) {
print $_;
}
close(IN);

などとして結果の取得はできたのですが、
間違ったコマンドを指定した場合には、
エラーメッセージが取得できません。

たとえば、
$data
などという間違ったコマンドを入力したときに、
bash: data: command not found
という内容をCGIで取得したいのですが、

open(IN, "data |");
while (<IN>) {
print $_;
}
close(IN);

のような記述では取得できませんでした。

このようなエラー内容を取得する方法はありませんでしょうか？

どうかよろしくお願いします。

回答No.1

春原 なの（@ymda） · ベストアンサー

open(PROC,"$cmd 2>&1 |");

のように、コマンドのあとに、 2>&1 を入れてみてください。
標準エラー出力を標準出力にリダイレクトします。