Perlプログラム上でアラートを表示

現在、Perlにてチェックプログラム(チェック内容は省かせていただきます)を作っています。

もともとはweb上で「登録」をクリックすると以下のような csh で記述されたcgiが実行され、
------------------------------
#!/usr/bin/csh
echo "Content-type: text/html"
echo ""
～中略～
./既存プログラムＡ.exe
------------------------------
最終的に「既存プログラムＡ.exe」が起動するというような物で、今回この「既存プログラムＡ.exe」が起動される直前にチェックプログラムを実行するというものです。

前置きはこのような感じで、教えていただきたい内容は、
チェックプログラム内の記述に以下のようなチェック項目があります。
------------------------------
if(!(-e $CIRCUIT)){
print"END";
exit(0);
}
------------------------------
「$CIRCUIT」というフォルダが存在するか否か、存在すれば次のチェック項目へ、存在しなければ処理終了というような単純な構文なのですが、
このif文内に、"そのようなフォルダはありません"アラートを表示させるような記述を追加することは可能でしょうか？

サンプルURLや情報等お持ちの方いらっしゃいましたら、
よろしくお願いいたします。

No.2 ベストアンサー 回答者： BLUEPIXY 回答日時： 2005/06/07 17:47

ウェブ上でアラートを出すなら

print <<END;
<script>
alert('メッセージ');
</script>
END
とかしてみたらどうでしょう。
（未確認自信なし）

この回答へのお礼

ありがとうございます、うまくいきました。

実は、以前にも似たような記述を追加したことがあったのですが、そのときは体裁を整えるためにタブを入れてしまい、それが原因で不具合がおこっていたようです。

どうも、お世話になりました。

お礼日時：2005/06/08 09:39

No.1 回答者： BLUEPIXY 回答日時： 2005/06/06 19:55

windows環境だったら

popup.vbs
-------------------------------------
Set wsho = WScript.CreateObject("WScript.Shell")
ret = wsho.Popup("そのようなフォルダはありません",3,"エラー")
-------------------------------------
Perlから
system("popup.vbs");
とかするとか

unix環境だったらＧＴＫを使うとか
ｔｃｌ／ＴＫを呼び出すとか

いずれにしても環境依存になると思います。

この回答への補足

早速のご回答ありがとうございます。

すみません、サーバーはHP-UXです。

ＧＴＫや、ｔｃｌ／ＴＫは初めて聞く言葉なのですが、
開発言語のようなものでしょうか？
少し、レクチャーしていただけると助かります。

以上、よろしくお願いいたします。

補足日時：2005/06/07 10:18

この回答へのお礼

すみません、補足いたします。
動作webはIEです。

お礼日時：2005/06/07 10:29