Mojoを使って自作ウェブアプリをよりポータブルに！

第2回　Mojoを使えばテストも簡単!

2009年1月7日

石垣憲一

Mojo, Perl, プログラミング, テスト

アプリケーション, アクセス, リクエスト, Mojo, メソッド, value

2009年12月8日：サンプルコードを現在のバージョンで動作するよう修正しました。

一行掲示板を移植してみよう

連載の1回目では，Mojoのスタンドアロンサーバを使って簡単な画面を表示してみました。今回は簡単なCGIをMojoに移植しながら，リクエストの扱い方やテストの仕方を見ていきましょう。

まずはこれから移植していくCGIのソースを掲載します。あきらかに穴だらけのものですが，そこはひとまず目をつむってください。

#!/usr/bin/perl
use strict;
use warnings;
use CGI;

my $q = CGI->new;

my $file = 'data.txt';
unless (-f $file) {
    open my $fh, '>', $file or die $!;
    close $fh;
}
if ($q->param('text')) {
    open my $fh, '>>', $file or die $!;
    print $fh $q->param('text'), "\n";
    close $fh;
}
open my $fh, '<', $file or die $!;
my @lines = <$fh>;
close $fh;

print "Status: 200 OK\n";
print "Content-Type: text/html; charset=utf-8\n\n";
print <<"END";
<html><head><title>Simple BBS</title></head><body>
<form method="POST"><input type="text" name="text"></form>
@{[ map{ "<p>$_</p>" } @lines ]}
</body></html>
END

最後のヒアドキュメントのなかにPerlの式を埋め込むテクニックはあまりなじみがないものかもしれません。詳しくは竹迫良範さんがJPerl Advent Calendar 2008に寄稿された記事（※1）をご覧ください。

※1: http://perl-users.jp/articles/advent-calendar/2008/14.html

書き直すのはリクエストとレスポンスだけ

さて，これをそのままMojoで書き直してみます。

まずは連載1回目と同じく，Mojoをインストールしたディレクトリに新しいひな形を用意しましょう。

> perl script/mojo generate app SimpleBBS
> cd simple_bbs

続いて，lib/SimpleBBS.pmの中身をこう書き換えます。

package SimpleBBS;

use strict;
use warnings;

use base 'Mojo';

sub handler {
    my ($self, $tx) = @_;

    my $file = 'data.txt';
    unless (-f $file) {
        open my $fh, '>', $file or die $!;
        close $fh;
    }
    if ($tx->req->param('text')) {
        open my $fh, '>>', $file or die $!;
        print $fh $tx->req->param('text'), "\n";
        close $fh;
    }
    open my $fh, '<', $file or die $!;
    my @lines = <$fh>;
    close $fh;

    $tx->res->code(200);
    $tx->res->headers->content_type('text/html; charset=utf-8');
    $tx->res->body(<<"END");
<html><head><title>Simple BBS</title></head><body>
<form method="POST"><input type="text" name="text"></form>
@{[ map{ "<p>$_</p>" } @lines ]}
</body></html>
END

    return $tx;
}

1;

連載第1回でも説明した通り，全体がhandlerというサブルーチンの中に記述されていることを除けば，変わったのはCGIオブジェクトのかわりに$tx->reqからアクセスできるMojoのリクエストオブジェクトが使われていることと，出力部分が$tx->resからアクセスできるレスポンスオブジェクトに格納されていることだけです。簡単ですね？

Mojo, Perl, プログラミング, テスト

石垣憲一（いしがきけんいち）

あるときは翻訳家。あるときはPerlプログラマ。先日『カクテルホントのうんちく話』（柴田書店）を上梓。最新刊は『ガリア戦記』（平凡社ライブラリー）。

URL：http://d.hatena.ne.jp/charsbar/

Mojoを使って自作ウェブアプリをよりポータブルに！

このエントリのトラックバック URI

[perl][Mojo] Mojolicious をCGIで動かして、mod_rewriteする。

昨日ぐらいからMojoliciousをゴニョゴニョしだしているんだが、CGIで動...

Tracked : #1 のぶじゃすBLOG （2009/09/17, 22:57）

お名前
メールアドレス
タイトル
コメント

多数の情報処理技術者試験対策書籍の発行実績を誇る技術評論社がお届けする，資格試験合格サイト「めざせ！情報処理試験パスサポ」が開設されました。

サクセスストーリーに続く，快適サーバー運用管理のヒント！: データの増大，煩雑な管理，システムダウン，セキュリティなど，迫りくる課題からシステム管理者の負担を軽くするポイントを解説します。
gihyo.jp インフラエンジニア情報局: ネットワークやITにかかわるあらゆる業種で必要とされるインフラエンジニアに向けた技術情報や心構え，その魅力について多角的に紹介。
テストエンジニアステーション: いま，ITに関わるあらゆる開発業務で注目されつつあるテスト系エンジニアをターゲットにしたコンテンツサイトを展開します。

※検索はページ右上の検索ボックスをご利用ください。

最新ソフトウェアプロテクションの導入方法（3/8～4/16）
Adobe FLASH PLATFORM CAMP Tokyo（3/16）
「組込みデータベースを利用した開発のポイントとDeviceSQLのご紹介」セミナー（3/17）

キーパーソンが見るWeb業界: 本連載はWeb Site Expert／gihyo.jpとの連動企画です。阿部淳也, 長谷川敦士, 森田雄のお三方による，Web業界をテーマにした座談会です。
きたみりゅうじの聞かせて珍プレー: ソフトウェア開発の現場で体験したトホホな失敗，思わずうなる珍プレーをきたみりゅうじ氏が四コママンガで紹介。みなさんからの投稿もお待ちしてます！
ActionScript 3.0で始めるオブジェクト指向スクリプティング: 野中文雄氏が，簡単なスクリプトは書いたことがあるという初級者を対象に，ActionScript 3.0の基本からクラス定義までを解説します。
まだ間に合う「ITパスポート」受験対策　原山先生の短期合格塾: この連載では，4月18日のITパスポート試験の受験に向けて，短い期間で効率良く受験対策を行う方法や，確実に得点するための裏ワザなどを伝授していきます。
Ubuntu Weekly Recipe: Ubuntuの強力なデスクトップ機能を活用するための，いろいろなレシピをお届けします。
C/C++プログラマのためのDTrace入門: よくカーネルのチューニングや解析で活用されるDTraceですが，実はユーザプログラムの開発においても非常に有用です。連載ではC/C++プログラマやテストに関わる方向けにDTraceの使い方を解説します。
Blogopolisから学ぶ計算幾何: 計算幾何学は，図形に関するアルゴリズムを研究するコンピュータサイエンスの一分野です。本連載では，ビジュアルブログ検索エンジン「Blogopolis」で採用されている計算幾何のアプローチを例に取り上げながら，計算幾何の初歩を実践的に学習します。
検索エンジンはいかにして動くのか？: 本連載では, 今や誰もが利用している検索エンジンの中身を，全体の仕組みやデータ構造，アルゴリズムから分散インデックスまで，最近の研究事例も交えて紹介します。