ヴ

dann さんとお会いするにあたり、何かサプライズ的なものを用意したいと思っていました。前日くらいに IRC のとあるチャンネルで何かないかと聞いたところ、lyokato さんより、画用紙に「ヴ」を書いて掲げるというアイディアをいただきました。当日、近くのダイソーで画用紙とマジックを買って、実際に「ヴ」を掲げてみました。「ヴ」のおかげで、はぐれることなく無事お会いすることが出来たのでよかったです。

感想

dann さんもエントリで書かれているように、普段から IRC で会話をしているので、物理的には初対面なのに、感覚としては初対面ではないという不思議な感覚でした。

一つだけ心残りなのは、「Angelooooooooooooos!」と一緒に連呼してもらうのをすっかり忘れていたことです。今後の manko.pm でぜひオ願いします。

短い時間でしたが、dann さんのアツいお話を色々聞かせていただくことができました。今すぐではないけれど、3 年後、5 年後も視野に入れて何か面白いコラボレーションをできたらいいなぁと強く思いました。

dann さん、今回は声をかけていただいて、ありがとうございました！

see also

• manko.pm #001 ヴ が開催されました - manko.perl-mongers.org
• ヴの中に人に会ってきた！ - dann@webdev - dann's portal

NBC でやってるドラマ Chuck が、ひじょーに awesome です。

ドラマのスタートは、

チャックは家電量販店BUYMOREの情報家電部門NERDHERDで働くオタク青年。

過去に彼はスタンフォード大学で学んでいたがルームメイトで親友でもあったブライス・ラークリンの裏切り行為により大学を退学させられてしまう。

現在のチャックは親友に裏切られた心の傷を抱きながらも同じ店で販売員として働くモーガン、同居している姉のエリーエリーのボーイフレンドのキャプテンと共にまったりとした日常を過ごしていた。

チャックの誕生日パーティーの夜、ブライスから久々にメールが届く。ブライスは政府情報機関の極秘情報を全て盗み政府機関に処刑される寸前にチャックに暗号化されたデータを送ったのだ。知らずにメールを開いたチャックは膨大な情報量のサブリミナル画像を強制的に見せられ気絶してしまう。

http://mamono.2ch.net/test/read.cgi/tv2/1195257823/

という感じで、スパイアクションモノです。

チャック・バトアスキー(Zachary Levi)の頭の中に全機密情報がインプットされてしまったので、サラ・ウォーカー(Yvonne Strahovski)とジョン・ケイシー(Adam Baldwin)がチャックを保護する任務につきます。この保護で、チャックはスパイとして活動しながら、今まで通りの生活を送り始めます。この 3 人の関わり合いがぼくは面白いです。チャックが作戦現場で起こすドタバタであったり、チャックとサラの感情の揺れ動きあったり、その他チャックの勤務先での不思議な人間関係があったりと、コミカルなスパイアクションという感じで一度見始めると止まらなくなるドラマです。

そんな awesome なドラマなんですが、日本語字幕付きで流通してるのは、ターミネーター:サラ・コナー クロニクルズ レンタル DVD の 5 枚目に入っている第1話のみで、日本の amazon にある Chuck - Complete First Season (4pc) (Ws Sub Ac3) には残念ながら日本語字幕が付いてないです。

リンク

US からの接続であれば、The WB で Season 1 が、NBC.com で Season 2 が見れます。

なんとかすれば日本からも見れるので、そこらのあらすじサイトを参考に、ぜひわくわくしてください！

• Chuck | Watch Episodes Online for Free - Chuck TV Show, Series - Video Clips, Episode Recaps, Photos, Bios, Downloads & Games NBC Official Site
• The WB - Chuck - Full episodes of Veronica Mars, One Tree Hill, The O.C., Sorority Forever, Childrens' Hospital, Friends, Gilmore Girls, Smallville on TheWB.com, It's TV Online.
• Chuck Wiki (エピソードガイド season1、エピソードガイド season2)

PC 向けだと、"Kifu for Windows" があり、それの flash 版、Java applet 版が主催団体などにも貼られています。

