Perlコーディング初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
169:nobodyさん 09/03/04 15:04:49 質問に偽装したいやがらせ 170:nobodyさん 09/03/04 15:47:05 >>168 my ($tensuua, $tensuub) = (15, 15); my ($ranka, $rankb); if ($tensuua < 10) {$ranka = 3;} elsif ($tensuua < 20) {$ranka = 2;} else {$ranka = 1;} if ($tensuub < 10) {$rankb = 3;} elsif ($tensuub < 20) {$rankb = 2;} else {$rankb = 1;} print "a:$ranka b:$rankb\n"; これを実行すると、 a:2 b:2 こうなるわけだが、何か問題があるのか？ 171:nobodyさん 09/03/04 16:28:04 そもそもてめぇの言う不具合を示せよ 俺らはエスパーじゃねーんだよクソッタレ 172:nobodyさん 09/03/04 16:43:38 use strict; my $rankA = -1; my $rankB = -1; my $pointA = 5; my $pointB = 56; my @pointlist = qw/30 20 10/; my @ranklist = qw/1 2 3/; for(my $i = 0; $i < $#pointlist + 1; $i++){ 　　$rankA = $ranklist[$i] if $pointA < $pointlist[$i]; 　　$rankB = $ranklist[$i] if $pointB < $pointlist[$i]; } print "point = $pointA / rank = $rankA\n"; print "point = $pointB / rank = $rankB\n";

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5504日前に更新/66 KB
担当:undef