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 · ベストアンサー

ウェブ上でアラートを出すなら
print <<END;
<script>
alert('メッセージ');
</script>
END
とかしてみたらどうでしょう。
（未確認自信なし）

お礼

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

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

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

回答No.1

BLUEPIXY

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

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

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

お礼

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

補足

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

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

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

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