自作CGIを評価するスレ (672ﾚｽ)
上下前次1-新
154: 03/04/10 13:31 ID:??? AAS
>>153
追試。
--- bench ---
use strict; use Benchmark;
my $loop = 5000;
my $code1 = 'my $code = 1;' . '$code++;' x 100;
my $code2 = 'local $code = 1;' . '$code++;' x 100;
timethese($loop, { '1_my' => sub { eval $code1 }, '2_local' => sub { eval $code2 } });
---
● ActivePerl Build 522 on Win98SE
省13
155(1): 03/04/10 18:05 ID:??? AAS
>>121
if ( ( my $aho = $query->param('hogehoge') ) eq 'hoge') {
$a =~ s/a/b/;
$nazoflag .= $a;
} else {
# $ahoは見える。
}
# $ahoは見えない。
while ( defined ( my $line = <IN> ) ) {
# $lineは見える
省5
156: 03/04/10 18:08 ID:??? AAS
2行目が間違ってた。$aだとuse strictでエラーにならないから$ahoにしたんだけど、
これは、、sort用にこっそり、エラーにしないようになってるのかな。
追加、これはなかなか使える
foreach my $hoge (@list) {
}
157: 03/04/10 18:36 ID:ljl/7aqx(2/2) AAS
>>155
質問。continue って何？
158: 03/04/10 18:58 ID:??? AAS
man perlsyn
159: 03/04/10 20:47 ID:??? AAS
”次のループに移る前に実行されるブロック”であってる？
こんな制御構文あったんだ。知らなかった。Thx >> 158
160: 03/04/10 20:58 ID:??? AAS
うん。これは、nextとかを使うとき、行番号が確実に進むようにする、みたいに使う
161: ◆MvRbZL6NeQ 03/04/11 00:23 ID:??? AAS
なるほど
162: [ ] 03/04/11 00:36 ID:??? AAS
つまりはforの後処理か
163(3): ◆YHmsETNOS2 03/04/12 20:17 ID:??? AAS
再び。。。
すみませんがちょっと漏れのスクリプトを見てください。
前回のソートの練習に加え、ページの分割もしてみますた。
いちおう漏れの思っている動作しているのですが，突っ込むところがあれば，後学のために色々教えてください。
なお、前回指摘された “myとかの使い方” は。。。。。(＾＾A
ソースはこちら，
外部ﾘﾝｸ[txt]:members.tripod.co.jp
使ったデータはこちら
外部ﾘﾝｸ[txt]:members.tripod.co.jp
要 cgi-lib.pl です。
省1
164(2): 71 03/04/12 22:26 ID:??? AAS
>>163
登録データの件数が増えるのならば
sortの cmp と <=>のルーチンを考えたほうがいいかも
foreach(@keys){
if($_->[$n] !~ /^\d*$/){
$num_flug =1;
last;
}
}
データ量増えていくと、cmpを使う場合処理が遅くなる。
省14
165(1): 71 03/04/12 22:31 ID:??? AAS
>>164
if($n= 3){
だな、このデータの場合
166(2): 03/04/12 22:53 ID:??? AAS
=なんですか？
167(1): 71 03/04/12 23:00 ID:??? AAS
>>166
==だね(汗
168(6): 03/04/12 23:21 ID:??? AAS
>>163
途中でダレたからかなり適当ですがいぢってみますた。
外部ﾘﾝｸ[txt]:boobar.hp.infoseek.co.jp
169(2): ◆YHmsETNOS2 03/04/13 04:43 ID:??? AAS
>>164-168
さんくすでつ！
> データ量増えていくと、cmpを使う場合処理が遅くなる。
初耳でつ ﾒﾓﾒﾓ 〆（・＿・。）
>>168
全面的に書き換えてくださり、ありがとうございまつ！
感謝でつ！
乙でつ！
さっそくテストしてみまつた！
おー、動いているー。。 あれ（？＿？）
省2
170(2): 71 03/04/13 04:47 ID:??? AAS
>>169
初耳じゃなくて、そういうソースを組んでたから
指摘したまでなんだけど・・・
ソースちゃんと理解出来てますか？？(o_ _)o
171(1): ◆YHmsETNOS2 03/04/13 04:54 ID:??? AAS
>>170
> ソースちゃんと理解出来てますか
自分の>>163のソースは理解してまつ。
>>168さまのは、現在格闘中でつ。
苦戦しておりまつ。
172: 71 03/04/13 04:57 ID:??? AAS
>>171では、
foreach(@keys){
if($_->[$n] !~ /^\d*$/){
$num_flug =1;
last;
}
}
ｌココの部分がどういう処理をしてたか説明してみそ
173(1): ◆YHmsETNOS2 03/04/13 05:07 ID:??? AAS
foreach(@keys){ # @keysをforeachして
if($_->[$n] !~ /^\d*$/){ # $_の$n番目の値が数字ではなかったら、
$num_flug =1; # $num_flugに1を入れまつ
last; # foreachのループ抜けまつ
} # ifを閉じまつ
} # foreachを閉じまつ
省1
上下前次1-新書関写板覧索設栞歴
あと 499 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.007s