犬土偶日記 2009年01月23日 -Debug Official Website-

犬土偶日記

海の近くに住みたい

Debug日記の使い方

<< 2009年01月22日目次 2009年01月24日 >>

話題：Webプログラミングとか

2009年01月23日

ダラダラ生きる

公開日時： 2009年01月23日 23時38分12秒

今日こそはパチ屋へ行く！などと意気込んでみたが、朝6時過ぎた頃に寝た。起きれるわけがない。全くやる気なし。で、夕方起きた。

いつも通りだが、何かよく分からん疲労に苦しめられてゐる。あまりにも動かないから衰弱し切つてゐるのかもしれない。色々とやらねばならんことはあるのだが、どうにもやる気になれない。取り敢へずエネルギー補給が必要だと思ひ、黒砂糖の塊をいくつか胃にブチ込んだ。糖が足りない。炭水化物なんか食つて糖に変はるのを待つ暇など無い。直に糖を補給する。

CHOSANGに借りたアニメ版デトロイトメタルシティのDVDの続きを見た。昨日は1枚だけ見たが、今日は2枚見た。あと1枚。

どうにも動く気になれない。飯を食はねばダメかもしれない。といふことで、味噌煮込みうどんとか色々食ふことにした。椅子タンから出産祝ひのお返しに貰つたハムの塊を拳の半分ぐらゐのサイズに切つてレンジにブチ込んでゐたのだが、麺を煮てゐる間に忘れ去つてしまつた。痴呆症か。結局レンジの中にハムを放置したまま麺とか他のを食つた。後でコーヒーを淹れに台所に行つたら誰かがレンジからハムを出したらしく、テーブルに置いてあつた。それを見て自分の脳の衰へ具合に恐怖した。もうダメだ。無職でダラダラ生きてるから常人よりも脳を使つてゐないはずだと思ふ。指を動かしたりすると脳が刺激されてボケ防止になるといふのをよく聞くが、それが本当なら毎日犬土偶日記で長文を書いたりギターを弾いたりしてゐるからボケないはずだ。なのにこんなにボケてゐる。半泣き状態でハムを食つた。

何もやる気になれんので、ボーッとネット巡回して時間を潰した。しかしこれは何も得られない不毛な時間だ。脳も刺激されない。生きてる意味が無い。これではダメだ。何かしないと死んでるのと同じだ。でも何もやる気になれない。本を読む気力も無いしギターを弾く体力も無い。何か無いかなと少し考へてみた。何も思ひ浮かばん。考へるのも面倒臭え。何となく自分が書いた過去の日記を少し読んでみたりした。Yahoo!ニュースでH2Aロケットの打ち上げが成功したと昨日か今日に見たので懐かしくなつて種子島に行つた時の日記を見たのだ。そこでふと思ひついた。種子島の祖母が亡くなる前日に作つた日記データ集計CGIによると犬土偶日記の1日当たりの平均文字数は現時点で約2770文字らしい。400字詰め原稿用紙で7枚近い文章を毎日書いてゐることになる。しかし、昔はそんなに書いてゐなかつたと思ふのだ。どんどん文字数が増えて行つてゐると思ふ。実際にはどうなのか調べてみようと思つた。1日当たりの平均文字数を月ごとに計算してみる。お前ならどういふ方法を採る？昨日までで1877件もある日記を1件づつ調べて自力で文字を数へて1ヶ月分の文字数を日数で割るといふ作業を62ヶ月分も手作業でやる？その選択は絶対にあり得ん。バカは平気でさういふことをするかもしれんが、520万文字も正確に数へるなんて人間業ではないし、一体何千時間消費するか分からん。かういふのは機械に調べさせるのが良い。といふわけで、Perlで適当にプログラムを組んでみることにした。セキュリティとか見易さとかも考慮してファイルPATHやファイル名等を一部改変してゐるが、次段落に載せるプログラムをアホみたいな勢ひで作つてみた。graph.pngといふ1*8ピクセルの画像もサクッと用意。list.txtといふファイルにはデータファイルの一覧といふか、データが存在する年月の西暦6桁数字が書かれてゐる。データファイルは月ごとに独立してゐる。プログラミング経験者はPerlを知らなくても適当に眺めれば何をやつてゐるか大体分かるだらう。全く経験が無くても何となく雰囲気で分かるかもしれない。