ケータイ向けの便利ソフトとしては kif2swf があるのみで、いろいろまとまったデータを閲覧するのは手間がかかる印象を受けました。

そこで、自動更新型のサイト 携帯向け将棋棋譜サイト - kifu::woremacx を作りました。

やっていることは、適当な間隔で Web をスクレイピングして棋譜データを取得し、解釈し、盤に並べ、kif2swf にデータを埋め込んで、swf を作り直して公開するという簡単なお仕事です。

今のところ UTF-8 のみの出力で、スクレイピング先が 2ch 限定とあまりやる気がない状態だったりしますが、ぼちぼち広げていきたいと思います。

どうぞご利用ください。

kifu::woremacx

• 携帯向け将棋棋譜サイト - kifu::woremacx

関連サイト一覧

• 王子南交差点 / kif2swf
• 将棋の棋譜でーたべーす
• 道路上将棋! 携帯向け無料ｵﾝﾗｲﾝ対戦将棋
• 柿木の将棋ソフトウェア
• 将棋の棋譜貼り専門スレッド 過去ログ
• 将棋棋譜集

さて、はてなブックマークをチェックしていると、未だにこのブログの古い記事を参考にしていただいていることがあるようです。参考にしていただいたりブックマークしていただけるのは非常にうれしいですが、どんな分野においても進歩が速く、情報はすぐに陳腐化していきます。

そこで、うちのブログの古い記事に到達した場合には、情報が古いことを表示することにしました。どのくらいの基準でやろうかと迷いましたが、1ヶ月経過したら古い情報であることにしました。

しくみとしては、たぶん MT 4 から導入されたと思われる relative=js をまねして拡張することで対応しました。個別エントリのテンプレートに <$MTEntryDate format="%x %X" relative="js"$> と書かれているあれです。

ということで、今年も woremacx をよろしくお願いいたします。

主に文章をデジタルデータとして管理する場合、多種多様な方法があり、個々人で慣れた親しんだ環境があるかと思います。

今日は、依存関係のある大量の文章を扱う場面で、全体の構造を把握しながら長文ノートを残しておきたくなり、ちょっと困ってしまいました。

ぼくの場合、扱う対象の全体の構造を、頭の中で明確に再現できるほど理解が深まっている場合だと、テキストファイル系でも平気です。ベタテキストや yaml 的なテキストで書き散らかして、あとで grep するかんじですね。しかし、理解度が乏しい場合、テキストファイルに全部突っ込んでると何が何やらわからなくなります。

今回は、何が何やらわからなくなっている状況なので、自分が取り組んでいることを整理するためツールが欲しくなりました。紙と鉛筆最強なんですが、それは見づらさと消しゴムの大量消費の観点から好きではありません。現代的なマインドマップ、そして、ツリー的に全体像を把握できつつ、各エレメントに長文ノートを残しておける環境が望む環境です。#vagina の皆さんに聞いたり、色々ぐぐったりして、ようやく XMind というマインドマップツールにたどりつきました。

データファイルは、zip でつつまれた xml です。xml なので、大量に入力することがあれば、ちょっとしたコンバータを書いてやればカンタンに取り込めそうです。

今日はほんと良いツールにたどり着きました。開発者の皆さんありがとう。

• XMind - Social Brainstorming and Mind Mapping

imo758 さん: キー判定は抽象化してカスタマイズが楽になってるとなお良かったかも

http://b.hatena.ne.jp/imo758/20081116#bookmark-10849858

asakura-t さん:「Okoshiyasu2」あたりを使ったほうがいいと思うんだ。 http://www12.plala.or.jp/mojo/Oko1.html

http://b.hatena.ne.jp/asakura-t/20081117#bookmark-10849858

とのコメントを頂きました。ありがとうございます。

今回このスクリプトを作るまでに至ったぼくの行動を書いておきたいと思います。

foobar2000 期

出先でネットに繋がってないときに、テープ起こしする必要がありました。

ぼくのノートパソコンには Windows Media Player と foobar2000 しか使えるソフトが入ってませんでした。

