06/12/13 17:47:24
遅い部分探すのって、どうやるの？
自分のスクリプトでやってみたいので誰か教えてほしい。ググッたら出てくるかな？
145:nobodyさん
06/12/13 21:14:09
>144
Cだけど、牧野淳一郎のパソコン物理実地指導とかに書いてあったな。
私は勉強熱心じゃないへたれだからしらん。
146:nobodyさん
06/12/13 23:13:40
use Benchmark;するか、UNIXのコマンドラインからtimeコマンド使えば良いのでは。
147:nobodyさん
06/12/14 07:05:14 GsaWAeDl
>>143
お前は初心者丸出しだｗ
>>142
ツンツンしててすまんなもうちょい落ち着いて書き込むわ
>>144
簡単な方法は
$| = 1; （初心者に教えやすいおまじないだ！バッファリングを無効にするなんていってもわからんだろｗ）
つけて気になる箇所の前にprint文入れて動かして見れ
処理スピードを目で見て確認できるｗ
146が言うようにuse Benchmarkでやると数値で確認できる。
148:nobodyさん
06/12/14 07:16:22 GsaWAeDl
>>143
ちょっときつい言い方だったから言い換える
昔のPerl本は速さより動かす時代だったんだよ
初版が2000年以前のPerl本買ってみるといい
きちがいサンプルコードがいっぱいあるぞ
その頃の残骸がPerlの評価を下げてるんだろうな。
でも今はPHPの方が金にはなるんじゃない？
PerlもPHPもコードはさほど変わらんだろ。
極限の速さを競うならPerlで間違いない。
149:nobodyさん
06/12/14 13:44:19
まだ仕事が出回ってるPHPの方が金になるかもしれないけど
金額が安すぎるんだよなぁ
150:nobodyさん
06/12/14 23:59:30
偉そうに語っているが、たいした事は1つも書いていない
自称玄人乙
151:nobodyさん
06/12/15 05:49:06
>>143
俺もそんな書き方しようなんて考えた事もなかったｗ
152:nobodyさん
06/12/23 15:44:33
>146のようなことが
>145の本に結構具体的に書いてあるよ。
まあ当たり前の事なんだけど。
153:nobodyさん
06/12/29 14:04:40
本体はperlだけど、拡張子をphpに変えてみた。
スクリプトクレクレ厨が沸いてﾜﾗﾀｗ
154:nobodyさん
07/03/22 06:53:45
>>4に
５．安全性
perl<PHP
も加えて。
155:nobodyさん
07/03/22 07:06:19
>>153
script.cgi(中身はperl)をscript.php(中身はperl)にしたってこと？
動くのそれ。
156:nobodyさん
07/03/22 07:10:20
動くわけないわなｗ
辛うじてhtmlだけは出力したけどｗｗ
157:nobodyさん
07/03/22 07:19:21
ごめん。
誤爆とかそういうレベルじゃない。
ホントにごめん。
>>155と>>156は透明あぼんして下さい。
158:nobodyさん
07/03/22 23:22:01
ソースコードにHTMLのタグがあると気持ち悪いんだよ。PHP。
Smartyだっけ？それ使えばいい話だけど。
フリーのPHPスクリプトは気持ち悪いｗ
あとな。K○NTだっけ？Perlでフリーのスクリプト出してるとこ。
あそこが書いたソースもキモい。
今時use strict、use warningや -wしてないソースｗｗｗｗｗｗｗ
変数もグローバル/ローカルの区別なし。
159:nobodyさん
07/03/23 00:33:46
概ね同意だがこいつ頭悪そう
160:nobodyさん
07/03/23 18:28:46
strictにしてないなんて幾らでもあるじゃん。
自分で書くなら当然やるけど、別にちょっと使う程度なら問題ないし。
strictじゃないの？うはーｗｗｗｗきもっｗｗｗｗとか言う方がきもいわ。
161:nobodyさん
07/03/26 20:24:15
>>158
そりゃ今時書いたコードじゃないからだろ
162:nobodyさん
07/04/06 03:04:34
my と local をきちんと説明できる人間ってどのくらい居るんだろうな。
163:nobodyさん
07/04/06 05:22:41
初心者レベルだからlocalはぶっちゃけ自信ない。
よく特殊な使われ方するし。
164:nobodyさん
07/04/06 22:13:55
my(=局所変数)スコープ内でのみ利用できてスコープを抜けた所(リファレンスがなくなったところ？）で破棄される。
local(=退避変数)宣言があった所で値を退避させてスコープを抜けた所でもとに戻す。
って感じで説明するかなぁ
以下のコード実行結果予想して、実際に実行してあってれば理解できるんじゃないかな
use strict;
use warnings;
my $a = 1;
local $b = 1;
my $c = undef;
if(1){
my $a = 'a'; local $b = 'a';
$c = sub {
printf "%d:a=%s,b=%s\n",1,$a++,$b++;
};
printf "%d:a=%s,b=%s\n",2,$a++,$b++;
}
printf "%d:a=%s,b=%s\n",3,$a++,$b++;
$c->();
printf "%d:a=%s,b=%s\n",4,$a++,$b++;
局所化できない変数($_等)除くと、よっぽど特別な理由がなきゃmyでいいじゃんって思う