海の近くに住みたい
話題：Webプログラミングとか
公開日時： 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要素をマークアップしたりするのと比べたら何万倍も楽だ。で、実行結果を貼つてみる。
| 年月 | 度数 |
|---|---|
| 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日だけで平均文字数をあんなに劇的に上げられるものなんだらうか。グラフだけ見ると不気味だ。長年犬土偶日記を読み続けてゐた人もあの月には文字数の多さに挫折してしまつたかもしれない。これからも文字数は増えて行くんだらうか。引き篭もつてゐてあまり書くことは無いのだが、タイピング速度向上によつて書く量も増えてゐるのかもしれない。
何もやる気になれなかつたのでボケ対策としてくだらないプログラミングをやつてみたが、そのおかげで日記に書くこともできた。一石二鳥だな。夕方起きたからまた朝まで起きてゐることになるだらうが、この後何をすれば良いんだらうか。依然何もやる気になれない。また黒砂糖でも舐め回すか。少しは体を動かした方が良いかもしれんな。部屋の掃除でもしよう。
話題：Webプログラミングとか
| 公開日時 | 2009年01月23日 23時38分12秒 |
|---|---|
| 本文文字数 | 12989文字 (タグ込み) |
| URL | https://orca.xii.jp/br/diary/diary.cgi?id=dogoo;date=20090123 |
コメントはありません。