#!/usr/local/bin/perl

use Encode;

open (LIST, "./list.txt");
@list = <LIST>;
close (LIST);

chomp (@list);
@list = reverse (@list);

$table_row = "";

foreach (@list){

    open (LOG, "./$_.txt");
    @log = <LOG>;
    close (LOG);

    $length_sum = 0;

    foreach (@log){
        @data = split (/<>/, $_);
        $length_sum += length (decode ('shiftjis', $data[2]));
    }

    $length_ave = sprintf ("%.2f", $length_sum / @log);
    $graph_width = int ($length_ave / 40);

    $year = substr ($_, 0, 4);
    $month = substr ($_, 4, 2);

    $table_row .= "  <tr><td>$year年$month月</td><td>"
                . "<img src=\"./graph.png\""
                . " width=\"$graph_width\" height=\"8\""
                . " alt=\"$year年$month月の平均文字数グラフ\">"
                . " $length_ave</td></tr>\n";

}

$table_row =~ s/\n$//;

$table = <<"TABLE";
<table summary="犬土偶日記 1日当たりの本文文字数 月間平均">
 <caption>犬土偶日記 1日当たりの本文文字数 月間平均</caption>
 <thead>
  <tr><th>年月</th><th>度数</th></tr>
 </thead>
 <tbody>
$table_row
 </tbody>
</table>
TABLE

print "Content-Type: text/plain; charset=EUC-JP\n\n";
print $table;

exit;

このプログラムを実行すると1ヶ月ごとの1日当たりの本文平均文字数と棒グラフ画像の一覧表をHTMLのTABLE要素でマークアップして画面にテキストで出力する。それをCtrl+Aで全選択してCtrl+Cでクリップボードにコピーし、日記フォームにCtrl+Vでペーストすれば自分ではほとんど何もせずに一覧表を日記に載せることができる。自分で文字を数へたりTABLE要素をマークアップしたりするのと比べたら何万倍も楽だ。で、実行結果を貼つてみる。

犬土偶日記 1日当たりの本文文字数月間平均
年月	度数
2003年12月	1587.82
2004年01月	1977.13
2004年02月	2178.55
2004年03月	1500.48
2004年04月	1733.00
2004年05月	1226.68
2004年06月	1462.97
2004年07月	780.74
2004年08月	1509.35
2004年09月	2149.37
2004年10月	1927.06
2004年11月	2109.00
2004年12月	982.32
2005年01月	2342.74
2005年02月	1856.57
2005年03月	2228.00
2005年04月	2117.77
2005年05月	1838.48
2005年06月	2124.80
2005年07月	2242.29
2005年08月	1942.58
2005年09月	2270.47
2005年10月	2206.42
2005年11月	2711.60
2005年12月	3204.87
2006年01月	2181.65
2006年02月	4068.39
2006年03月	1988.55
2006年04月	1877.63
2006年05月	1874.03
2006年06月	3153.87
2006年07月	2572.94
2006年08月	3491.55
2006年09月	2396.20
2006年10月	3173.71
2006年11月	1790.60
2006年12月	3879.84
2007年01月	2834.58
2007年02月	3017.68
2007年03月	2881.03
2007年04月	2639.20
2007年05月	2961.10
2007年06月	3381.67
2007年07月	4168.65
2007年08月	4372.61
2007年09月	4524.27
2007年10月	4909.19
2007年11月	2813.57
2007年12月	4468.19
2008年01月	2954.55
2008年02月	4197.66
2008年03月	3011.00
2008年04月	3216.27
2008年05月	3514.87
2008年06月	3824.07
2008年07月	4644.68
2008年08月	4677.58
2008年09月	11636.26
2008年10月	3418.55
2008年11月	3065.13
2008年12月	3020.71
2009年01月	3426.09

