どんぞこ日誌

* [Perl] tkpp

PAR-0.76にtkppというスクリプトが入っています。これはTkを使ったもので、PARを楽に使うppというスクリプトをさらに簡単に扱うことができます。で、何となく日本語化してみました。

* If it breaks, you get to keep both pieces.

　で、そのAUTHORSのところに"In the event this application breaks, you get both pieces ;)"というのがありまして、最初これが何を意味しているのかわかりませんでした。ググッてるうちに、どうやら "if it breaks, you (get to) keep both pieces."という表現がよく使われているようなのですが、その意味するところはどこにも見つけることができませんでした。要は「無保証」のことみたいで「これが壊れたら、あなたは両方の破片を維持する」→「壊れても文句いうな」ということなのでしょうか。どこが発祥だがご存じの方がいましたらぜひ教えてください。

* [雑感] 懐かしい土ワイ

　ここの記事をみて、「運命交響曲殺人事件」を思い出しました。大層小さい時分にテレビ版をみて、番組冒頭指揮台が爆発して指揮者が死ぬシーンに度肝を抜いた覚えがあります（まあ、子どもの頃ですから）。その少し後になって、とある教会の本棚で元の小説を見つけて感動したものです。なお、上記最初のリンク先はネタばれに等しいので、万一読んでみようという方はご注意を。

* [Perl] Perlで"This is a pen"->reverse

　　Scalar::Propertiesというのがありまして、何とはなしにドキュメントをみてみたら面白そうなものでした（そして、たぶん役には立たない）。

#!/usr/bin/perl -w
use strict;
use Scalar::Properties;
 
my $bar = 'Maka'->sleep(1); # プロパティ
my $foo = 0->true;          # 0に真値をセット
if ($foo and $foo == 0){
    print "0 なのに 真\n";
}
　
print "Hello Work"->length; # 他にも色々
print $bar->is_sleep;       # true

てな具合で。問題は演算子をオーバーライドする関係で変数展開やエスケープシーケンスに悪さするところ。ソースを弄る必要があるかも。和訳したのでそのうちperldocjpに登録します。

* [Perl] Scalar::Properties追記

ソースの128行目、_valueを_interpにして129行目を削除したら解決しました。あと演算子のオーバーロードじゃなくて、定数のオーバーロードでした。このモジュールと同様のものとして5.8.1以降ならautobox.pmというのもあります。

* [Perl] 5.8.2

Perl 5.8.2。perldeltaによると5.8.1と5.8.0のバイナリに互換性が無い場合があったが、5.8.2は5.8.0と互換があると。

* [Perl] Scalar::Propertiesその後

　バグレポート出したら最新ので修正されました。

* [雑感] 金さんや大岡越前じゃあるまいし

　例の「産廃以下」発言に関して結構色々な日記で、賛同してる所をみかけるのですが、昨今の公人の「感情的な」（実際に今回の件が本当に感情的なのか、教育的配慮や指導に基づくものなのか知りませんが）発言で溜飲を下げる風潮は、結構気持ちの悪いものを感じます。裁判官は法に基づいて審理を行えばいいのであって、（発言の状況・文脈における妥当性を抜きにした場合）わたしだったら軽率な発言をする裁判官に裁かれたくないなあ。

* そーなんだ

　国民審査の用紙と比例区の投票用紙を一緒に渡される理由。ああなるほど、そういうものでしたか。

* メールデーモンといえば

　上記サイト経由で知った「■メーラーだえもんさんへのお手紙」。MAILER-DAEMONが生成するエラーメールへのさらなる返信メール達の物語。ついこっちを思い出してしまうの（左18上11）（NetHack Visual Archive）。NetHackについてはこちら。

* [今月のAcme] Acme::Drunk

　たぶん日本で唯一のCPANのAcme追っかけコーナー。今回気に入ったのはAcme::Drunk。性別、体重、アルコール量と飲み始めてからの時間を入力すると、血中アルコール濃度を計算してくれます。和訳してみました。Web上からも計算できるサイトがありました。

　計算に使われているWidmarkの公式。どういうものか知るにはここがいいかも。これを見てるほうが酔いそうですが。

* [漫画] 珍しく少女漫画関連じゃない話

　山本夜羽音氏の「社民党解党の讒言」、他。人に歴史有りだなぁ。

　そういえば、以前「私と漫画 4」であげた小川松風氏は今でも名を変え、作風を変えてネット上で活躍されていますね。いやあ、よかったよかった。

