新しいblogに移行しました

新ブログ "All Yout Bugs Are Belong To Ass" に移行しました!

2010-03-24

[russkii] Здравствуйте!

lang-8.comというwebサービスに登録したので、ロシア語で簡単な自己紹介文を書いてみた。

Здравствуйте! [Lang-8]

「簡単な」とは言うものの、オイラには非常に難しい内容でしたっと。
うう。もう少し集中して勉強しないとね。

2010-03-23

[Perl]cpanでのモジュールインストールを手っ取り早く自動化したい

単純に目的のCPANモジュールをインストールしたいけど、依存モジュールのインストールで[Yes/no]を聞いてくるのってありますよね。
依存モジュールが少ないうちはまあ、enter押したりして対応するんですけど、これが沢山になると、ぶっちゃけイヤになります。
# 特にCatalystとか。
そんな時には、

# echo | cpan Any::Module

としてあげると、勝手にデフォルトの選択肢を選びつつ、取り急ぎインストールまで漕ぎ着けてくれます。
# あ。Any::Module は、インストールしたいモジュール名に置き換えて下さいね?

ああ!これで一安心。

…でも、手放しでマシンに任せっ切りでは、うまくインストールできなかった時に心配ですよね。どの選択肢が選ばれたのか。どんな原因でうまくインストールできなかったのか。etc...

そしたら、こうするといんでないかい?

# echo | cpan Any::Module 2>&1 | tee cpan_install.log


インストールのログが、cpan_install.logに送りこまれます。これで大分インストールで楽できますね。

4/6 追記
同じ目的なら、cpanminusを使った方がより近代的です。
こちらの記事も見てくださいね。

2010-03-03

[Perl]Data::ModelでPrimary Keyが複数あるテーブルにレコードを追加したい

これでOK


my $model = MyModel->new;
$model->set( 'multiple_prikey_table' => {
prikey1 => 'ID-A-001',
prikey2 => 'ID-B-002',
data1 => 1234,
} );

2010-03-02

[Perl]Encode.pm使ってメールの件名に日本語を使う場合のメモ

ど忘れしてたので、メモ。

use Encode;
my $subject = encode(
'MIME-Header-ISO_2022_JP',
decode( 'utf8', 'ヤムチャの目にも涙:意味)ヤムチャは死ぬ。' )
);


# ヤバいくらいに脳が退化してる気がする。。。