人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

IF文をつかったすごく簡単なperl
スクリプト(実際なにかしら動くやつ)を
見せてください。100P一名様

●質問者: Manami2005
●カテゴリ:コンピュータ 学習・教育
✍キーワード:Perl スクリプト
○ 状態 :終了
└ 回答数 : 5/5件

▽最新の回答へ

1 ● きゃづみぃ
●0ポイント

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

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

if ($dd > 30) {

$mm++;

$dd = 1;

}

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

http://ash.or.jp/perl/smpl_perl01.htm


2 ● Lionfish
●0ポイント

http://www.google.co.jp/

Google

URLはダミーです。

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

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

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

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

#↓ココから

if($ARGV[0]){

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

}else{

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

}

◎質問者からの返答

ありがとうございます


3 ● allows
●0ポイント

http://www.iis.u-tokyo.ac.jp/~susaki/perl/condition.html

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

}

◎質問者からの返答

ありがとうございます


4 ● きゃづみぃ
●0ポイント

http://www.hatena.ne.jp/awindow?

if (1) {

printf (”1です”);

}else{

printf (”1以外です”);

}

◎質問者からの返答

ありがとうございます。


5 ● aki73ix
●100ポイント

http://nifberry.727.net/test/hatena123.cgi

ホストの時間の秒の1の位が0のときに赤文字で応答を返すCGIです

リロードしてみると分かります

http://nifberry.727.net/test/hatena123.txt

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

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

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