komagataのブログ

動的にパッケージをuseしたい件についてこの間のはおれが記事の意味を全然わかってなかったみたいです。

eval qq() とかやると require に bareword を渡すことができるんだろな。

ってちゃんと書いてあるのに。 やり方がやっとわかったのでControllerクラスを書いてみました。

package Controller;

use strict;
use vars qw($VERSION);

$VERSION = '0.01';

sub new { return bless({}, @_[0]); }

sub dispatch {
    my $self = shift;
    my ($class, $method) = @_;
    eval qq(require $class; import $class;); 
    my $c = new $class;
    $c->$method();
}
1;

「クラスとメソッドを渡すとクラスのメソッドを実行する」というだけ。Webアプリの場合そのままQueryStringで渡すのは危険なので（URLからパスの通った全ての好きなクラスの好きなメソッドを実行できる状態を想像してください）論理名をマッピングした方が良さそう。かといって、

&ltname="hellow" class="Hello" method="display"&gt

なんてXMLファイルを作るのも真面目過ぎる気がする。何か簡単なやり方は無いものか・・・。

話を分からなくする3つの方法。

・1つの話で言いたいことを複数含めること。 ・比喩を多用すること。 ・オトナ語を多用すること。

失敗の言い訳などに活用しよう。 逆に会議などでこんな人は要注意。

今日のミス

tar -jxvf foo.tar.bz2

うわぁぁああ　bz2が解凍できないぞぉお。

bzip2が入ってないだけか・・・。

apt-get install bzip2

FreeBSD-users-jpメールマガジンにて。

FreeBSD-users-jp@jp.FreeBSD.org 様 (freebsd-users-jp@jp.freebsd.org)

こんにちは！楽天ショップ 【ヘルシーライフ】です！ この度は 「楽天ブックススピードくじ」ご応募いただきまして、 ほんとうにありがとうございました！！ おかげさまで、非常に沢山の方々のご応募をいただきました。

ウハハハ、誰だよFreeBSD-users-jp@jp.FreeBSD.orgで楽天に登録したのは！

logのローテーション設定をミスった。

アプリケーションが /var/log に foo と foo_bar というログを出すので /etc/logrotate.d/foo に

/var/log/foo* {
    missingok
    notifempty
}

と書いた。

最近になって /var/log の中を見てみたら

foo
foo.1
foo.1.1.1
foo.1.1.1.1
foo.2
foo.2.1
foo.2.1.1
foo.2.1.1.1

となっていた。

「何コレ、消してよ！」

えぇえぇ、たしかにそうなりますわな。ハハ・・・。

イーエスブックス – 本 – Ｄｅｂｉａｎ　ＧＮＵ／Ｌｉｎｕｘ　Ｅｘｐｅｒｔ　［デスクトップユーススペシャル］

待望の最新メジャーリリースである「ｓａｒｇｅ」を付属ＤＶＤ－ＲＯＭに収録．２大特集では「インストール＆設定徹底攻略」，そして開発者必見の「Ｊａｖａ開発環境整備＆Ｅｃｌｉｐｓｅ活用ガイド」を最新版対応でお届けします．このほか，気になるＲｅｄ　Ｈａｔ　Ｌｉｎｕｘからの移行テクニック，マルチディストリビューションの実現法，厳選パッケージ１００選，そしてカーネル２．６その後の動向など，旬の話題も満載です．広がるＤｅｂｉａｎの世界へ，快適な環境を求めるＤｅｂｉａｎユーザの方々，Ｌｉｎｕｘのスキルアップをお考えの方々を強力にサポートする１冊です。

「本が無い」でよくいったDebianの本がっっっ！ 絶対買う！

このあいだkyoroがチャンスカード（何かのサービスチケット）を受け取ってすぐに、

「このチャンスカードさぁ・・・・・・・・・、あのチャンスゾーン（近くにあったゴミ箱）に入れていいかな？」

とかいって見もせずに捨てました。 このチャンスカードの企画考えた人が聞いたら最高にムカつくんだろうなぁ・・・。

最近何故かPerl仕事が多くてPerl熱が上がって来てます。（PHPの開発チーム所属）

やっとBlogのコメントスパムが落ち着いてきたと思ったら、UO BBSの方にunkスパムが・・・

！！最新着メロ厳選リンク。jpop・洋楽なども。がんがん行こうぜ！！ http://click-no1.jp/adlink.php?adid=104458 ココをクリック！！

IP制限を付けようと思ってソースを見出したら何か気に食わなくなって全面修正しだしてしまいました。 Perlでも分かりやすく1アクション1クラスにしてControllerクラスに振り分けをさせたいんですけど、

use $class

ってできないんですな。少し調べると下記の方法で動的にクラスをロードできるらしい。

Clouder::Blogger: require, import instead of use

perl でモジュールを use しますが、時としてクラス名を動的に生成して use したい時があります。 そんなときは以下のようにします。

my $class = "Foo::Bar::$baz";
eval qq(require $class; import $class);

””::”“を””/”“にしてケツに””.pm”“をくっ付けるって何か嫌だなぁ・・・。他に方法無いものか。

「あと2時間でTSV（タブ区切りファイル）ファイルにデータを吐くお問い合わせCGIリリースして欲しいんだけど」

みんなPerl嫌がる＆知りたくも無いということでPHPの開発チーム所属なのに大抵おれに仕事が来ます。

それにしてもちょうどData::Tsvとかいう自作モジュール持ってるおれって凄くない？自作モジュールなんて3つぐらいしか持ってないのに。しかもCSVじゃなくてTSVかよ！（UOBBSの時作った）

2ちゃんねるベストヒット: 「晩春」2ちゃん編

日本が誇る小津安二郎の名作が、2ちゃんねるを題材に今甦る･･･！

会社で噴出しそうになりました。