foobar2000 で、C-a/s/d/f に逆方向シーク、 C-j/k/l/; に順方向シークをそれぞれ移動量を変えて割り当てて使ってみました。そうすることにより、キーボードから手を放すことなく自由に移動でき、良い感じだと思いました。

その場はなんとか無事に終わりました。

ソフト開拓期

今回またテープ起こしするときに、なんかいいソフトが一応調べてみることにしました。

ぐぐって出てきた記事(ITmedia Biz.ID：「テープ起こし」に特化した再生ソフト)を見て、Okoshiyasu2 は試してみました。

• Okoshiyasu2 の良い点
  • グローバルにキーボードを乗っ取ってくれるのは、Alt-Tab しなくていいので非常に良い。
• 変な環境に慣れてしまったので物足りない点
  • 移動量の違うシーク 4 種類で慣れてしまっているので物足りない。

作ったらいいんじゃね期

• 今回使った古い系の foobar2000 は、Ctrl なしでホットキーを割り当てれることが判明しました。(現行系でも設定すれば出来るのかもしれないけど、やり方がわかりません＞＿＜)
• perl のコンソールアプリとして作ってしまってもいいかもわからんね、と思いました。
• どうせならシークしたポイントから常時 A-B リピートするモードがあっても良いね、とひらめきました。

常時 A-B リピートは、非常にお気に入りです。

だめなところ

• 今のところ、Athlon64 X2 3800+ なマシンで常時 20% くらい CPU 食ってる出来の悪い子です。ループの構成が悪いと思います。バッテリー駆動してるマシンだと酷いことになると思いますｗ
• ご指摘があったとおり、設定周りをベタ書きしているので、カスタマイズが容易ではないです。
• ボリュームコントロール/ミュートがありません。
• 一時停止すら実装してません。

だめなところは、そのうち気が向いたら直していけたらいいなと思います。

Alt + Tab で他のウィンドと行き来したあとで、全くキーを受け取らなくなる現象があってハマリました。GetEvents で入力があるか確認してから Input で入力内容を得るとハマらずに済みます。シーク時に Win32::MediaPlayer まわりに与える時間は ms に直して渡しました。

使い方

開くファイルをスクリプトの引数として起動します。起動したら、勝手に 10 秒リピートになっています。

• q: 終了

• j: 5 秒後
• k: 10 秒後
• l: 30 秒後
• ;: 5 分後

• f: 5 秒前
• d: 10 秒前
• s: 30 秒前
• a: 5 分前

• t: リピートするかのトグル
• u: リピート秒数--
• i: リピート秒数++

コード

coderepos にもうｐしました repeat-audio-player.pl

#!/usr/bin/perl

use strict;
use warnings;

use threads;
use Thread::Queue;
use Win32::Console;
use Win32::MediaPlayer;
use Time::HiRes ();

sub keywatcher {
    my ($queue) = shift;

    my $console = new Win32::Console(STD_INPUT_HANDLE);
    $console->Mode(ENABLE_PROCESSED_INPUT);

    #     my $mode = $console->Mode();
    #     print "ENABLE_LINE_INPUT\n" if $mode & ENABLE_LINE_INPUT;
    #     print "ENABLE_ECHO_INPUT\n" if $mode & ENABLE_ECHO_INPUT;
    #     print "ENABLE_PROCESSED_INPUT\n" if $mode & ENABLE_PROCESSED_INPUT;
    #     print "ENABLE_WINDOW_INPUT\n" if $mode & ENABLE_WINDOW_INPUT;

    while (1) {
        while ($console->GetEvents) {
            my @event = $console->Input;
            # 0: event type: 1 for keyboard
            # 1: key down: TRUE if the key is being pressed, FALSE if the key is being released
            # 2: repeat count: the number of times the key is being held down
            # 3: virtual keycode: the virtual key code of the key
            # 4: virtual scancode: the virtual scan code of the key
            # 5: char: the ASCII code of the character (if the key is a character key, 0 otherwise)
            # 6: control key state: the state of the control keys (SHIFTs, CTRLs, ALTs, etc.)

            next unless $event[1];

            my $c = lc(chr($event[5]));
            $queue->enqueue($c);
            return 0 if $c eq 'q';
        }
    }

    return 0;
}