やはり初期は文字数がかなり少なかつたらしい。少しづつ少しづつ増えて行き、2000文字前後で落ち着いて来たかなと思つた時に突然4000文字を突破する。2006年の2月だ。その頃は祖父の13回忌の法事で種子島に行つた。H2Aロケットの8号機だか9号機だかの打ち上げを見たりして写真もたくさん載せた。普段引き篭もつてゐて書くことが無かつたのに突然遠くへ行つて観光したりしたから書くことが急激に増えて文字数も増えることになつたやうだ。ちなみにその時の種子島旅行は話題：種子島旅行記（2006年2月）でまとめて読める。早速先日苦労して改造した日記分類を有効活用。で、その後は不安定に増えたり減つたりを繰り返しつつ、全体としては少しづつ文字数が増える傾向が続いてゐる。2007年の7月から10月は長期間の種子島旅行で文字数が激増してゐる（話題：種子島＆屋久島 2007年夏）。可児に帰つて来たらまた少し減つたが、やはり増加傾向は続く。そして2008年の7月から9月はまた種子島と屋久島へ遊びに行つて文字数が増えた（話題：種子島＆屋久島 2008年夏）。しかし、2008年9月だけ圧倒的に著しく文字数が多い。屋久島観光のせゐだらうか。アホみたいに大量の写真や動画を載せたから、そのためのHTMLタグで文字数が増えたといふこともあるだらう。単純に本文も相当多かつたと思ふ。かごしま水族館に行つたりもしたし、9月前半は確かに多かつたと思ふ。でも10日ぐらゐに可児に帰つてからは別に何も無かつたやうな気がする。最初の10日だけで平均文字数をあんなに劇的に上げられるものなんだらうか。グラフだけ見ると不気味だ。長年犬土偶日記を読み続けてゐた人もあの月には文字数の多さに挫折してしまつたかもしれない。これからも文字数は増えて行くんだらうか。引き篭もつてゐてあまり書くことは無いのだが、タイピング速度向上によつて書く量も増えてゐるのかもしれない。

何もやる気になれなかつたのでボケ対策としてくだらないプログラミングをやつてみたが、そのおかげで日記に書くこともできた。一石二鳥だな。夕方起きたからまた朝まで起きてゐることになるだらうが、この後何をすれば良いんだらうか。依然何もやる気になれない。また黒砂糖でも舐め回すか。少しは体を動かした方が良いかもしれんな。部屋の掃除でもしよう。

<< 2009年01月22日目次 2009年01月24日 >>

話題：Webプログラミングとか

Info.

公開日時	2009年01月23日 23時38分12秒
本文文字数	12989文字 (タグ込み)
URL	https://orca.xii.jp/debug/diary/diary.cgi?id=dogoo;date=20090123
RSS1.0	https://orca.xii.jp/info/diary-dogoo.rdf

Comments

コメントはありません。

コメント投稿フォーム


名前		メール
『各国』の読み仮名（現代仮名遣い、平仮名）
本文
文字色	■　 ■　 ■　 ■　 ■　 ■　 ■　 ■

名前を省略すると「名無しDebugger」になります。
メールアドレスの入力は任意です。
海外からのコメントスパム対策のため、表示された漢字の読みを必ず入力してください。
本文は必須項目です。投稿する場合は必ず記入してください。タグは使えません。
改行が1つ入力された場合は強制改行として処理されますが、2つ以上連続する改行は段落の終了として処理されます。
本文の行頭に「＞」のある文は引用としてマークします。引用でない部分の冒頭に「＞」は付けないでください。
コメントの削除は管理者若しくは日記執筆者しかできません。書き込む時は注意しましょう。
全部記入が済んだら投稿ボタンを押す前に一度読み直して推敲しましょう。

Debug- Official Website -