アンケートの HTML を作る作業があまりに面倒なので， データ定義ファイルを読んで HTML やチェック用 JavaScript を自動生成するツールを作成． 定義ファイルといっても，ただ perl で require するだけの変数代入文なんだけどね． 無名ハッシュと無名変数と bare word string を使うと， ただの代入文も，とっても定義ファイルっぽくなって良し．

　つまりどんなんかってーと，

    $enquete[ 0 ]{ 'TEXT' } = 'enquete text 1';
    $enquete[ 0 ]{ 'OPT'  }[ 0 ] = 'option 1';
    $enquete[ 0 ]{ 'OPT'  }[ 1 ] = 'option 2';
    $enquete[ 1 ]{ 'TEXT' } = 'enquete text 2';
    $enquete[ 1 ]{ 'OPT'  }[ 0 ] = 'option 3';
    $enquete[ 1 ]{ 'OPT'  }[ 1 ] = 'option 4';

    @enquete = [
        {
            TEXT => 'enquete text 1',
            OPT  => [
                'option 1',
                'option 2',
            ],
        },
        {
            TEXT => 'enquete text 2',
            OPT  => [
                'option 3',
                'option 4',
            ],
        },
    ];

　後者の方が長いけど見やすいでしょ？(笑)

　昼休みに鑑賞するが，やっぱしせめて日本語の解説が欲しいかなー（贅沢(笑) 　今週末の NHK-BS でも放映は解説が石見さん？ 　とりあえずこっちも録画ヨヤーク．

　3:00 就寝，8:30 起床． 今日の 5:00 から CATV でやってた「CART 第19戦 ラグナセカ」を録画しといたので， 朝それを CD-R に焼いて持って出社．