sub worker {
    my ($queue, $file) = @_;

    my $wp = Win32::MediaPlayer->new;
    $wp->load($file) or die;
    $wp->play;

    my $state = {
        mute => 0,
        playing => 1,
        pos => 0,
        len => res_to_sec($wp->length(0)),
        base => 0,
        repeat => 1,
        repeat_dur => 10,
    };

    my %keymap = (
        j => 5,
        k => 10,
        l => 30,
        ';' => 300,
        f => -5,
        d => -10,
        s => -30,
        a => -300,
    );

    printf "repeats each %d secs\n", $state->{repeat_dur};
    my $console = new Win32::Console(STD_OUTPUT_HANDLE);
    my $seek = 0;
    while (1) {
        $state->{len} = res_to_sec($wp->length(0));
        $state->{pos} = res_to_sec($wp->pos(0));

        if ($seek) {
            $wp->pause;
            $wp->seek($state->{base} * 1000);
            $wp->resume;
            $seek = 0;
            next;
        }

        my $buf = sprintf "%s / %s\r", sec_to_hms($state->{pos}), sec_to_hms($state->{len});
        $console->Write($buf);
        Time::HiRes::sleep(0.5);

        my $repeat_state = sub {
            printf "\n";
            printf "repeat %s\n", $state->{repeat} ? "on" : "off";
            printf "repeats each %d secs\n", $state->{repeat_dur} if $state->{repeat};
        };

        if ($state->{repeat} &&
            $state->{pos} >= ($state->{base} + $state->{repeat_dur})) {
            $seek++;
        }

        while ($queue->pending) {
            my $c = $queue->dequeue;

            if (defined($keymap{$c})) {
                unless ($state->{repeat}) {
                    $state->{base} = $state->{pos};
                }
                $state->{base} += $keymap{$c};
                $seek++;
            } elsif ($c eq 't') {
                $state->{repeat} = $state->{repeat} ? 0 : 1;
                $repeat_state->();
            } elsif ($c eq 'r') {
                $repeat_state->();
            } elsif ($c eq 'u') {
                $state->{repeat_dur}--;
                $state->{repeat_dur} = 1 if $state->{repeat_dur} < 1;
                $repeat_state->();
            } elsif ($c eq 'i') {
                $state->{repeat_dur}++;
                $repeat_state->();
            } elsif ($c eq 'p') {
                $seek++;
            }

            return 0 if $c eq 'q';
        }
    }

    return 0;
}

sub main {
    my $file = shift(@ARGV);
    die unless $file;

    my $queue = new Thread::Queue;
    my $t1 = threads->new(\&keywatcher, $queue);
    my $t2 = threads->new(\&worker, $queue, $file);
    $t1->join;
    $t2->join;

    print "done.\n";
}

main;

sub res_to_sec {
    my $param = shift;
    return int($param/1000);
}

sub res_to_hms {
    my $param = shift;
    return sec_to_hms(res_to_sec($param));
}

sub sec_to_hms {
    my $total = shift;

    my $sec = $total % 60;
    my $min = ($total - $sec) / 60;
    my $hour = int($min / 60);
    $min = $min % 60;

    return sprintf "%02d:%02d:%02d", $hour, $min, $sec;
}

sub sec_to_ms {
    my $total = shift;

    my $sec = $total % 60;
    my $min = ($total - $sec) / 60;

    return sprintf "%02d:%02d", $min, $sec;
}

OLYMPUS Voice-Trek V-61

posted with amazlet at 08.11.16

オリンパス (2007-03-23)
売り上げランキング: 283

おすすめ度の平均:

いろいろ使えます。
ライブの録音･再生に大活躍

Amazon.co.jp で詳細を見る

OLYMPUS ICレコーダー Voice-Trek DS-60

posted with amazlet at 08.11.16

オリンパス (2007-09-14)
売り上げランキング: 1822

