ふらふらと生きる毎日。
なんかいろいろあるねぇ。とりあえず死に様占いを。
あなたの死に様は、文句ナシのAランク
死亡診断書 お名前: ほりかわ 性別: 男 生年月日: 73/12/xx
死亡した状況: 豆腐の角に頭をぶつけて死亡。 死因: 頭蓋骨陥没骨折による脳挫傷 死因の種類: 不慮の外因死 死亡した場所: 自宅の台所
ナイス。
お手軽なアンケートを書いてみる。まずはHTML部分から。
<form action="./enq1.rb" method=POST> Q1:目玉焼きにかけるのは? <input type="submit" name="ケチャップ" value="ケチャップ"> <input type="submit" name="マヨネーズ" value="マヨネーズ"> </form>
いたって単純。質問に対し回答ボタンを並べるだけ。
4: require 'cgi' 5: require 'pstore'
データを保存するためにPStoreを利用する。
6: 7: $SAFE = 1 8:
別に理由がないときは$SAFE = 1ぐらいが安全。安全でないファイル名でファイルを開いたりするうっかりミスを防げる。今回は関係ないけど。
9: cgi = CGI.new 10: a1 = 0 11: a2 = 0 12: db = PStore.new("enq1.db") 13: db.transaction do 14: db['a1'] = db.root?('a1') ? db['a1'] + 1 : 1 if !cgi['ケチャップ'].empty? 15: db['a2'] = db.root?('a2') ? db['a2'] + 1 : 1 if !cgi['マヨネーズ'].empty? 16: a1 = db.root?('a1') ? db['a1'] : 0 17: a2 = db.root?('a2') ? db['a2'] : 0 18: end 19:
選ばれた項目のカウンタを増やす。
20: print <<EOT 21: Content-Type: text/html; charset=EUC-JP 22: 23: <html> 24: <body> 25: <table border=0> 26: <tr><td>ケチャップ #{a1} <td><img src="enq1b.rb" alt="graph"><td> #{a2} マヨネーズ 27: </table> 28: EOT
あとは表示するだけ。グラフ化するためにもう一つスクリプトを呼び出す。
10: def image_out(per) 11: print "Content-Type: image/png\n" 12: print "\n" 13: img = GD::Image.new(300, 20) 14: img.colorAllocate(255, 255, 255) 15: 16: blue = img.colorAllocate(0, 0, 255) 17: img.rectangle(0, 0, 299, 19, blue) 18: img.filledRectangle(0, 0, per * 299, 19, blue) 19: 20: img.png $stdout 21: end
グラフィックライブラリとしてGDを利用した。棒グラフならすぐに描ける。
生物の定義を検索してみたり。
Davidは自分で自分を造れるかしら。
富士山素晴らしい!
土曜日の6時半ごろ5合目出発。ひどい雨。7合目を越えた辺りに雨は上がったが,深い霧のため3メーター先も見えない。8合目の小屋に着いたのは10時を回る。9合目を目標に予定を変更し,仮眠を取って1時45分小屋を出発。8.5合目辺りで雲を抜けたか,霧が晴れ上がる。風と寒さが厳しい。9合目に5時。ここで日の出を迎える。6時半頂上到達。カレーうどんを食べ,8時前に出発。12時すぎ5合目に戻る。温泉に寄って温もり,帰宅したのは夜10時20分。
なんかもー大変だったが,手が届きそうな星々,流れ星,朝日,抜けるような青空,いずれもよかった。
2001.08.14追記;来年のために。靴はちゃんと登山用にすべき。リュックにも雨対策が必要。中身を出したら使用済みは面白くない。
来客者をそのまま入場させると「混雑」が発生する施設。さっさと入場制限しろって! あと小動物の持ち込みを禁止するか料金半額というのをやめろ。
何かの原稿を書いたり。今月はめちゃめちゃ苦労した。
新聞は毎日読むが,固有名詞を得る以上のことはできないと思う。まじめに読むと頭が腐る。
このWebサイトの各ページにコメント欄を設けた。「フィードバックを友にしよう」の第一歩。
事業部長の面々が並ぶ会議で発表したり。めちゃめちゃ緊張する。
ASCII編集部から見本誌が届く。遅いー。もう買ってるって。
glibcを2.2.4にバージョンアップ。今回は問題なくいけた。バージョニングもおっけーみたい。
Netsphere Laboratories http://www.nslabs.jp/
[PR]