V.S.A. III

Catalyst を使ってみる #001

こんにちは，五十嵐です．昨日は Perl + Catalyst 環境を整えたところまで進みました．
「Catalyst::Manual::Intro - はじめてのCatalyst」をざっと読んで，なんとなくわかった気持ちになって先に進んでみます．ここしばらく少しずつ進むと思いますので，タイトルを連載形式の連番にしてみました．

昨日作成した MyApp の環境をそのまま利用して，"http://localhost:3000/catalysttest/" でテストしてみる環境を作ります．

$ cd MyApp
$ script/myapp_create.pl controller CatalystTest
 exists "/home/ikarashi/MyApp/script/../lib/MyApp/Controller"
 exists "/home/ikarashi/MyApp/script/../t"
created "/home/ikarashi/MyApp/script/../lib/MyApp/Controller/CatalystTest.pm"
created "/home/ikarashi/MyApp/script/../t/controller_CatalystTest.t"

$ script/myapp_server.pl

ブラウザで "Mached MyApp::Controller::CatalystTest in CalystTest." と表示されることを確認．作業環境ができました．そこで，

使ってわかるCatalyst

を参照して，簡単なアプリケーションにトライしてみます．以下は参考．

上で作成した環境では，~/MyApp/lib/MyApp/Controller/CatalystTest.pm というファイルが作成されます．この中には index という Private の関数が定義されています．

sub index : Private {
    my ( $self, $c ) = @_;

    $c->response->body('Matched MyApp::Controller::CatalystTest \
                             in CatalystTest.');
}

これが，"http://localhost:3000/catalysttest/" の "/catalysttest/" の部分にマッチし，関数が実行されて

Mached MyApp::Controller::CatalystTest in CalystTest.

がブラウザに表示されたわけです．"/catalysttest/" 以下の存在しない URI/URL を指定した場合にエラーを表示するために，以下のようなコードを CatalystTest.pm に追加してみました．

sub default : Private {
        my ( $self, $c ) = @_;
        $c->res->body( 'The requested page does not exist. \
                       Please check your URL. Thank you. - msi' );
}

これで，"http://localhost:3000/catalysttest/hoge/" (エラーになるべきページ) とやってみると

The requested page does not exist. Please check your URL. Thank you. - msi

と表示されます．

続きはまた後日．

カテゴリ：開発日記

<< perl の catalyst - Catalyst を使ってみる #000 | Main | TGIF: 航宙艦の指揮権認定コード >>

いかちょー (2007-01-12 17:28) | コメント(0)| トラックバック(24)

トラックバック(24)

トラックバックURL:

Why is ritalin prescribed for adults. - Ritalin online. (2009年12月19日 17:28)

Ritalin. Ritalin debate. Consequences of snorting ritalin. 続きを読む

Buy ultram. - Buy ultram. (2009年12月27日 13:52)

Buy ultram cheapest site. Buy ultram. 続きを読む

How to make ephedrine. - What contains pseudo ephedrine. (2010年1月24日 03:13)

Ephedrine. Real ephedrine. 続きを読む