おすすめ度の平均:

音楽用にも
買うならコレ
値段にはわけがある
クリアーな音質です

Amazon.co.jp で詳細を見る

まだちゃんと動くわけではなくて、なんとか perl で動くようにしただけの状態です。

VaginaRepos でひっそりやってましたが、飽きてフェードアウトする可能性が高くなったので晒しました。

当面やることといえば

• 各モジュール間のパラメータの渡し方を直す
• 基本テスト
• 基本プラグイン

という感じです。

PukiWiki にない機能の追加などを考えている方がいらっしゃれば、ブランチを切ってからやってもらえるとうれしいです。

• Text::PukiWiki

GmailにGadget機能――Remember The Milkも組み込み可能に という記事を見つけたので、こちらを試してみることにした。

結論としては、au の携帯からの入力と Firefox アドオンを併用しようと思う。

Firefox アドオン

Set task view here から、label とか選べる。

個人的に RTM の画面は好きではないのが、このアドオンは使いやすい。

Google apps for domain でも表示されるので良い。

ガジェット

ラベルを選ぶには、設定からやらないといけない。

ケータイ向けの画面からすると、ひどく制限されている印象。

ケータイ向けの画面をガジェットにしてくれてもよかったかもしれないと思った。

ぼくのドメインの Google apps for domain では labs が使えないので残念。

うん。ほんと昔の広末涼子はすごかった。ビーチボーイズとかちゃんとビデオに撮ってみてた。

そんな昔の広末涼子が懐かしくなってライブビデオ買ったよ！

150 円とかなのでお買い得だよ！VHS なので、買うときはレンタル上がりは避けてね！

広末涼子ファーストライヴ～RH DEBUT TOUR 1999

posted with amazlet at 08.11.11

広末涼子
ダブリューイーエー・ジャパン (1999-05-26)
売り上げランキング: 59110

Amazon.co.jp で詳細を見る

charsbar さんに、はてなブックマークのコメントで良い方法を教えていただきました。

MojoX::Renderer::TT を使えばよいとのことで、さっそく試したところうまくいきました。

どうもありがとうございました！！

package Vagina;

use strict;
use warnings;

use base 'Mojolicious';

use MojoX::Renderer::TT;

