WordPress関連のイベントが福岡で開催されます。私は当日、運営スタッフの一員として裏方の仕事をやっていますので、ステージ脇や受付周辺をウロウロしていると思います。見かけた方は声をかけてくださると喜びます。
話は変わって、私はWordPressにはもう4年くらい触っていないのですが、聞くところによると、最近ではブログツールとしてだけではなくCMSとして使われることが多いそうです。私はCMS自体を作ることに、仕事で毎日のように携わっていますが、既存の製品を使ったことは、まだ一度もありません。
たぶん私の仕事は服飾でいうところのオーダーメイドなんだと思います。既製品の服は、ぴったりとカスタマイズすることは難しいけれども、廉価で手が出しやすいというメリットがあります。そうやって多くのユーザーが集まり、同じ製品を愛する人たちの知恵が集結すれば、オーダーメイドにも負けないような結果が出せるんじゃないか？ということを、このイベントで見極めたいと思っています。
まだ定員まで余裕があります。興味のある方は是非ご参加ください。
現在参加者募集中です。詳細はこちらからどうぞ。
Fukuoka Perl Mongers: 「Fukuoak Perl Workshop #14」開催のお知らせ
前回の記事にも書きましたが、先月開催されたYAPC::Asia 2009にイベントレポータとして参加したお陰で、Perlを愛して止まない多くの方々とお会いすることができました。初日の懇親会ではShibuya.pmリーダーの竹迫さんとYokohama.pmリーダーの栗原さんと集まってお話することができました。他にも「機会があればFukuoka.pmへ参加したい」という方々が何人もいらっしゃいました。東京から1000キロ以上離れた場所にあるFukuoka.pmですが、その距離が一気に縮まったような気がしました。
そのFukuoka.pmは2007年11月に設立されました。満2歳を向かえる来月、なんとJPA代表理事の牧大輔さんが、Fukuoka.pmへ参加されることになりました。牧さんには感謝この上もございません。また、このような繋がりが生まれつつあるのは、YAPC::Asiaのお陰であり、Perlコミュニティのお陰でもあります。本当に参加して良かったと思います。
私は今回、id:hirataraさんと共に、前夜祭も含めた全日程でgihyo.jpのイベント・レポーターなるものに挑戦しました。
http://gihyo.jp/news/report/01/yapcasia2009レポータをやっていて「これは今後使われるケースが増えていくんじゃないか?」と思った技術的なキーワードをざっとリストアップしてみました(既に流行っているものもありますが)。全体的にPerlでのWebアプリケーションの作り方が、また新たな局面を迎えた感があります。
全てのセッションを聴講したわけではないので抜けがあると思います。その点はご了承ください。
ちなみにMooseは、第一線ではもうすっかり定着している感じで、現在はHTTP::EngineのようにMooseをベースとした成果物、さらにはそれをベースとしたMoose三世くらいの時代に入っているのかなと思いました。
最後に、YAPCのボランティアスタッフの皆様、JPAの皆様、そしてスピーカの皆様、本当にお疲れさまでした、そしてありがとうございました。
Perl大好き!
昨年の4月頃から仕事で本格的にJavaを使い始めました。ちなみにそれまでの自分の仕事をざっと言語別にみると「Perl、ActionScript、JavaScript、(時々)PHP」という感じで、いわゆるスクリプト言語が殆どでした。しかしここ1年を見ると、サーバーサイド言語に関してはPerlよりもJavaが多くなり、クライアントサイドがJavaScriptとActionScript、そしてバッジ処理、テキスト処理等の部分でPerlを使うという具合に変わってきています。
最初のうちはJavaという慣れないプラットフォームに戸惑いましたが、周囲にいらっしゃる優秀なJavaプログラマーの皆さんのおかげで、なんとか仕事で使えるレベルまで到達してきました。またスクリプト言語とJavaの双方を経験することにより、お互いの良いところ、あるいは足りないところを再認識できたのも、自分にとっての大きな収穫でした。
そこで今回は、私の感じたプラットフォームとしてのJavaが優れていると思った点をメモしてみたいと思います。
以上、大雑把ですが、ざっとまとめてみました。今後もJavaとスクリプト言語のお互いの良いところを取り入れながら、適材適所で上手く使い分けていきたいと思います。
NEXTSTEP/OPENSTEPの時代から、知る人ぞ知るLaunchBarですが、ついにバージョン5のβ版が出ました。 今回も期待を裏切ることなくさらに便利になっています。
以下、新バージョンをざっと使ってみて、便利だと思った機能をリストアップしてみました。
原文は The evolution of Perl frameworks
西暦2006年、Perl製Webフレームワークの土俵では重量級のCatalystと軽量級のCGI::Applicationが戦っていた。その後、Perl製フレームワークの選択肢は進化を遂げた。CGI::ApplicationとCatalystは共に人気を保っているものの、最近では新たな選択肢もいくつか登場した。以下でザッと説明しよう。
Mark Stosberg氏は10年以上の間、WebプログラミングにPerlを使い続けてきました。氏はSummersaultにおける開発の主役であり、TitaniumやData::FormValidatorを含むいくつかのCPANモジュールのメンテナーでもあります。
Fukuoka Perl Mongersの第12回定例勉強会で発表させていただいた資料を公開します。アプリケーションとしては、かなり貧弱なものですが、Catalystの触りの部分だけでも理解していただければ幸いです。
PerlとSQLiteは既にインストールしてあるものとして解説します。
cpan -i Task::Catalyst
もしテストが失敗して、インストールできないようだったら、
cpan -if Task::Catalyst
適当なディレクトリへ移動してから、以下のコマンドを実行
catalyst.pl MyBBS
cd MyBBS/
以下、ファイル名やスクリプトの実行などは、このディレクトリを基点に解説しています。
perl script/mybbs_server.pl -r
プラウザでhttp://localhost:3000/ にアクセスしてみる。
停止させる場合は、 キーボードの Ctrl+c
とりあえず使いそうなモジュールを追記しておきます。
lib/MyBBS.pm
use Catalyst qw/
-Debug
ConfigLoader
Static::Simple
StackTrace
/;
Root.pm (既にある) Login.pm Logout.pm Comment.pm
以下のコマンドを実行すると上記のControllerが lib/MyBBS/Controller ディレクトリ内に作られます。
perl script/mybbs_create.pl controller Login perl script/mybbs_create.pl controller Logout perl script/mybbs_create.pl controller Comment
下記のコマンドを実行します。
perl script/mybbs_create.pl view TT TTSite;
下の一行を加えます。
lib/MyBBS/View/TT.pm
TEMPLATE_EXTENSION => '.tt2',
以下のコマンドを実行します。
CATALYST_DEBUG=0 prove --lib lib -v t
mybbs.sql というファイルを以下の内容で作成します。
-- First drop everything
DROP INDEX if exists "user_id_pkey";
DROP INDEX if exists "comment_id_pkey";
DROP INDEX if exists "login_name_unique_index";
DROP TABLE if exists user;
DROP TABLE if exists comment;
-- Create tables
CREATE TABLE user (
id INTEGER PRIMARY KEY AUTOINCREMENT
, login_name TEXT NOT NULL
, password TEXT NOT NULL
, email TEXT NOT NULL
, name TEXT NOT NULL
, delete_flag BOOLEAN NOT NULL default 'false'
, created_on TIMESTAMP DEFAULT CURRENT_TIMESTAMP
, updated_on TIMESTAMP
);
CREATE TABLE comment (
id INTEGER PRIMARY KEY AUTOINCREMENT
, statement TEXT NOT NULL
, user_id INTEGER NOT NULL
, delete_flag BOOLEAN NOT NULL default 'false'
, created_on TIMESTAMP DEFAULT CURRENT_TIMESTAMP
, updated_on TIMESTAMP
, FOREIGN KEY(user_id) REFERENCES user(id) ON DELETE CASCADE
);
-- Create indexes
CREATE INDEX "user_id_pkey" ON "user" ("id");
CREATE INDEX "comment_id_pkey" ON "comment" ("id");
CREATE UNIQUE INDEX "login_name_unique_index" ON "user" ("login_name");
-- Insert test users
INSERT INTO user
(
login_name
, password
, email
, name
)
VALUES
(
'foo'
, 'foo'
, 'foo@example.com'
, 'Mr. Foo'
);
INSERT INTO user
(
login_name
, password
, email
, name
)
VALUES
(
'bar'
, 'bar'
, 'bar@example.com'
, 'Mr. Bar'
);
上で作成した mybbs.sql をsqlite3に読み込んでデータベースを作成します。 以下のコマンドを実行します。
sqlite3 mybbs.db < mybbs.sql
mybbs.db というファイルが生成されているのを確認します。
Perlの代表的なO/Rマッパーを使用しますが、今回のアプリケーションでは、ほとんどその存在を意識することはないと思います。
以下のコマンドを実行します。
rm lib/MyBBS/Schema.pm; perl script/mybbs_create.pl model DB DBIC::Schema MyBBS::Schema create=static dbi:SQLite:mybbs.db;
データベース( mybbs.sql )に変更があったときには、再度上のコマンドを実行してください。
上で作成したSQLが正しければ、すでに自動で設定されています。
最初にエラーメッセージとステータスメッセージを表示する領域を追記しておきます。
root/lib/site/layout
<div id="content"> <span class="message">[% status_msg %]</span> <span class="error">[% error_msg %]</span> [% content %] </div>
lib/MyBBS/Controller/Comment.pm
=head2 list
コメント一覧を表示
=cut
sub list : Local {
my ( $self, $c ) = @_;
# コメントの配列
$c->stash->{comments} = [
$c->model('DB::Comment')->search(
undef,
{
# 取得するカラム名を指定します。
# ここでは関連テーブルからログイン名(login_name)も取得しています。
columns => [qw/statement user_id.login_name/],
# リレーション名を指定
join => 'user_id',
}
)
];
$c->stash->{template} = 'comment/list.tt2';
}
root/src/comment/list.tt2
[% META title = 'コメント一覧' -%]
<table>
[% FOREACH comment IN comments -%]
<tr>
<td>[% comment.statement %]</td>
<td>[% comment.user_id.login_name %]</td>
</tr>
[% END -%]
</table>
<p>
<a href="[% c.uri_for('form_create') %]">コメントする</a>
<a href="[% c.uri_for('/logout') %]">ログアウト</a>
</p>
[%# USE Dumper(Indent=1) -%]
[%# Dumper.dump(comments) %]
Comment.pm
=head2 form_create
入力フォームを表示するメソッド
=cut
sub form_create : Local {
my ( $self, $c ) = @_;
# テンプレートをセット
$c->stash->{template} = 'comment/form_create.tt2';
}
root/src/comment/form_create.tt2
[% META title = 'コメント入力' -%]
<form method="post" action="[% c.uri_for('form_create_do') %]">
<table>
<tr><td>Comment:</td><td><textarea name="statement"></textarea></td></tr>
</table>
<input type="hidden" name="user_id" value="[% c.user.id %]">
<input type="submit" name="Submit" value="Submit">
</form>
<p>
<a href="[% c.uri_for('/comment/list') %]">コメント一覧へ</a>
<a href="[% c.uri_for('/logout') %]">ログアウト</a>
</p>
lib/MyBBS/Controller/Comment.pm
=head2 form_create_do
入力されたコメントをDBに保存する処理を実装します。
=cut
sub form_create_do : Local {
my ( $self, $c ) = @_;
# フォームで入力されたコメントと入力したユーザーのID(hidden)を取得します。
my $statement = $c->request->params->{statement} || 'N/A';
my $user_id = $c->request->params->{user_id} || 'N/A';
# DBに保存します。
my $comment = $c->model('DB::Comment')->create(
{ statement => $statement,
user_id => $user_id,
}
);
# コメント一覧画面ヘリダイレクトします。
$c->response->redirect($c->uri_for('list'));
}
ログイン機能の実装に必要なモジュールを追記します。
lib/MyBBS.pm
Authentication Session Session::Store::FastMmap Session::State::Cookie
mybbs.conf
<authentication>
default_realm dbic
<realms>
<dbic>
<credential>
class Password
password_field password
password_type clear
</credential>
<store>
class DBIx::Class
user_class DB::User
id_field login_name
</store>
</dbic>
</realms>
</authentication>
lib/MyBBS/Controller/Login.pm
=head2 INDEX
ログイン機能を実装します。
=cut
sub index : Path : Args(0) {
my ( $self, $c ) = @_;
# フォームに入力されたログイン名とパスワードを取得します。
my $login_name = $c->request->params->{login_name} || "";
my $password = $c->request->params->{password} || "";
# もしログインIDとパスワードがどちらも取得できたら、
if ( $login_name && $password ) {
# ログインを試みます。
if ($c->authenticate(
{ login_name => $login_name,
password => $password,
}
)
)
{
# ログインに成功したら、コメント一覧へリダイレクトします。
$c->response->redirect( $c->uri_for('/comment/list') );
return;
}
else {
# ログインに失敗したら、エラーメッセージをテンプレートにセットします。
$c->stash->{error_msg} = "Bad username or password.";
}
}
# ログインページを表示します。
$c->stash->{template} = 'login.tt2';
}
lib/MyBBS/Controller/Logout.pm
=head2 index
ログアウト処理を実装します。
=cut
sub index : Path : Args(0) {
my ( $self, $c ) = @_;
# ログアウトします。
$c->logout;
# トップページへリダイレクトします。
$c->response->redirect( $c->uri_for('/') );
}
root/src/login.tt2
[% META title = 'Login' %]
<!-- Login form -->
<form method="post" action="[% c.uri_for('/login') %]">
<table>
<tr>
<td>Login Name:</td>
<td><input type="text" name="login_name" size="40" /></td>
</tr>
<tr>
<td>Password:</td>
<td><input type="password" name="password" size="40" /></td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="submit" value="Submit" /></td>
</tr>
</table>
</form>
<p>
[% IF c.user_exists %]
既に '[% c.user.login_name %]' としてログインしています。<br />
こちらから<a href="[% c.uri_for('/logout') %]">ログアウト</a>できます。
[% ELSE %]
ログインしてください
[% END %]
</p>
ここでは、ログインしていないユーザーが、認証が必要なページに直接アクセスした場合にできないようにチェックする機能を実装します。
lib/MyBBS/Controller/Root.pm
=head2 auto
ユーザーがログイン認証済かどうか検査します、認証されていないユーザーはログインページヘリダイレクトします。
=cut
sub auto : Private {
my ( $self, $c ) = @_;
# とりあえず認証していなくてもログインページだけはアクセスできるようにします。
if ( $c->controller eq $c->controller('Login') ) {
return 1;
}
# 認証されていなければ、ログインページへリダイレクトします。
if ( !$c->user_exists ) {
$c->response->redirect( $c->uri_for('/login') );
return 0;
}
# 認証済ならば1を返します。
return 1;
}
Catalyst v5.66
以上で、ひととおりの実装が終了しました。
下記の項目を確認してみます。
具体的には、
などです。
仕事では専らEclipseを使っていますが、試しにNetBeansでやってみたところ、 意外と簡単に開発環境を作ることができたので、ログしておきます。Mac OS X以外のOSでもやり方は変わらないのではないかと思います。
自分の環境は、Mac OS X 10.5.5、JREはbuild 1.5.0_16-b06-284(Leopardに付属のもの)、Maven 2.0.9です。
Cubbyはシンプルでとても使い易いフレームワークですので、是非NetBeansユーザーにもその「サクサク感」を味わって欲しいと思います。
GroupId: org.seasar.cubby
ArtifactId: cubby-archetype
Version: 1.1.1
Repository: http://maven.seasar.org/maven2/
(上記の入力作業は初回のみです。 次回、新規にCubbyプロジェクトを作る際には、 「Cubby Archetype」という選択肢を選ぶだけで、次の「ステップ3」に遷移します)
これから作成するプロジェクトの雛形を作成します。
入力例)
Project Name: cubbysample
Artifact Id: cubbysample
Group Id: com.sugmak
Package: com.sugmak.cubbysample
「Finish」ボタンを押すとプロジェクトが作成されます
Core2Duo搭載のMacで動作しているLeopardの場合ですと、/System/Library/Frameworks/JavaVM.framework/Versions/1.6.0/HomeというPATHにJDK1.6が入っていますが、それでもNetBeansはJDK1.5の方をDefaultのプラットフォームに設定するようです。JDK1.6をデフォルトにしたい場合には、
セットアップは以上ですが、この先は、実際に開発を進めた訳ではないので、未知数なところもありますが、セットアップに限って言えば、Cubbyのオフィシャルサイトで説明されているような、コマンドラインからMavenを操作してプロジェクトをセットアップする方法よりは敷居は低いのではないかと思います。
なお、Eclipseでは別途プラグインが必要な、*.propertiesファイルの日本語表示やSubversionとの連携などはプラグイン無しで実現できています。
matsuokaさんからのコメントで、Windowsでも上記手順で動作したとの報告をいただきました。またWindowsでの文字コードの設定方法もアドバイスしていただきました。
Windows でも同様の手順で動きました。 Windows ではファイルのエンコードが Shift_JIS で扱われるので netbeans.conf の netbeans_default_options に "-J-Dfile.encoding=UTF-8" を付け加えておく方がいいです。
あけまして、おめでとうございます。
Digg経由で知りました。
How Google does Vim
例えば、
http://www.google.com/search?q=rattlesnake&esrch=BetaShortcuts
上記のページでは、右ソデに記載されているような、ショートカット・キーが使えます。通常の検索結果のURLに、&esrch=BetaShortcutsを追加するだけで、この機能が使えるようです。
上記のURLにさらに&complete=1を加えると、検索フィールド上で、Googleサジェストの補完機能も使えますが、補完候補のリスト内ではショートカット・キーは使えないようでした。また現時点では、google.co.jpの方では、このショートカット機能は使用できませんでした。
今のところ、experimental（実験的）な機能という事ですが、自分が慣れ親しんでいるエディターのショートカットキーを、おそらく最も頻繁に利用しているサイト上でも使えるのは、とても便利だと思いました。ソフトウェアだけでなくWebサイト上でも、ヘビー・ユーザーにとっての理想的なUIというのはショートカット・キーにあるのかも知れません。
投稿