* [書籍] ソーサリー　とか

　来月、ソーサリー第2巻『魔の罠の都』が出るそうな（創土社）。

　O'REILLYの近刊Security Warrior（表紙画像）。他のは駱駝だの梟だのなのに……ことによると、セキュリティとセキトリをかけた洒落なのかしらん？（サーバ管理者日記経由）

* [Perl] Class::Fields

　だいぶ前に訳したClass:Fieldsですが諸般の事情から、とりあえずこのサイト内で公開しておきます。

* セキュリティ診断

　@policeのセキュリティ診断（高木浩光＠茨城県つくば市 の日記のリンクメモから）。メールソフトの一覧に目をやると、よりによって素敵なことに電信八号の名が。喜び勇んで試してみたものの、拍子抜け。

* [Perl] JEncode

　JEncodeにjfoldを加えました。これでほぼJcode.pmと同じような処理ができる……かな？

追記　mime_decodeが正しく処理されるように修正。trは相変わらずうまくいかないなぁ……

* 『ビバ！マツケン』

『松平健』の着メロ、着信ボイス配信サービス『ビバ！マツケン』始まる（リンク先はPDFファイル）。

やはり、時代は　マ　ツ　ケ　ン。

* [Perl] ActivePerl

ActivePerl 先日Perl 5.8.1版がリリースされてますね。

* example.com

例に使うドメインの例 (原文)。あー、予約されているんだ（perl質問箱より）。

* [Perl] Data::PageとData::Pageset

　ページング処理を簡単にするモジュールData::Pageとそれを継承したData::Pageset。

 use Data::Pageset;
 my $total         = 100; # 全データ
 my $per_page      = 5;   # 1頁毎のデータ数
 my $current_page  = 11;  # 現在のページ
 my $pages_per_set = 5;   # 一覧表示数
 
 my $page = Data::Pageset->new({
     'total_entries'    => $total,
     'entries_per_page' => $per_page,
     'current_page'     => $current_page,
     'pages_per_set'    => $pages_per_set,
 });'
 
 print "----\n"; # 現在のページ上のデータ番号
 print $page->first, '-', $page->last, "\n";
 print "----\n"; # 51-55 を表示
 
 for(@{ $page->pages_in_set }){
     print $_, ","; # 11,12,13,14,15,
 }
 # 現在のページのデータだけ表示
 my @data = map{ [$_, $_ * 2] } 1..100;
 for($page->splice(\@data)){
     print $_->[1], "\n";
 } # 102 104 106 108 110

今まで自前で作ってましたよ……

* 朝飯

　アルデンテを試す（ぴかごは日記経由）。む、確かにゆで具合が違いますよ。麺のコシが丁度良い具合。こりゃいいや。

* [漫画] 私を月まで連れてって！（竹宮惠子）

　古本屋でFLビックコミックス版が全巻セット500円だったため購入（実は1巻と5巻しか読んだことがなかったのですが）。やっぱり中学の頃読んだ時とずいぶん印象が違うなあ。特におヤエさんに対して。というより、この作品の真の主人公はおヤエさんだったんだ。最終回を読んだ後に、2000年代に入ってからの続編を読むと、感慨ひとしお。たぶん。

* めでたい

　基本的にスポーツにはほとんど関心ないのですが、喜ばしいニュースが。うん、素晴らしい〜

* クトゥルフが呼んどる

　コール オブ クトゥルフ d20［日本語版]（ビオラインリード経由）。ついに。だ、誰か買いませんか？

* 七面鳥持ってきたのにチキンとはこれ如何に？

　タイトルは某所から。で、それとはほとんど関係なく、雑文に「『ベルリン陥落』について」を追加。

* [Perl] ルンゲ・クッタ法

　Math-RungeKutta-1.00。その名の通りのモジュールです。あると思っていたら今までMath系にはなかったんですね（PDL::RungeKuttaというのが既にあるようです）。その昔N88BASICで計算する時に原理も理解せず使っていました。懐かしかったのでリンク。

* [雑感] 陰陽師のイントネーション

陰陽師については、当方もはなはだ気になっていたというか、極めて耳障りだったので、とうとう調べてみました。イントネーション。新版の日本国語大辞典を見ますと、オンミョージだそうです。（国民文化研究所の掲示板より）

　引用したら太字がどこなのかわからなくなりましたが、ンミョの部分です。オンミョージ。私も気になっていたので、ホッとしました（何が？）。