sub dispatch {
    (ry
}

sub startup {
    my $self = shift;

    # Use our own context class
    $self->ctx_class('Vagina::Context');

    $self->renderer->add_handler( tt => MojoX::Renderer::TT->new( mojo => $self ) );
    $self->renderer->default_ext('tt');
    $self->renderer->types->type(tt => 'text/html');

    # Routes
    my $r = $self->routes;

    # Default route
    $r->route('/:controller/:action/:id')
      ->to(controller => 'example', action => 'welcome', id => 1);
}

[% c.uri_for %] が適切に処理されるところまでは出来た。

どうするのがいいんでしょうか。良い方法あれば動くコードで教えてください！

package Vagina;

use strict;
use warnings;

use base 'Vagina::Base';

# This method will run for each request
sub dispatch {
    (ry
}

# This method will run once at server start
sub startup {
    (ry
}
1;

package Vagina::Base;

use strict;
use warnings;

use base 'Mojolicious';

use Vagina::Renderer;
use Vagina::Types;

__PACKAGE__->attr('renderer',
    chained => 1,
    default => sub { Vagina::Renderer->new }
);

__PACKAGE__->attr('types',
    chained => 1,
    default => sub { Vagina::Types->new }
);

1;

package Vagina::Renderer;

use strict;
use warnings;

use base 'MojoX::Renderer';

use Template;

sub new {
    my $self = shift->SUPER::new(@_);
    $self->default_ext('tt');
    $self->add_handler(tt => sub {
        my ($self, $c, $path) = @_;
        my $tt = Template->new({ABSOLUTE => 1}) or die $Template::ERROR;
        my $output;
        $path = $path;
        $tt->process($path, $c, \$output) or die $tt->error;
        return $output;
    });
    return $self;
}

1;

package Vagina::Types;

use strict;
use warnings;

use base 'MojoX::Types';

sub new {
    my $self = shift->SUPER::new(@_);
    $self->types({tt => 'text/html'});
    $self;
}

1;

VMware Server 2 101586 を 122956 に更新

perl をアップグレードした影響は VMware にまで及んでおり、ヴァーチャルマシーンが起動してくれません！

なので、VMware Server もアップグレードしました。

ubuntu 8 server を入れる

VMware Server の Web UI から、事前割当・2G 分割を指示しても sparse file を作りやがります。ここら辺は前からおかしいですね。

vmware-vdiskmanager が使うライブラリが変な場所を参照してたので、変な symlink を貼ってその場しのぎしました。

• ln -s /usr/local/lib/vmware /usr/local/bin/libdir

sparse file でなく、実容量を確保するようにしてディスクイメージを作り直します。

• vmware-vdiskmanager -c -s 8GB -a lsilogic -t 3 mtdisk.vmdk

あとは適当にインスコります。

インスコ後にやったことは、

• apt-get install emacs22-nox lv build-essential subversion ncurses-term nfs-common
• /etc/default/rcS を UTC=no
• /etc/network/interfaces, /etc/networks
• apt-get install apache2 apache2-mpm-prefork libapache2-mod-fcgid

という感じで作業しました。

MTOS を設定し直す

方針としては、

• 動かないと困る cgi に関してのみバック(ヴァーチャルマシーン)へ移行
• フロントとバックの両方から同じディレクトリに見えるように nfs mount

と、いじる範囲を最小限にするようにしました。

blog.woremacx.com/MT/mt*.cgi へのアクセスをリバースプロクシでヴァーチャルマシーンに飛ばすようにしました。が、mt.cgi にアクセスしても cgi が動いてくれないので mt-check.cgi で確認することにしました。なんと、mt-check.cgi までうまく動いてくれません。

Got an error: Can't locate object method "configure" via package "MT::ObjectDriverFactory" at lib/MT.pm line 1013.

MT::ObjectDriverFactory 周りが足りなくて中途半端な表示になっていました。DBI 関連だろうということで、

• apt-get install libdbd-mysql-perl

するとうまく進めました。それから、mt-config.cgi に足りないと言われたものをインスコしました。(Crypt::DSA に関しては、テストが止まってしまうので除外)

• apt-get install libarchive-zip-perl libgd-gd2-perl libarchive-tar-perl libdigest-sha1-perl perlmagick libmail-sendmail-perl

fastcgi でぶら下げておきたいので、libcgi-fast-perl をいれます。(このモジュールを入れ忘れていて、うまく動かせませんでしたｗ)

• apt-get install libcgi-fast-perl

あとは、CGIPath, AdminCGIPath, StaticWebPath, DBHost 等を適切な値にしていちおう動くようになりました。

TextHatena プラグインのためのモジュール

• apt-get install libdatetime-perl libdatetime-format-w3cdtf-perl libcache-memcached-perl libparse-recdescent-perl libcgi-simple-perl libgearman-client-perl
• deb 作ってインストール: libregexp-assemble-perl libcache-memcached-perl libcache-memcached-getparserxs-perl

シリアライザ関連でハマった

ぼくのところでは、LIMILIC 由来の Text::Hatena ではてな記法を処理しています。super pre のVimColor は gearman 経由で呼ばれるようになっています。

worker はホスト側で amd64、MTOS はヴァーチャルマシーン側で 386 で動いており、アーキテクチャが異なります。

Job 'vimcolor_html' died: Byte order is not compatible at ../../lib/Storable.pm (autosplit into ../../lib/auto/Storable/thaw.al) line 415, at worker.pl line 14

実際、こういうエラーが出て、うまく動きませんでした。

IRC で助けを求めたところ、hideden さんと dann さんに、nstore や nfreeze を使えばよいということを教えていただきました。freeze している部分を nfreeze に書き換え、速効で解決できました。hideden さん、dann さん、ありがとうございます！！

ということで、perl 移行に伴うｇｄｇｄをとりあえず片付けることが出来ました。

perl-mongers.org の MTOS も同様に panic するのを目にしたので、数日中に移行しようと思います。

ソースは subversion に突っ込んであるので、一度逆方向に merge して、何事もなかったかのようにアップグレードしたもので更新しました。

これに伴い、本来存在してないはずのファイルに関しては、Moved と書き込むことにしました。

vkgtaro さんが先日 DBIx::Class で basename を触ってらした(MT の permalink に entry_id 使ってたので entry_basename 使うよう変更した - 僕ト云フ事＠はてな出張版)のをちょっとパクらせていただき、対応スクリプトをでっち上げました。ありがとうございます。

スクリプトは、以下の通りです。

読者のみなさまにおかれましては、503 の blog.woremacx.com をお楽しみ頂きありがとうございました。

#!/usr/bin/perl

use strict;
use warnings;

use lib qw(MT/lib);
use MT::ConfigMgr;

my $file = "MT/mt-config.cgi";

my $mgr = MT::ConfigMgr->instance;
$mgr->read_config_file($file);

my @cfg;
push(@cfg, 'dbi:mysql:' . $mgr->get('database'));
push(@cfg, $mgr->get('dbuser'));
push(@cfg, $mgr->get('dbpassword'));

my $schema = MT::Schema->connect(@cfg);
my $entries = $schema->resultset('MtEntry')->search({
    entry_basename => { LIKE => '%\_%' },
});
while (my $entry = $entries->next) {
    my ($month, $day) = ($entry->entry_authored_on =~ /^(\d+)-(\d+)-/);
    my $base = $entry->entry_basename;
    my $origname = $base . ".html";
    my $filename = sprintf("%04d/%02d/%s.html", $month, $day, $base);

    $base =~ s/_/-/g;
    my $wrong = sprintf("%04d/%02d/%s.html", $month, $day, $base);

    if (-e $wrong && -e $filename) {
        open(my $r, $filename) or die;
        my $data = do { local $/; <$r>; };
        close($r);

        my ($title) = $data =~ m!<title>(.*?)</title>!s;

        warn "$title $filename";
        open(my $fh, "> $wrong") or die;
        printf $fh qq{<html><body>Requested entry <a href="%s">%s</a> has moved.</body></html>\n}, $origname, $title;
        close($fh);
    }
}

package MT::Schema;

use strict;
use warnings;

use base 'DBIx::Class::Schema::Loader';

__PACKAGE__->loader_options(
    relationships => 0,
    debug         => 0,
    components    => [],
);

1;

今回の DVD「北関東ナンバーワン!」 は、2008年5月に行われた初単独ライブだそうです。

近頃は、毎週水曜日のレッドカーペットを見るのが楽しみです。レッドカーペットのために、なんとか生きてる感じがするくらいレッドカーペットが好きですねｗ

そのレッドカーペットにでてくるお笑いの中で、個人的に好きなのは、U字工事とナイツ。傾向としては、テンポが速くてひたすらボケながら進んでいく漫才かな。

ということで、U字工事の「北関東ナンバーワン!」さっそく見ました！

栃木県民ネタが凝縮されている DVD で、まじでおもしろかったｗｗｗ

栃木好きな人は買って何度も見るべきｗ

本編

• 漫才(栃木):(栃木県民を代表して、影の薄い栃木を猛アピール)
• 漫才(県知事):(U字工事が県知事!?)
• 東京弁漫才:(ぎこちない発音で爆笑悶絶)
• スポンサー漫才:(栃木県の企業や商品を宣伝!)
• ビデオレター:(ローカル色満載のコントに挑戦!!)
• のど自慢:(あの有名な番組を再現!?)

特典

• ササモリさん:(U字工事の手書きアニメ)
• 男星:(U字工事のビデオクリップ)
• 茨城をぶっつぶせ!!:(茨城ロケ企画)
• メイキング:(舞台裏・栃木県庁)

U字工事/北関東ナンバーワン!

posted with amazlet at 08.10.23

CCRE (2008-10-22)
売り上げランキング: 520

Amazon.co.jp で詳細を見る