新しいblogに移行しました

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

2010-06-28

[Perl]Catalystアプリ配下のロジックを叩きたい

逃げ口上


この記事は、所謂「モダンperl」とは全くもって相反するものと思われます。しかしながら、ユースケースとして記録しておくこと自体に意義の有ることと判断し、ここに掲載する次第です。
この手法を使わざるを得ない時は、設計がぐちゃぐちゃな状態であるか、単に「モダンな」設計ではないものと思われます。今一度、よく設計を見直すことを考慮すべきでしょう。


…この記事があるということは、現に僕自身がぐちゃぐちゃな設計で作ったcatalystアプリケーションを世に出してしまい、そのためにこんな妙な解決策 - バッドノウハウ - を使う必要に迫られたのだということです。これについては、過去の自分を叱咤するとともに、現在の自分の糧とすべしと肝に命じております。
無論、この方法自体はバッドノウハウとはいえ、より研ぎ澄ませば、まさに「モダンな」ノウハウとなり得るものかもしれませんが、僕自身にはそのようなユースケースは思いつきませんでした。

バッドノウハウ?上等!

さて、逃げ口上はこの辺にしときます。色々とキリがないので^^;

このノウハウ自体は、えらくあっさりとしたものです。
例えば、バッチスクリプト./script/batch.plで、アプリケーションMyApp配下のパス/ugly/batch_targetを、引数付きで定期的に叩きたい場合。
./script/batch.plは以下のようになります。
use warnings;
use strict;
use MyApp;
use Catalyst::Stats;
my $app = MyApp->new( stats => Catayst::Stats->new );
my $res = $app->forward( '/ugly/batch_target', [ time() ] );
print $res;

これだけです。あとはこのスクリプトをcronに食わせるなりするだけで、定期的に/ugly/batch_targetをぶっ叩いてくれます。
ちなみに、今回は引数をtime()としました。あくまでサンプルなので。
ポイントは、Catalyst::StatsオブジェクトをMyApp->statsに食わせる所です。

なぜ僕はこの方法を「モダン」じゃないと主張するのか

さっきから勿体ぶった書き方をしてきましたが、そもそもこの方法が「モダン」ではないと僕が主張するのは、

ロジックとコントローラの分離が為されていない故のノウハウである

という、香箱を組む猫すら青ざめる(?)、えらく間接的な理由からです。
コントローラ配下のロジックを叩くということはつまり、「コントローラ」配下に「ロジック」が実装されていることに他ならない。これはこのあたりのスライドにもあるように、コントローラをぐちゃぐちゃにする最短ルートといえます。

2010-06-16

[Perl]Module::Install::Bundle::LocalLibを試すだけよ

Module::Install::Bundle::LocalLibを試しました。ただそれだけ。
ここからどう派生させるのかがいまいち不明。

~/script/perl/Bundle-Oreore:$ cat Makefile.PL 
use inc::Module::Install;
name 'Bundle-Oreore';
all_from 'lib/Bundle/Oreore.pm';
test_requires 'Test::More' => 0.32;
requires 'Email::Sender';

bundle_local_lib;

WriteAll;

~/script/perl/Bundle-Oreore:$ perl Makefile.PL 
include /home/yt/script/perl/Bundle-Oreore/inc/Module/Install.pm
include inc/Module/Install/Metadata.pm
include inc/Module/Install/Base.pm
include inc/Module/Install/Makefile.pm
Cannot determine perl version info from lib/Bundle/Oreore.pm
Cannot determine license info from lib/Bundle/Oreore.pm
include inc/Module/Install/Bundle/LocalLib.pm
include inc/Module/Install/WriteAll.pm
include inc/Module/Install/Win32.pm
include inc/Module/Install/Can.pm
include inc/Module/Install/Fetch.pm
Warning: prerequisite Email::Sender 0 not found.
Writing Makefile for Bundle::Oreore
Writing META.yml
No license specified, setting license = 'unknown'

~/script/perl/Bundle-Oreore:$ make bundle_local_lib
Attempting to create directory /home/yt/script/perl/Bundle-Oreore/extlib
Attempting to create file /home/yt/script/perl/Bundle-Oreore/extlib/.modulebuildrc
Fetching http://search.cpan.org/CPAN/authors/id/R/RJ/RJBS/Email-Sender-0.100460.tar.gz ... OK
Configuring Email-Sender-0.100460 ... OK
Building Email-Sender-0.100460 for Email::Sender ... OK
Successfully installed Email-Sender-0.100460
Fetching http://search.cpan.org/CPAN/authors/id/M/MS/MSCHWERN/ExtUtils-MakeMaker-6.56.tar.gz ... OK
Configuring ExtUtils-MakeMaker-6.56 ... OK
Building ExtUtils-MakeMaker-6.56 for ExtUtils::MakeMaker ... OK
Successfully installed ExtUtils-MakeMaker-6.56 (upgraded from 6.52)
Fetching http://search.cpan.org/CPAN/authors/id/M/MS/MSCHWERN/Test-Simple-0.94.tar.gz ... OK
Test::More is up to date. (0.94)

