ソースコードは、GitHubに置いておきます。

使い方は超かんたん。

モジュールのインストール

サンプル

実行結果

こんな感じで使えます。

まずは、CPAN から取得した tar.gz なりを rpm パッケージにできるソフトだが、
cpan2rpm や cpanflute2 がある。

cpan2rpm は CentOS と fedora9 くらいまでは yum でインストールできたが、
今はできなくなっていて、自分でソースいじってインストールしてみたがうまく動かなかった。

そこで cpanflute2 を使う。

まずは、 cpanflute2 のインストール

余談だが、レポジトリ上にある perl のモジュールは “perl(MODULE_NAME)” を指定すれば
インストールできることをこの作業中に知った。

あとは、欲しいモジュールのアーカイブをCPANから探してきて cpanflute2 してやればいい。
ただ、注意しなければならないのが、問答無双でソースを fedora 13 では、
/root/rpmbuild/SOURCE に探しに行くので [...]]]> やんごとなき事情で、rpm パッケージがない perl のモジュールが必要になったので、
CPAN でインストールしようか考えたけど、環境を汚すことを考えると簡単に処理できる
rpm パッケージのがいいので、作ろうとしたお話。

まずは、CPAN から取得した tar.gz なりを rpm パッケージにできるソフトだが、
cpan2rpm や cpanflute2 がある。

cpan2rpm は CentOS と fedora9 くらいまでは yum でインストールできたが、
今はできなくなっていて、自分でソースいじってインストールしてみたがうまく動かなかった。

そこで cpanflute2 を使う。

まずは、 cpanflute2 のインストール

# yum -y install "perl(RPM::Specfile)"

余談だが、レポジトリ上にある perl のモジュールは “perl(MODULE_NAME)” を指定すれば
インストールできることをこの作業中に知った。

あとは、欲しいモジュールのアーカイブをCPANから探してきて cpanflute2 してやればいい。
ただ、注意しなければならないのが、問答無双でソースを fedora 13 では、
/root/rpmbuild/SOURCE に探しに行くので CPAN から tar.gz を持ってくるときに、以下のようにしとけばうまくいく。

# cd /root/rpmbuild/SOURCE
# wget http://cpan.org/hogehoge.tar.gz
# cpanflute2 --buildall hogehoge.tar.gz

これで rpm ができてるのであとは、以下の様にすれば依存性を解決してインストールしてくれる。

# yum --nogpgcheck install hogehoge.rpm

Win32::Fileなどの依存性でインストールできない場合は、 以下のようにしてインストールはできる。
動作するかはソースを見て確認する必要があるが。

# rpm -Uvh --nodeps hogehoge.rpm

こんな感じで、めんどくさくなってきたのでおわり。

intとかめんどいので必要部分のみ
複数caseを用いた場合の話。

// C言語
switch(cmd) {
case 1:
case 2:
printf(“1 or 2\n”); break;
default:
printf(“not 1 or 2\n”); break;
}

// perl 5.8.0～
use Switch;
switch($cmd) {
case (sub {  ($cmd eq “1″) || ($cmd eq “2″)  } ); [...]]]> 言語によってswitch文の書き方がちがくて使いにくい。
忘れるとアレなのでメモ。

intとかめんどいので必要部分のみ
複数caseを用いた場合の話。

// C言語
switch(cmd) {
case 1:
case 2:
printf(“1 or 2\n”); break;
default:
printf(“not 1 or 2\n”); break;
}

// perl 5.8.0～
use Switch;
switch($cmd) {
case (sub {  ($cmd eq “1″) || ($cmd eq “2″)  } ); {
print “1 or 2\n”;
}
else {
print “not 1 or 2\n”;
}

// Perl 5.10.0～ or Perl6
use feature ‘switch’; #5.10でperl６の機能を使うためのfeature
use switch; #perl6 この書き方は正確じゃないかも
given ($cmd) {
when (“1″ || “2″) {
print “1 or 2\n”;
}
default {
print “not 1 or 2\n”;
}

perl 5.8.0～switch文が標準で使えるようになったので試したら複数caseな書き方はダメみたい
perl 6でgiven whenというswitch文と同じような機能が実装されるのでそれなら大丈夫っぽい

perl5でswitch文を使って複数caseを書くのはまだ不便っぽい
従来どおりSWITCH:を使った似非switch文かif-elsifでどうにかしたほうがいいっぽい？

初回のビルド記事を色々修正して
それを含めた分のパッチを作ったのでドゾー
spec
mediatomb-service-fedora
mediatomb-conf-fedora

mediatombのソースがあるディレクトリに移動して
$ patch -p0 < *diff
ひとつのファイルにしなかったのはconfigとscriptは変更がないからです。

パッチ仕様前提でのbuildguide
めんどくさいので$と#は区別しないで#統一で書きます
※ %version%はその時々の”rev****”に置き換えてください。
# svn co https://svn.mediatomb.cc/svnroot/mediatomb/trunk/mediatomb mediatomb
# cd mediatomb
# autoreconf -i
(autoreconf -v == 2.61 )
# [...]]]> 初回の記事の修正のしたのと
パッチ作ったので、③はじめます？

初回のビルド記事を色々修正して
それを含めた分のパッチを作ったのでドゾー
spec
mediatomb-service-fedora
mediatomb-conf-fedora

mediatombのソースがあるディレクトリに移動して
$ patch -p0 < *diff
ひとつのファイルにしなかったのはconfigとscriptは変更がないからです。

パッチ仕様前提でのbuildguide
めんどくさいので$と#は区別しないで#統一で書きます
※ %version%はその時々の”rev****”に置き換えてください。
# svn co https://svn.mediatomb.cc/svnroot/mediatomb/trunk/mediatomb mediatomb
# cd mediatomb
# autoreconf -i
(autoreconf -v == 2.61 )
# ./configure --disable-ffmpegthumbnailer

//パッチ当て
# wget http://blog.tndl.net/files/spec.diff
# wget http://blog.tndl.net/files/config.diff
# wget http://blog.tndl.net/files/scripts.diff
# patch -p0 < spec.diff
# patch -p0 < config.diff
# patch -p0 < scripts.diff

//ソースアーカイブの用意とビルド
# cd ..
# mv mediatomb* mediatomb-%version%
# tar czvf mediatomb-%version%.tar.gz mediatomb-%version%
# mv mediatomb-%version%.tar.gz /usr/src/redhat/SOURCES/
# cd mediatomb-%version%
# rpmbuild -ba mediatomb.spec

まぁ、本題はこんなところではなく、Documentation PHP-Imagickこれのお話。
imagickを使うと画像をアレコレできるんですが、輪郭強調とかの方法をしってればそういうのもできちゃうんですよ。
画像の上に文字を透かしで載せたりとか、複数枚の画像を重ね合わせたりetc…
そういうWebserviceを作ったら面白そうだなと思いました。

この記事は未来の自分へのアイデアです。