09/03/04 12:58:45
>>165
何番のレスですか？
167:nobodyさん
09/03/04 13:18:26
とりあえずさ
何が要求仕様なのかもう一度整理しろ
んで、仮にこういうデータが来たらどう処理されるなってのを考えろ
168:nobodyさん
09/03/04 14:37:04
>>167 了解
ソースその1で動作環境はウェブサーバーで仮に$tensuua=20と$tensuub=20が同時に入力された場合 if→ifの場合のエラーと同じ不具合がおこりえるのかどうか
教えてください。
ソースその1
if ($tensuua < 10) {$ranka = 3;} elsif ($tensuua > 10 and $tensuua < 20) {$ranka = 2;} else {$ranka = 1;}
if ($tensuub < 10) {$rankb = 3;} elsif ($tensuub > 10 and $tensuub < 20) {$rankb = 2;} else {$rankb = 1;}
------------------------------------------------------------------------------------------
ソースその2
if ($tensuua < 10) {$ranka = 3;} elsif ($tensuua > 10 and $tensuua < 20) {$ranka = 2;} elsif ($tensuua < 30) {$ranka = 1;}
elsif ($tensuub < 10) {$rankb = 3;} elsif ($tensuub > 10 and $tensuub < 20) {$rankb = 2;} else {$rankb = 1;}
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";
173:nobodyさん
09/03/04 16:45:26
書き忘れたことあった。
use strict;
my $rankA = -1;
my $rankB = -1;
my @pointlist = qw/30 20 10/;
my @ranklist = qw/1 2 3/;
# 上記までは変更しない
# 下の pointX を変更して動作を確かめてください
my $pointA = 5;
my $pointB = 56;
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";
174:nobodyさん
09/03/04 16:47:31
for my $i (@pointlist){
$rankA = $ranklist[$i] if $pointA < $pointlist[$i];
$rankB = $ranklist[$i] if $pointB < $pointlist[$i];
}
の方がすっきりしない？
175:nobodyさん
09/03/04 17:20:03 bLGM+Am6
$_SERVER["REQUEST_URI"] の質問
ローカルホストで簡易掲示板を作りあるページで $_SERVER["REQUEST_URI"] とやると
127.0.0.1/hoge/bbs/
鯖にあげてローカルホストでやった場所と同じところで $_SERVER["REQUEST_URI"] とやると
127.0.0.1/hoge/bbs/php/ となるのはなぜ？
問題はないんだけど後学のために教えてください。
phpは つい1週間前に入れたばかりで httpd でのテストです。
176:nobodyさん
09/03/04 17:49:56
>>174
あっ、そうゆう書き方出来るんですね。
177:nobodyさん
09/03/04 19:02:40
ごめん174は嘘
178:nobodyさん
09/03/04 19:03:16
for my $i (0 .. $#pointlist){
$rankA = $ranklist[$i] if $pointA < $pointlist[$i];
$rankB = $ranklist[$i] if $pointB < $pointlist[$i];
}
179:nobodyさん
09/03/04 19:08:07 +iuw4LCF
if ifの謎の不具合は本にも載ってないし原因もわからず・・・
>>51 でも書いたように
if () {}
if () {}
if () {}
を
if () {}
elsif () {}
elsif () {}
にすると直る。
バグの症状は変数の数値が壊れる。この不具合が起こったプログラムは修正済みで不具合時のソースは見当たらず。
不具合時の環境はlolipopレンタルサーバーでブラウザーから呼び出したとき。
現在は直した部分以外の変数が壊れる現象があり、プログラムには100個程度のifが使われていることから、前回と
同じ理屈で不具合が起きているのではないかと推測。
if () {}
elsif () {}
else {}
を2個組み合わせてもifまたはelsifの2個以上が同時に真になったときに同じ現象が起きたのではないのかと推測
その推測を元に質問いたしましたが、文書力が無いので伝わらず。これはもうあきらめるしかないっぽい、外注に
出します、色々とありがとうございました。
この質問とレスの番号の全て→ >>45-66 >>151 >>153 >>155-174 >>176-178
180:nobodyさん
09/03/04 19:23:02
文章力とかじゃねぇよ
お前プログラム勉強する気あるのか？
ifとelsifの違いは>>156に書いてあるだろ
if(){}
elsif(){}
else{}
実行されるのはどれか1つだ
if(){}
if(){}
if(){}
実行されるのは0-3個のどれか
181:nobodyさん
09/03/04 19:25:37
ふぐあいかっこわらい
こんだけ世界中で使われてるものの不具合がお前ごときに見つけられるわけがねーだろ
182:nobodyさん
09/03/04 19:32:56
共用鯖で実験ですか…
氏ねよ
183:nobodyさん
09/03/04 19:34:08
>>179
>>58にも書いてあるし
お前はそれに>>62でありがとうって返してる
184:nobodyさん
09/03/04 19:41:31
つか、そんなもん100個くらい並べたくらいで壊れねーよ。
185:nobodyさん
09/03/04 19:55:41
では1000個並べてみます＞＜
186:nobodyさん
09/03/04 20:00:39
すごいのが来ていたんだな。。。
まー「外注に依頼」という正解にたどり着いたのはいいことだ。
187:nobodyさん
09/03/04 20:13:55
これは受託先がボッタくれそうでいいなあ・・
共用鯖で実験ならいつもやってますｗ
無限ループやらかして、何度自分でプロセス切った事やらｗ
188:nobodyさん
09/03/04 22:04:05
共有鯖って、数十秒でキルされるんじゃないの？
そういう設定が普通だと思ってた
189:nobodyさん
09/03/04 23:45:41 4H3lqSU+
ある文字列が対象の含まれていないときだけ実行させるにはどうすればよいでしょうか？
含まれていたときはスルーし、最後に実行させたいのですが。
こんな感じのときです
対象 hogehoge
検索 geh
含まれていたら print "NO";
含まれていなかったら他の条件へ。
190:nobodyさん
09/03/04 23:53:18
＞含まれていたときはスルーし、最後に実行させたいのですが。
ここがよくわからない
if ( $str =~ /geh/ ){
print "NO";
}else{
#他の条件
}
191:nobodyさん
09/03/04 23:53:35
my $str = 'hogehoge';
my $search = 'geh';
if($str =~ /$search/){
print "NO\n";
}else{
....
}
192:nobodyさん
09/03/04 23:53:59
含まれていたら終了
193:nobodyさん
09/03/05 00:02:54 PCYMuwfz
>>190
>>191
>>191で行ってみます。それをしたかったんです。
194:nobodyさん
09/03/05 00:09:14 PCYMuwfz
あれ？違いますね。
含まれていないときに終了させ、含まれている時にはスルーすることをしたいのですが。
$str = 'hogehoge';
if ( length($str) ne '8' ) {
print "no";
}
elsif {
geh が含まれていないとき
print "no";
}
elsif {
他の条件1
print "no";
}
elsif {
他の条件2
print "no";
}
else {
実行
print "oK";
}
こういうことです。
195:nobodyさん
09/03/05 00:16:13
含まれていたら print "NO"って書いてたやん
処理が逆なら真偽ひっくり返したらいいだけ
196:nobodyさん
09/03/05 00:26:06 PCYMuwfz
>>195
>含まれていたら print "NO"って書いてたやん
間違えていました。正しくは含まれていないときに実行したいのです。
真偽をひっくり返すとは？
197:nobodyさん
09/03/05 00:28:58
if(!条件)もしくはunless(条件)
198:nobodyさん
09/03/05 00:41:15 PCYMuwfz
こういうのは出来ないんですよね？
$str = hogehoge;
if ( $str != ~/geh/) {
print "NO";
}
199:nobodyさん
09/03/05 00:45:44
>>198
$str = hogehoge;
if ( $str !~ /geh/) {
print "NO";
}
200:nobodyさん
09/03/05 00:49:56
if($str !~ /geh/){
～処理～
}
!~ は 一致したときに偽となります。
なので、!~ で一致しなければ真となります。
201:nobodyさん
09/03/05 01:01:50 PCYMuwfz
>>199>>200
出来ました。
ありがとうございました。
202:nobodyさん
09/03/05 02:37:44
2chでもそうですけど書き込み確認画面ってありますよね？
あれってどうやっているんですか？２つcgiを用意するのか
もしくは1つでやっているんでしょうか？
203:nobodyさん
09/03/05 02:41:58
1つでも2つでもどうとでもできる
204:nobodyさん
09/03/05 06:51:21
簡易掲示板チャットをやっているんですがユーザーへの禁止語句にエラーが出てしまうのです。
原因を調べてみた結果「ー」がその原因だったことが判明しました。
ソースはこんな感じなんですがどうすればエラーが出ないようになるでしょうか？
if( $NG =~ m/$subject/) {
print '禁止ワードです';
}
文字コードはShift-JISでj-code.plなどは使用していません。よろしくお願いします。
205:nobodyさん
09/03/05 08:28:19
/\Q$subject/でいけるっしょ
206:nobodyさん
09/03/05 08:36:47
>>205
そんなやり方があるんですね。ありがとうございます。
軽くググってましたが \Q***\E を使うといいらしいですが\Eで閉じる必要はないのでしょうか？
207:nobodyさん
09/03/05 08:39:30
閉じてもいいよ
クウォートメタの効果を途中で止めたいなら\Eで閉じなきゃいけないけどこの場合はないから閉じなくてもいい
208:nobodyさん
09/03/05 08:41:08
>>207
なるほど～。
>>204の例だと if{ } の間だけ効果を発揮するということでしょうか？
209:nobodyさん
09/03/05 08:58:56
いやいや
/\Q$subject[a-z]\d/みたいにクウォートメタしたいものの後に正規表現使う場合には
/\Q$subject\E[a-z]\d/こう書かいて閉じておかないと、パターンマッチではなく
$subjectの内容直後に"[a-z]\d"という文字があるときしかマッチしなくなるということ
210:179
09/03/05 16:49:09 9GnY8N9B
外注に出したら100万と見積もられましたが100万はきついのでやはり自分で勉強したいのですが
ＩＦの使い方に特化した本ありませんか?
211:nobodyさん
09/03/05 16:56:24
そんな本あるかよ
212:nobodyさん
09/03/05 16:57:13
>>210
君はプログラムに手出ししない方がいいと思う。
213:nobodyさん
09/03/05 16:59:45
URLﾘﾝｸ(books.livedoor.com)
どうぞ
214:nobodyさん
09/03/05 17:05:25
ていうか近視眼的な解決策しか求めないからいけないんだよね。
215:nobodyさん
09/03/05 17:06:52
どうせならこのぐらいのボケかたがいい
URLﾘﾝｸ(www.amazon.co.jp)
216:nobodyさん
09/03/05 17:08:19
>>210
キミは
英語を勉強しようとして、「if」 しか解説してない本を探せると思うか？
日本語を勉強しようとして 「あ行」 しか解説してない本を探せると思うか？
217:nobodyさん
09/03/05 17:09:07
URLﾘﾝｸ(ec2.images-amazon.com)
こういったリンクの方がうれしい
218:nobodyさん
09/03/05 17:26:32
これってレディスコミック？中身が見たいｗ
219:nobodyさん
09/03/05 17:50:16
IFに特化した本ワロタwwwwww
220:nobodyさん
09/03/05 17:58:01
必要な情報はもう全部ここで答えられてるから
それ見て勉強するか100万払うこったな
面倒くさいからもう来んな
221:nobodyさん
09/03/05 19:52:11
週間 ifの全て
創刊号は演算子優先順位一覧表がついて、５９０円！
222:nobodyさん
09/03/05 19:52:52
さすがにネタだろ
ネタじゃないなら、もうソースも恥部もさらけ出せよ
223:nobodyさん
09/03/05 20:40:48
多分、リアルで高校生とか中学生とかなんだろう。Perlってホントに初心者向けの本ってないからなあ。PHPと違って。
224:nobodyさん
09/03/05 20:43:15
古い内容でよければ、ネットにいくらでも解説あるよな
225:nobodyさん
09/03/05 20:53:49
ifって古いとかどうこうじゃないけどな
226:nobodyさん
09/03/05 21:32:14
>>221
たけーよｗ
227:nobodyさん
09/03/06 00:19:12
>>179
if文を100個も並べるようなコードは、おそらくif文などほとんど使わずに書けると思うよ。
コード以前に、仕様定義を日本語で整理することに頭と時間使った方が結局近道。
どういう処理をさせたいか日本語で表せない(他人に伝えられない)のにコーディングできるはずがない。
例えば
if ($tensuua < 10) {$ranka = 3;} elsif ($tensuua > 10 and $tensuua < 20) {$ranka = 2;} else {$ranka = 1;}
のコードは、$tensuua == 10 のとき、意図しない結果となると思う。
条件式は、混乱するんだったら、表を書いてでも整理すべし。
228:nobodyさん
09/03/06 00:29:04
100万ｗｗ俺今から外注始めるｗｗｗｗｗ
229:nobodyさん
09/03/06 01:14:19
俺なら70万でやってやるよｗ
230:nobodyさん
09/03/06 01:57:58
5万
NCNRでお願いします。
231:nobodyさん
09/03/06 05:12:13
ちょうど俺液晶買い換えたいと思ってたんだよね
3万でいいよ
232:nobodyさん
09/03/06 13:15:46
今月給料が少なかったから手付５０万円で月々の保守１０万円で年間契約で受け持つよ
制作は規模にもよるけど３ヶ月以内を約束で。
233:nobodyさん
09/03/06 14:24:55
IFって何かと思った。
なんかのフレームワークかな？とか。
……俺だけ？
234:nobodyさん
09/03/06 14:28:56
>>233
君を入れて3人だけだね。
235:nobodyさん
09/03/06 18:09:13
俺はインターフェイスの設計かとｵﾓﾀ
236:nobodyさん
09/03/06 22:21:27
【月刊ifの全て】
創刊号 ifブロック特集
第２号 elseブロック特集
第３号 elsifブロック特集
第４号 unlessブロック特集
第５号 whileブロック特集
第６号 untileブロック特集
第７号 forブロック特集
第８号 if修飾詞特集
第９号 unless修飾詞特集
第10号 while修飾詞特集
第11号 until修飾詞特集
第12号 for修飾詞特集
第13号 if演算子(?:)特集
第14号 範囲演算子(..)特集
第15号 範囲演算子(...)特集
第16号 論理積演算子(&&)特集
第17号 論理和演算子(||)特集
第18号 論理積演算子(and)特集
第19号 論理和演算子(or)特集
第20号 排他的論理和演算子(xor)特集
第21号 grep関数特集
第22号 evalブロック特集
第23号 Switchモジュール特集
最終号 はじめてのPerlプログラミング
237:nobodyさん
09/03/06 23:18:44
創刊号は
if の歴史
からいこうぜ
238:nobodyさん
09/03/06 23:27:43
付録は何ですか＞＜
239:nobodyさん
09/03/06 23:36:05
2号からはおいくらですか？
240:nobodyさん
09/03/07 00:03:23
つか２年後に初めて入り口とかｗ
まともにやってたら中級の入り口に立ってるはずなのにｗ
241:nobodyさん
09/03/07 02:52:57
付録「ifとiff」
242:nobodyさん
09/03/07 02:58:51
>240
むしろツッコミどころは第23号じゃね？
243:nobodyさん
09/03/07 14:31:06
お前らの大好きな perl-users.jp で書けばいいじゃん。
244:nobodyさん
09/03/07 14:53:41
>>243
なにそれ?
245:nobodyさん
09/03/07 15:05:38
ぐぐれ
246:nobodyさん
09/03/07 18:31:27
Switchモジュール特集は今すぐ始めてくれて構わないんだぞ？
247:nobodyさん
09/03/07 22:21:11
>>243
あそこは頑張ってて好きだぜ。perl学ぶならここ見ろ、ってのが出来るのはいいことじゃね
248:nobodyさん
09/03/08 01:43:51
import関数は何をするものですか？
249:nobodyさん
09/03/08 11:38:53
Switchはクックブックに少し載ってるよね
250:nobodyさん
09/03/08 13:14:22
>>247
ああいうのは、5年後10年後に負の遺産になるのが常だからなあ。
251:nobodyさん
09/03/08 21:55:46
口で言うだけより行動する方がかっこいいし
あの辺のクラスタは10年経ってもずっとやってそう
252:nobodyさん
09/03/08 22:16:42
5.10のgiven,when,defaultって手もあるな
253:nobodyさん
09/03/09 00:06:15
>>251
何というか、君は腰巾着だな。ひとり立ちせえよ。
254:nobodyさん
09/03/09 00:38:08
>>253
煽りたいんですね、わかります
255:nobodyさん
09/03/09 01:19:00
$hogeがaとb以外のときに実行するには
if ($hoge ne 'a' or $hoge ne 'b' ){
print "oik";
}
で合ってますか？
256:nobodyさん
09/03/09 01:26:29
>255
その場合だと、「a以外」または「b以外」のときに真となるので、常に成立することになる。
「aまたはb」という条件式を作り、それをさらに否定するといい。
257:nobodyさん
09/03/09 01:27:09
andにするだけでいいだろ
258:nobodyさん
09/03/09 01:28:42
これ、新しいAAみたい → oik
orじゃなくて、andじゃないとマズくね？
259:nobodyさん
09/03/09 01:30:03
被ってるし。床に横になってギター弾いてるみたいんだよなー → oik
260:nobodyさん
09/03/09 01:40:09
olkはokの誤植です。。。
$hoge = 'c';
if ($hoge ne 'a' and $hoge ne 'b' ){
print "ok";
}
なら ok で、このとき $hoge = 'b' ならなにもしないんですよね？
261:nobodyさん
09/03/09 01:46:15
>260
おっけー。
あと、既に知ってるかもしれないが
「ド・モルガンの法則」でぐぐってみると勉強になるかも