IF文をつかったすごく簡単なperl

スクリプト(実際なにかしら動くやつ)を
見せてください。100P一名様

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2005/03/15 12:12:05
  • 終了:--

回答(5件)

id:taknt No.1

きゃづみぃ回答回数13539ベストアンサー獲得回数11982005/03/15 12:15:12

http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/pe_kj04.htm

CGI-Perl 基礎実地編 - 実習4 (制御構造 - if 判定) - SAK Streets

if ($dd > 30) {

$mm++;

$dd = 1;

}

実際には 宣言とか値をセットしないとダメですすが。

id:Lionfish No.2

Lionfish回答回数3ベストアンサー獲得回数02005/03/15 12:24:14

URLはダミーです。

以下のスクリプトをtest.plとして保存して

perl test.pl [何かの文字列]で実行してみてください。

何らかの文字列を与えていれば、標準出力に表示されます。

何も与えなければ「引数が与えられていません」と表示されます。

#↓ココから

if($ARGV[0]){

print ”引数として$ARGV[0]が与えられました。¥n”;

}else{

print ”引数が与えられていません¥n”;

}

id:Manami2005

ありがとうございます

2005/03/15 14:04:19
id:allows No.3

allows回答回数86ベストアンサー獲得回数02005/03/15 12:40:56

#!/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”;

}

id:Manami2005

ありがとうございます

2005/03/15 14:04:41
id:taknt No.4

きゃづみぃ回答回数13539ベストアンサー獲得回数11982005/03/15 12:43:26

if (1) {

printf (”1です”);

}else{

printf (”1以外です”);

}

id:Manami2005

ありがとうございます。

2005/03/15 14:05:08
id:aki73ix No.5

aki73ix回答回数5224ベストアンサー獲得回数272005/03/15 13:33:47

ポイント100pt

ホストの時間の秒の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);

※ 注意「¥」が全角になっています

オリジナルのソースはこちら、そのまま見ると改行が表示されないので、右クリック>ソースか名前をつけて保存で保存してください

  • id:sadcns
    判断基準

    私は回答していませんが、100ポイントと0ポイントの違いはなんでしょうね。。。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません