プリント文が実行されないのですが？

おかゆきお [E-Mail] [HomePage] 2000/03/23(木) 03:50:50
$ARGV[0] = "test" ;　# CGIテスト用

if ("$ARGV[0]" eq "test") {
print "Content-type: text/html\n";
print "\n";
print "CGI Script OK.\n";

# exit(0);　＜ここをコメントアウトすると
}
#
# sample Main
#
{
     #テスト用に加えたプリント文
　　　print "ハローＷＷＷ" ;

　exit(0);
   ####
    サンプルプログラム
　} #end program ;

まず始めのif文でエラー？　をおこさないと
　テスト用の　プリント文が実行されません。
　ＣＧｉプログラムにはメイン関数はないのですか？
　また、実行されるはずの位置にあるプリント文が
　実行されないのはなぜでしょうか？

にゃあ 2000/03/23(木) 05:04:09
はい、メイン関数はありません。

ＰＥＲＬは、上から順順に命令を行って行きます。

$ARGV[0] = "test" ;　# CGIテスト用

print "Content-type: text/html\n";
print "\n";

if ("$ARGV[0]" eq "test") {
print "CGI Script OK.\n";
} else {
#テスト用に加えたプリント文
print "ハローＷＷＷ" ;
}

…かな？

たれ 2000/03/23(木) 13:39:12
>　ＣＧｉプログラムにはメイン関数はないのですか？

言語によって違います。
Perlにはありませんが、Ｃ言語などで書けばもちろん必要です。