- 【UOT-100】24時間ワンセグ野郎 Part04【LOG-J200】
565 ：名無しさん＠編集中[sage]：2010/06/09(水) 01:30:40 ID:Nos8YNDP - >>558
switchがいかんのですね。
6秒だったのが4秒になりました。
|
- 【UOT-100】24時間ワンセグ野郎 Part04【LOG-J200】
567 ：名無しさん＠編集中[sage]：2010/06/09(水) 21:21:23 ID:Nos8YNDP - >>566
> perl -d:DProf ./player.pl > /dev/null
> dprofpp
Total Elapsed Time = 3.867343 Seconds
User+System Time = 3.742597 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c Name
81.6 3.056 3.056 9 0.3396 0.3396 DBI::st::execute
4.01 0.150 3.310 1 0.1495 3.3101 main::ttnres
2.51 0.094 0.331 6 0.0157 0.0551 main::BEGIN
1.92 0.072 0.151 9 0.0080 0.0168 LWP::UserAgent::BEGIN
1.63 0.061 0.061 267 0.0002 0.0002 main::TitleSI_icon
1.42 0.053 0.053 8 0.0067 0.0067 main::MakeCal
0.56 0.021 0.039 4 0.0052 0.0097 segwrapper::BEGIN
0.48 0.018 0.018 327 0.0001 0.0001 DBI::st::fetch
0.45 0.017 0.033 7 0.0024 0.0047 IO::File::BEGIN
0.45 0.017 0.054 5 0.0034 0.0108 Storable::BEGIN
0.37 0.014 0.014 2 0.0070 0.0070 HTTP::Response::BEGIN
0.32 0.012 0.012 3 0.0041 0.0041 BSDPAN::BEGIN
0.27 0.010 0.015 5 0.0021 0.0031 IO::Seekable::BEGIN
0.24 0.009 0.010 8 0.0011 0.0012 URI::BEGIN
0.21 0.008 0.014 1 0.0077 0.0140 DBI::install_driver
>
あとはSQLを何とかしないとダメみたいですね。
|
- 【UOT-100】24時間ワンセグ野郎 Part04【LOG-J200】
568 ：名無しさん＠編集中[sage]：2010/06/09(水) 21:23:03 ID:Nos8YNDP - >>567
switchの方は、
> perl -d:DProf ./player0605.pl > /dev/null
> dprofpp
Total Elapsed Time = 5.707016 Seconds
User+System Time = 5.503058 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c Name
55.4 3.052 3.052 9 0.3391 0.3391 DBI::st::execute
14.8 0.818 1.534 10794 0.0001 0.0001 Text::Balanced::_match_variable
14.2 0.784 3.126 20 0.0392 0.1563 Switch::filter_blocks
9.92 0.546 0.734 9792 0.0001 0.0001 Text::Balanced::_match_quotelike
9.03 0.497 0.497 21750 0.0000 0.0000 Text::Balanced::_failmsg
6.56 0.361 0.500 3862 0.0001 0.0001 Text::Balanced::_match_codeblock
2.36 0.130 3.381 1 0.1305 3.3808 main::ttnres
2.33 0.128 0.128 38085 0.0000 0.0000 Regexp::DESTROY
2.11 0.116 0.396 7 0.0166 0.0565 main::BEGIN
1.14 0.063 0.150 9 0.0070 0.0167 LWP::UserAgent::BEGIN
1.11 0.061 0.061 267 0.0002 0.0002 main::TitleSI_icon
0.96 0.053 0.053 8 0.0067 0.0067 main::MakeCal
0.65 0.036 0.056 1255 0.0000 0.0000 Switch::case
0.58 0.032 0.051 9 0.0035 0.0057 Switch::BEGIN
0.53 0.029 0.029 327 0.0001 0.0001 DBI::st::fetch
>
マシンはAtom330
|
- 【UOT-100】24時間ワンセグ野郎 Part04【LOG-J200】
571 ：名無しさん＠編集中[sage]：2010/06/09(水) 23:27:44 ID:Nos8YNDP - >>568
<table>のデータを縦に送り出す方法があるのか！って思ったけど違いましたね。
チャンネルごとにすべてのチャンネルを読み込んでから、時間順に書き出していますので、残念ながら体感もあまり変わらないようです。
sub select の頭で ttnres (return $glbSOするようにした) のスレッドを作ってカレンダーを書き終わったところで join して返値をprintするようにしてみても体感あまりかわりませんでした。
やはりあとはSQL文をさわるしか.....
|
- 【UOT-100】24時間ワンセグ野郎 Part04【LOG-J200】
572 ：名無しさん＠編集中[sage]：2010/06/09(水) 23:32:49 ID:Nos8YNDP - >>571 の >>568 は >>569 の間違いでした。
さらに「縦に」は「横に」かな。よくわからん。
ちなみに,SQL文に時刻計算がたくさんあったので、すべて消してperl側で時刻計算してみたけどほとんどかわりませんでした。
|