手動ベンチ
2008/02/25 (Mon) 07:40:50
紅堂幹人

紅堂幹人Perlで色々と比較。とにかく早い方が正義よね。Perl…ElDorado Chat-NEOのフレーム部分とログ部分の2つのファイルでBenchmarkとHiResで計ってみた。

Package+global呼び出しだけでやった場合＠HiResとBenchmarkだけReadonly使用 index.cgi
　ProcessTime:0.17553msec
　time: 0.130usr+0.040sys=0.170.
Readonlyモジュール+Package globalでやった場合 index.cgi
　ProcessTime:0.18050msec
　time: 0.160usr+0.020sys=0.180.
constantプラグマ+package strictでやった場合 index.cgi
　ProcessTime:0.29358msec
　time: 0.220usr+0.050sys=0.270.

Package+global呼び出しだけでやった場合＠HiResとBenchmarkだけReadonly使用 log.cgi
　ProcessTime:0.01767msec
　time: 0.010usr+0.000sys=0.010.
Readonlyモジュール+Package globalでやった場合 log.cgi
　ProcessTime:0.01821msec
　time: 0.010usr+0.010sys=0.020.
constantプラグマ+package strictでやった場合 log.cgi
　ProcessTime:0.04647msec
　time: 0.030usr+0.020sys=0.050.

　こんな具合。constantは遅いし重い。myで局所化だけだとBechmarkやHiResで値がぶれたりするから、適時Readonly使いつつやる。設置設定を別ファイルでやる形式で作るなら仕方がないのかな。1ファイルだけで設定も全てやるならReadonly myできるから違う結果になるかも？　PHPと比較したら、index.php@index.cgiではPHPの方が早くて、loh.php@log.cgiではPerlの方が早いスコア出てるという。どういう書き方が早く動くかってコツコツと調べていくしかないんよね。

カテゴリ：日記 / この記事のURL / コメント(0)
風
2008/02/24 (Sun) 14:25:36
紅堂幹人

紅堂幹人風。風が吹く町。それが日常であり、風が吹かぬ盆地の我が故郷に帰り、改めて風の吹く町が恋しくなった。
　昨日・今日と旭川も風強いけどね。酒飲んでばかり。こんなんでいいのか俺。ははっ、革ジャンだから風吹いても寒くないぜー、なんて粋がってみたり。子供かっ。
　Readonlyモジュールを読んでPerl v5.8より前の書き方をしてみる。Googleとかで検索して出てくるのは大抵v5.8以降の書き方で「Readonly my $NAME => 'Mikito KOUDOU';」ばかりなんだけど、Perl v5.5～5.7では「Readonly::Scalar my $NAME => 'Mikito KOUDOU';」と::Scalarなどの指定をしなければならない、と。それで@niftyでも動いたからReadonly使おうかな、とか思ったり。古い書き方で書くよ、と。@niftyが憎く感じるけど(ぁ)。各モジュール読めばどのヴァージョン対応とかわかるけど、調べて書いてみようかな。英語圏にはそういう纏めサイトありそうな気もするけど調べない。英語苦手だから。それが俺なりのジャスティス。米は敵っ。米かぶれにゃならんでよかばい。どこの人。constantプラグマで定数化するよりもReadonlyモジュール使った方が早いのか……？　BenchmarkとったらReadonlyの方が早いわけだが。てーかconstもReadonlyも遅い。普通にpackage内でglobalで変数作っておいてそれを呼び出した方が早い結果出るわけですが。何無駄足踏んでる俺。
　日本清酒・千歳鶴 本醸造「なまら超辛」720ml=4合酒 アルコール15.0～16.0% 日本酒度+15 酸度1.4 米品種：吟風 精米歩号70を飲む。紅堂は辛口の清酒が好きだ。「なまら超辛」は軽やかで美味しく頂けた。

　本日の読了⇒私立！三十三間堂学院7

カテゴリ：日記 / この記事のURL / コメント(0)
日本酒スキー
2008/02/23 (Sat) 23:55:11
紅堂幹人

紅堂幹人國稀飲んだり泡盛飲んだり。酔ってブレス抱えたまま眠ったり。GD::Barcode::QRcodeなQRコード吐くPerl書いたり。モジュールって偉大ね。

カテゴリ：日記 / この記事のURL / コメント(0)
PerlのBenchmark
2008/02/22 (Fri) 09:07:34
紅堂幹人