~/script/perl/Bundle-Oreore:$ find extlib/lib/perl5/
extlib/lib/perl5/
extlib/lib/perl5/ExtUtils
extlib/lib/perl5/ExtUtils/MakeMaker.pm
extlib/lib/perl5/ExtUtils/Command
extlib/lib/perl5/ExtUtils/Command/MM.pm
extlib/lib/perl5/ExtUtils/MM_UWIN.pm
extlib/lib/perl5/ExtUtils/testlib.pm
extlib/lib/perl5/ExtUtils/MM_Cygwin.pm
extlib/lib/perl5/ExtUtils/MakeMaker
extlib/lib/perl5/ExtUtils/MakeMaker/FAQ.pod
extlib/lib/perl5/ExtUtils/MakeMaker/Tutorial.pod
extlib/lib/perl5/ExtUtils/MakeMaker/Config.pm
extlib/lib/perl5/ExtUtils/MM_OS2.pm
extlib/lib/perl5/ExtUtils/MM_MacOS.pm
extlib/lib/perl5/ExtUtils/Liblist
extlib/lib/perl5/ExtUtils/Liblist/Kid.pm
extlib/lib/perl5/ExtUtils/Liblist.pm
extlib/lib/perl5/ExtUtils/MM_NW5.pm
extlib/lib/perl5/ExtUtils/MM_Win32.pm
extlib/lib/perl5/ExtUtils/MM_VOS.pm
extlib/lib/perl5/ExtUtils/MM_Unix.pm
extlib/lib/perl5/ExtUtils/MM_QNX.pm
extlib/lib/perl5/ExtUtils/MM_VMS.pm
extlib/lib/perl5/ExtUtils/Mkbootstrap.pm
extlib/lib/perl5/ExtUtils/MM_AIX.pm
extlib/lib/perl5/ExtUtils/MM_Darwin.pm
extlib/lib/perl5/ExtUtils/MM_BeOS.pm
extlib/lib/perl5/ExtUtils/MM.pm
extlib/lib/perl5/ExtUtils/Mksymlists.pm
extlib/lib/perl5/ExtUtils/MM_Win95.pm
extlib/lib/perl5/ExtUtils/MY.pm
extlib/lib/perl5/ExtUtils/MM_DOS.pm
extlib/lib/perl5/ExtUtils/MM_Any.pm
extlib/lib/perl5/i486-linux-gnu-thread-multi
extlib/lib/perl5/i486-linux-gnu-thread-multi/auto
extlib/lib/perl5/i486-linux-gnu-thread-multi/auto/ExtUtils
extlib/lib/perl5/i486-linux-gnu-thread-multi/auto/ExtUtils/MakeMaker
extlib/lib/perl5/i486-linux-gnu-thread-multi/auto/ExtUtils/MakeMaker/.packlist
extlib/lib/perl5/i486-linux-gnu-thread-multi/auto/Email
extlib/lib/perl5/i486-linux-gnu-thread-multi/auto/Email/Sender
extlib/lib/perl5/i486-linux-gnu-thread-multi/auto/Email/Sender/.packlist
extlib/lib/perl5/i486-linux-gnu-thread-multi/perllocal.pod
extlib/lib/perl5/Email
extlib/lib/perl5/Email/Sender.pm
extlib/lib/perl5/Email/Sender
extlib/lib/perl5/Email/Sender/Role
extlib/lib/perl5/Email/Sender/Role/HasMessage.pm
extlib/lib/perl5/Email/Sender/Role/CommonSending.pm
extlib/lib/perl5/Email/Sender/Failure.pm
extlib/lib/perl5/Email/Sender/Transport.pm
extlib/lib/perl5/Email/Sender/Failure
extlib/lib/perl5/Email/Sender/Failure/Multi.pm
extlib/lib/perl5/Email/Sender/Failure/Permanent.pm
extlib/lib/perl5/Email/Sender/Failure/Temporary.pm
extlib/lib/perl5/Email/Sender/Manual
extlib/lib/perl5/Email/Sender/Manual/QuickStart.pm
extlib/lib/perl5/Email/Sender/Success.pm
extlib/lib/perl5/Email/Sender/Manual.pm
extlib/lib/perl5/Email/Sender/Transport
extlib/lib/perl5/Email/Sender/Transport/DevNull.pm
extlib/lib/perl5/Email/Sender/Transport/Maildir.pm
extlib/lib/perl5/Email/Sender/Transport/SMTP.pm
extlib/lib/perl5/Email/Sender/Transport/Sendmail.pm
extlib/lib/perl5/Email/Sender/Transport/Failable.pm
extlib/lib/perl5/Email/Sender/Transport/Print.pm
extlib/lib/perl5/Email/Sender/Transport/Test.pm
extlib/lib/perl5/Email/Sender/Transport/Mbox.pm
extlib/lib/perl5/Email/Sender/Transport/Wrapper.pm
extlib/lib/perl5/Email/Sender/Transport/SMTP
extlib/lib/perl5/Email/Sender/Transport/SMTP/Persistent.pm
extlib/lib/perl5/Email/Sender/Success
extlib/lib/perl5/Email/Sender/Success/Partial.pm
extlib/lib/perl5/Email/Sender/Simple.pm
extlib/lib/perl5/Email/Sender/Util.pm

