スクリプト（実際なにかしら動くやつ）を
見せてください。100Ｐ一名様
No.1
13539
1198
http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/pe_kj04.htm
CGI-Perl 基礎実地編 - 実習4 (制御構造 - if 判定) - SAK Streets
if ($dd > 30) {
$mm++;
$dd = 1;
}
実際には 宣言とか値をセットしないとダメですすが。
No.2
30
URLはダミーです。
以下のスクリプトをtest.plとして保存して
perl test.pl [何かの文字列]で実行してみてください。
何らかの文字列を与えていれば、標準出力に表示されます。
何も与えなければ「引数が与えられていません」と表示されます。
#↓ココから
if($ARGV[0]){
print ”引数として$ARGV[0]が与えられました。￥n”;
}else{
print ”引数が与えられていません￥n”;
}
No.3
860
#!/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”;
}
ありがとうございます
No.5
522427
100pt
ホストの時間の秒の1の位が０のときに赤文字で応答を返す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);
※ 注意「￥」が全角になっています
オリジナルのソースはこちら、そのまま見ると改行が表示されないので、右クリック＞ソースか名前をつけて保存で保存してください
sadcns
2005/03/17 12:58:40
223
221
ありがとうございます