紅堂幹人長期運用を視野に入れるとどうしても凝ってしまう紅堂です。単に開発コストが掛かってるだけですが。WebRing用にPerlを弄っているわけですが、strictプラグマ利用するとして、設定用ini的なのをpackageしといてそれを複数のファイルから呼び出すー、ってやってたらpackage内はglobalなわけで。局所化したら呼び出せないしなぁ、とか思ってconstantプラグマで定数設定をpackageしてやる方式にしたら速度劇的改善。HiResでいうと0.03609msec⇒0.01321msec。Benchmark+timestr(timediff(～), 'auto', '5.3f')設定で0.060usr+0.000sys=0.060⇒0.030usr+0.010sys=0.040でした。Windows内でコレなんでサーバにアップしたらもっと速度は出るわけですが。あと、ElDorado Chat-PHPとElDorado Chat-NEOのstrict版比べると、Windows上ならNEOに軍配が上がりました。ほぼ同じスクリプトで『PHP+microtime()で0.02242msec』と『Perl+HiResモジュールで0.01309msec』という具合。まぁ、起動コスト云々考えてPHPの方が掛かってるだけなんだろうな、と思いますが。んな事をちまちまやってます。まだ勉強中なのか、とツッコミ来そうです。WebRing今月中に開始できるかなぁ。厳しそう。
　⇒少し組みなおしたらPerlの方が掛かるようになりました(ぁ)。PHP+microtimeで0.02856msec、Perl+HiResで0.05685msec程度。PHPの方が組みやすいし保守もしやすい、という点はあるかな。ただセキュリティ的に難点あるからねぇ。どこでも大抵のサーバで設置できるglobalなPerlスクリプトが多いってわけでさ。
　泡盛『天座』と泡盛『舞富名』…共に43度。それに親父が10年寝かしてあった古酒と化した(爆)、泡盛 花酒『舞富名(老人と海)クバ巻』60度を飲む。ついでにブランデー『CAMUS NAPOLEON』を少し頂く。40度。どれも美味しいけど、中でも気に入ったのが60度の舞富名。ストレートでちびちび飲むのが紅堂流の飲み方。水割りやロックじゃなくてストレートで。たまに氷入れるのも美味しいけどね。正直言って、日本酒よりも泡盛の方が頭がすっきりしてクリアになる。日本酒だと酔ってタイピングもままならないのが、度のキツい泡盛であれば頭はまだ動くのだ。

カテゴリ：日記 / この記事のURL / コメント(0)
快眠
2008/02/21 (Thu) 15:13:50
紅堂幹人

紅堂幹人昨日は即「ばたんきゅー」byアルルなんてDIVE TO BEDしたわけで。札幌⇒旭川というか、神居古潭で野生のバンビ3頭見ました。泡盛等飲んでブレス抱えて寝てました。で、久しぶりに6時間以上寝ましたよ。昼間も9時から12時までブレス抱えて寝ちゃったし。疲れは取れたかなぁ、と。『Perl v5.5互換なスクリプト』書こうと頑張ってたりします。UNIXサーバとWindowsサーバでの互換性とか考慮しだすと限が無いので@niftyの時だけlibディレクトリ＆BEGIN処理追加で無理やり対応しちゃる次第。

カテゴリ：日記 / この記事のURL / コメント(0)
アパート引き払い
2008/02/20 (Wed) 18:36:42
紅堂幹人

紅堂幹人筋肉痛に更に筋肉痛になるような肉体労働を重ねてきました。旭川出発⇒札幌積荷⇒旭川積荷降ろしの引越し作業。

カテゴリ：日記 / この記事のURL / コメント(0)
明日は筋肉痛
2008/02/19 (Tue) 17:11:44
紅堂幹人

紅堂幹人朝からハッスルして実家の裏庭に面した窓が雪で埋まったの掘り起こそうと頑張ったんだけど上部が硬すぎて中抜き作業になりました。トンネル掘るの楽しいっ。1日で71.2kg⇒68.8kgになる辺り変動幅ありすぎな自分です。17日に初期化されたgigabeatに色々と今まで聞いてなかった曲入れてリフレッシュしてます。

　本日の読了⇒神様のパズル，狼と香辛料7

カテゴリ：日記 / この記事のURL / コメント(0)
さよなら青春
2008/02/18 (Mon) 20:28:58
紅堂幹人

