スクリプト(実際なにかしら動くやつ)を
見せてください。100P一名様
http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/pe_kj04.htm
CGI-Perl 基礎実地編 - 実習4 (制御構造 - if 判定) - SAK Streets
if ($dd > 30) {
$mm++;
$dd = 1;
}
実際には 宣言とか値をセットしないとダメですすが。
URLはダミーです。
以下のスクリプトをtest.plとして保存して
perl test.pl [何かの文字列]で実行してみてください。
何らかの文字列を与えていれば、標準出力に表示されます。
何も与えなければ「引数が与えられていません」と表示されます。
#↓ココから
if($ARGV[0]){
print ”引数として$ARGV[0]が与えられました。¥n”;
}else{
print ”引数が与えられていません¥n”;
}
#!/usr/bin/perl
$data = 1;
if ($data > 100) {
print ”¥$data = $data は100より大です。¥n”;
} elsif ($data == 100) {
print ”¥$data = $data は100です。¥n”;
} elsif ($data >= 0) {
print ”¥$data = $data は0以上100未満です。¥n”;
} else {
print ”¥$data = $data は0未満です。¥n”;
}
ありがとうございます
ありがとうございます。
ホストの時間の秒の1の位が0のときに赤文字で応答を返すCGIです
リロードしてみると分かります
#!/usr/local/bin/perl
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
print qq(Content-type: text/html¥n¥n);
print qq(<html><body>¥n);
if($sec%10== 0){
print qq(<font color=¥"#ff0000¥">丁度$sec秒です</font>);
}
else{
print qq(現在$sec秒です);
}
print qq(¥n</body>¥n</html>¥n);
※ 注意「¥」が全角になっています
オリジナルのソースはこちら、そのまま見ると改行が表示されないので、右クリック>ソースか名前をつけて保存で保存してください
ありがとうございます