2010-06-14

[Perl]最速セットアップ案内 Catalyst on Starman

さすがにタイトルの「最速」は言い過ぎ感たっぷりなんですが、僕でもそのくらい安直にセットアップができたという事です。
ちなみに僕はPlack/PSGIをまともに触ったことがありません。「バカでもわかるPlack/PSGI - JPerl Advent Calendar 2009」を読んで、
「へえ、そういうものがあるんだねえ(棒読み)」
などと曰う程度にしか知らないという状態です。
まあでも今のところ、オレオレWAFをこさえるつもりなど毛頭ありません。
よって、この辺は概念だけ知ってれば良いかな、と高を括っている訳です。

前提条件

これ以降は以下のソフトウェアがインストール済みである前提で書いていきます。

また、既にCatalyst 5.8.xに対応したCatalystアプリが用意できているものとします。
もしなければ、今すぐ作って下さい。NOW!!
# catalyst.pl YellowCat
以降、このCatalystアプリの事をYellowCatと呼びます。

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

cpanmで以下のモジュールをインストールします。
# cpanm Module::Install::ReadmeMarkdownFromPod Plack Catalyst::Engine::PSGI Starman Server::Starter Net::Server::SS::PreFork
これらのインストールができればOKです。

2010/11/1 追記
Module::Install::ReadmeMarkdownFromPodも必要になった(か、元々必要だった?)様ですね。
一緒にインストールしないと、Starmanのインストール時にコケてしまいます。
Fetching http://search.cpan.org/CPAN/authors/id/M/MI/MIYAGAWA/Starman-0.2007.tar.gz ... OK
Configuring Starman-0.2007 ... OK
==> Found dependencies: HTTP::Parser::XS
Fetching http://search.cpan.org/CPAN/authors/id/K/KA/KAZUHO/HTTP-Parser-XS-0.10.tar.gz ... OK
Configuring HTTP-Parser-XS-0.10 ... N/A
! Configure failed for HTTP-Parser-XS-0.10. See /root/.cpanm/build.log for details.
! Bailing out the installation for Starman-0.2007. Retry with --prompt or --force.

起動ファイル「./script/yellowcat.psgi」を作る

いきなりpsgiという拡張子のファイルが出てきますが、これはPSGI用の起動ファイルというところでしょうか。
まあ今はあまり気にせず、「起動に必要なファイル」とだけ覚えておけば良いと思います。
# cd YellowCat
# ./script/yellowcat_create.pl PSGI
これで./script/yellowcat.psgiができました。

YellowCatをStarmanで起動する

Server::Starterに付属のスクリプトstart_serverを使ってstarmanを起動します。
起動には、「./script/yellowcat.psgi」が必要になります。
# start_server --port 4000 -- starman --workers 8 ./script/yellowcat.psgi

あとはブラウザで4000番ポートにアクセスすれば、YellowCatからのレスポンスを得ることができます。

2010-07-05 追記 うまく動かない時

こんなエラーが出てうまく起動出来ない場合があるようでして。
Error while loading ./script/myapp.psgi: Can't locate YellowCat.pm in @INC (@INC contains: /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl /usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl /usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/5.8.8 .) at ./script/yellowcat.psgi line 4.
BEGIN failed--compilation aborted at ./script/yellowcat.psgi line 4.
要するに、目の前にあるYellowCat.pmが見つけられない、そんなド近眼系女子のような振る舞いをしているんですね。
そんな時は一手間かけて./script/yellowcat.psgiを編集し、YellowCat.pmの在り処を教えてあげましょう。
#!/usr/bin/env perl
use strict;
use warnings;
use lib ( "/path/to/YellowCat/lib" );
use YellowCat;

YellowCat->setup_engine('PSGI');
my $app = sub { YellowCat->run(@_) };
ちなみに、FindBinを使って以下の様に書こうとしたところ、FindBinに怒られました。
#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;
use lib ( "$FindBin::Bin/../lib" );
use YellowCat;

YellowCat->setup_engine('PSGI');
my $app = sub { YellowCat->run(@_) };
たぶん、指定先パスが異なるためと思われますが、深くツッこんで調べていないので、今のところ原因は不明です。