紅堂幹人アパートに別れを告げる日が近づいてきました。Bフレッツともお別れです(そこが大事ですかっ)。実家はケーブルテレビ回線だもんなぁ(苦笑)。

カテゴリ：日記 / この記事のURL / コメント(0)
札幌ラストパフェバトル
2008/02/17 (Sun) 15:51:14
紅堂幹人

紅堂幹人ジャンボパフェバトル in 札幌も最後だろうか。戻ってきたら可能かもだけど。ということで、最終。「DEMODE Queen 札幌店」で戦ってきました。Demodeパフェスペシャル(\3,360)と。しんさっぽろ駅でドニチカ買って大通り地下へ。で、10時50分。gigabeatの様子がおかしいので見る。掲示板の画鋲で下部のリセットボタン入れ替えて起動したら、……【HD初期化】されました。また60GBかっorz　新道東から11時に降りて少しぶらぶらしながら11時半開店と同時に入店。11時半回っても『CLOSE』の札だったから恐る恐る入ったんだけどさ。で、パフェだけ注文。31分に注文し、49分にパフェスペシャルが席に来る。50分から進撃開始で、12時15分に完食しました。所要時間にして25分。総合的に美味しくて満足でした。12時5分からスプーン持つ手少し鈍くなったけどね。花火点火されてるのを写真で取るが逆光のせいで火花が写らず。残念。で、生クリームがたくさん。マーブルチョコにオレオ。中はチョコアイス・イチゴアイス・バニラアイスの3種。4:3:3の割合な感じがした。で。その後イオン寄ってドニチカで大通り移動して色々見たり。狸小路から「二条市場」行ったらカニ試食に引き止められたので食いました。買う気ありませんよ、呼び止められて止まっちゃってごめんなさいおじさん。その後Apple Storeへ。MacBook+iPod Classic買って17,800円キャッシュバックした方がいいかな、gigabeat壊れるの怖いし。んな日曜日。札幌パフェ個人戦は制覇したということで。敗北もありますがそこはそれ。個人で食える量と顔合わせはした感じだしいいかな、と。

　本日の読了⇒レオナルド・ダ・ヴィンチシリーズ2 旧宮殿にて 15世紀末、ミラノ、レオナルドの愉悦

カテゴリ：日記 / この記事のURL / コメント(0)
体調悪orz／Perl移植
2008/02/16 (Sat) 08:49:25
紅堂幹人

紅堂幹人かなり腹の具合が悪いので電子ジャーでおかゆに初挑戦中。できるかねぇ。バス乗れない気がするので実家に帰らずにアパートにヒキコモリ状態です。→お粥美味しいです。具なしカレーじゃなくてお粥でよかったよ。
　PHPからPerlに逆移植作業したりしてるんですが、その前にuse Benchmark qw(:all);で速度調べる。Perlの定数ってuse constantでやるや、とか色々と調査中。本も何も見ないで中途半端にやるからなぁ。まだまだ初心者に毛が生えた程度の紅堂です。PHPの場合構文の書き方ってのが大体決まってるけど、Perlは自由度が高すぎるし、コードによってスピードが変わりすぎるから最適化ってのを考えなきゃいけない。紅堂は@niftyの@homepageを長く使ってきたから、use モジュール;しない癖があったし、KENT WEBのスクリプトを教本としていたから尚更にダメダメになって、そこから一歩も踏み出せなくなってPHPに逃げた。2007年の内にPHPに慣れてPHPばかり使ってきたけど、Perlとも少し向き合わなきゃいけないよな、って思うんだ。とりあえずー……モジュールって早いのね。配布するとしたら、use constant 定数化したら動作しなくなるサーバあるから抵抗あるなぁ、とか考えつつ頭痛が痛いよママンとか知恵熱出してみる。Perlでは定数と変数きちんと使い分ける方が良いのね。
　諦めよう。@niftyにBEGIN { @INC = (); unshift(@INC, "./lib"); }でモジュール追加してやるー、とか思ったら挫折。use strict;とuse CGI;だけは使えるようになったけど。他めんどい。てかPerl 5.005_03(今風のヴァージョン表記にするならPerl v5.5.3)とか10年以上前のバージョン使ってんなよ。もうPerl 5.10.0の時代だぜ、まだ5.8.0全盛だけど。せめて5.6にしてくれマジに(ぁー)。

カテゴリ：日記 / この記事のURL / コメント(0)

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 ／前へ／次へ