どんぞこ日誌

* [Perl] 酒は飲め飲め 飲むならば

　　二日酔いしない飲酒量は計算式でわかる！（ここ経由）。「好きなn時間だけほろ酔いを持続するための酒の量」というのもあるそうで、どうも「２１世紀における国民健康づくり運動（健康日本２１）」の資料が元ネタらしいのですが、どこにあるのかわかりませんでした。以前、「今月のAcme」でAcme::Drunkを翻訳しましたが、今度は上記の計算を自動でやってくれるAcme::Drunkardを自作してみました。

 use Acme::Drunkard;
 # 定数Beer,Wine,Sake,Whiskyをexport
 
 my $checker = new Acme::Drunkard;
 
 $checker->weight(52);
 $checker->timespan(6);
 $checker->alcoholicity(12);
 # あるいは$checker->alcoholicity( Wine )等;
 
 if(my $result = $checker->result){
   print "$result (ml)\n"; # $result->as_value
 }
 else{
   print $checker->error;
 }
 # エタノール度数を与えなくとも各酒種換算可
 $checker->weight(50);
 $checker->timespan(8);
 print $checker->result->as_BottleWine,"\n";
 print $checker->result->as_MasuSake,"\n";

　とりあえず、瓶・缶ビール、ウィスキー（シングル、ダブル）、ボトル・グラスワイン、升酒で換算機能つき（グラスワインは体積がデタラメ）。計算間違ってるかも。

* [メモ] 桑田乃梨子の漫画アニメ化、他

　・桑田乃梨子の「だめっこどうぶつ」アニメ化。今更ですが、知りました。キッズステーションかぁ……

　・ＮＨＫの会長はどうして責任を取って辞めないのですか？　日本放送労働組合はなかなかやるなと思いました。