(firstly written in Japanese, later in English)
こんにちは。愛に飢えずに愛を植えたいmakamakaです。
CPANモジュールって便利ですよね! ところで、皆さんはCPAN屈指のLoveなモジュールをご存じでしょうか?
ええ、あるんですよ! ずばり名前空間Loveから始まるモジュールが!
それがLove::Match::Calcです。
このモジュールに二人の名前を渡すと相性度を教えてくれます! まあ素敵。
use strict; use Love::Match::Calc; my $first = "Nagisa"; my $second = "Honoka"; my $m = lovematch( $first, $second ); print "$first と $second の相性は…… $m%\n";
文字列を分解して何か色々計算しているようです(ascii以外の文字を渡すとあまりよろしくない感じ)が、とにもかくにもCPANモジュールは相性診断さえ可能にするのです。
レビューがありましたので、適当な訳で引用してみます。
なんじゃこりゃ? これはPerlの皮を被ったCだ。Acme::*下にあれば良かったのに。それと、関数が不必要にプロトタイプを強制している。さらに、このモジュールは感情のカクテルたる”Love”と無関係だ。何か上手いこと頭文字をとってるわけでもないし。(Gene Boggs)
冒頭のPerlでなくてCというのは、このモジュールがMath::Cephesという数値計算用Cライブラリのモジュールに依存していることを指してるようです。ただし、その計算は
my $lettermitte = ceil($anzletter/2);
というただ1カ所でのみ使われてますが。贅沢な依存関係ですね。POSIXじゃだめだったのかしら?
Acmeの名前を持たなくてもAcme臭あふれるCPANモジュールもありますよと。というわけで、このお正月はCPAN上でAcmeがつかないAcmeモジュールを探す旅に出てみては如何でしょうか。
* ----------------------------------------------------
* English version
* ----------------------------------------------------
TITLE: CPAN Love module - A stroy not started from Acme
Hello everyone. I'm makamaka, want to be not a love explorer but a love planter.
Do you know the most 'LOVE' cpan module?
Yes, there is a Love namespace module.
That is Love::Match::Calc.
It calculates the love factor between two names. Sounds cool!
use strict; use Love::Match::Calc; my $first = "Nagisa"; my $second = "Honoka"; my $m = lovematch( $first, $second ); print "Lovematch for $first and $second: $m%\n";
Now, CPAN module can calculate a love factor!
Threre is a review.
WTF? This is c in perl clothing. It would have been proper to file this under the Acme::* namespace. Also,
the functions needlessly enforce prototyping. Also, this has nothing to do with the emotion cocktail that is "love." If it is some clever acronym, the documentation doesn't say so - because there is none. (Gene Boggs)
'c in perl clothing' means that this module requires Math::Cephes which is C math library interface module.
Though it uses the function at the one line....
my $lettermitte = ceil($anzletter/2);
Is POSIX no good?
There are CPAN modules that have no Acme name but emmit Acme smell. Well, in this winter vacation, would you like to travel to explore them.