Perl Mojolicious
Mojolicious縺ｨ縺ｯｼ
Web繝輔Ξ繝ｼ繝繝ｯ繝ｼ繧ｯ
隱ｭ縺ｿ譁ｹｼ壹Δ繧ｸ繝･繝ｪ繧ｷ繝｣繧ｹ
Perl縺ｮWeb繧｢繝励Μ繧ｱ繝ｼ繧ｷ繝ｧ繝ｳ繝輔Ξ繝ｼ繝繝ｯ繝ｼ繧ｯ
MVC繝輔Ξ繝ｼ繝繝ｯ繝ｼ繧ｯ縺ｫ縺翫¢繧九〃iew縺ｨController縺ｮ讖溯ｽ繧呈戟縺､縲
Perl 5.10.1 莉･髯阪〒蜍穂ｽ懊
Mojolicious繧ｳ繝槭Φ繝
襍ｷ蜍
$ morbo ｽ.pl
繝ｻWeb繧｢繝励Μ繧ｱ繝ｼ繧ｷ繝ｧ繝ｳ隱ｭ霎ｼ
繝ｻ髢狗匱逕ｨ繧ｵ繝ｼ繝舌ｼ襍ｷ蜍
繝ｻ繝繝輔か繝ｫ繝医〒繝ｭ繝ｼ繧ｫ繝ｫ繝帙せ繝茨ｼ127.0.0.1:3000縺ｧ蠕讖
蛛懈ｭ｢
繧ｳ繝槭Φ繝峨Λ繧､繝ｳ荳翫〒縲√靴trl縲搾ｼ九靴縲
縺ｲ縺ｪ蠖｢繧剃ｽ懊ｋ
$ mojo generate lite_app 繝輔ぃ繧､繝ｫ蜷
Mojolicious::Lite繧剃ｽｿ縺｣縺溘ｲ縺ｪ蠖｢縺御ｽ懈舌＆繧後ｋ
髢狗匱逕ｨ繧｢繝励Μ繧ｱ繝ｼ繧ｷ繝ｧ繝ｳ繧ｵ繝ｼ繝舌ｼ縺ｮ襍ｷ蜍
$ morbo 繝輔ぃ繧､繝ｫ蜷
竍堤判髱｢荳翫↓縲ヾerver available at http://127.0.0.1:3000.縺ｨ陦ｨ遉ｺ縺輔ｌ繧
繝悶Λ繧ｦ繧ｶ縺ｧ竊 縺ｫ繧｢繧ｯ繧ｻ繧ｹ縺ｧ縺阪ｋ
http://127.0.0.1:3000
縺ｲ縺ｪ蠖｢縺ｮ荳ｭ霄ｫ
窶ｻmojo generate lite_appｽ槭〒菴懈舌＆繧後ｋ繝輔ぃ繧､繝ｫ縺ｮ荳ｭ霄ｫ
#!/usr/bin/env perl
use Mojolicious::Lite;縲窶ｻMojolicious蛻ｩ逕ｨ縺ｮ轤ｺ縺ｮ繝｢繧ｸ繝･繝ｼ繝ｫ
# Documentation browser under "/perldoc"
plugin 'PODRenderer';縲窶ｻ讖溯ｽ諡｡蠑ｵ縺ｮ轤ｺ縺ｮ繝励Λ繧ｰ繧､繝ｳ縲訓ODRenderer縲阪ｒ菴ｿ逕ｨ
#get髢｢謨ｰ縺ｮ蜻ｼ縺ｳ蜃ｺ縺
get '/' => sub {
縲縲my $c = shift;
縲縲窶ｻ繧ｳ繝ｳ繝医Ο繝ｼ繝ｩ繝ｼ縺ｮrender繝｡繧ｽ繝繝峨ｒ螳溯｡(index繧貞ｺ蜉)
縲縲$self->render('index');縲
};
#螳溯｡
app->start;
#莉･髯阪ｒ繝繝ｼ繧ｿ縺ｨ縺励※謇ｱ縺(Welcome to ｽ 縺ｮ譁蟄励′繝繝ｼ繧ｿ縺ｨ縺励※謇ｱ繧上ｌ縺ｦ繝悶Λ繧ｦ繧ｶ縺ｫ陦ｨ遉ｺ縺輔ｌ繧)
縺薙ｌ縺ｫ繧医ｊ繧ｳ繝ｳ繝医Ο繝ｼ繝ｩ繝ｼ驛ｨ縺ｨ蜷後§繝輔ぃ繧､繝ｫ縺ｫ繝薙Η繝ｼ驛ｨ繧呈嶌縺代ｋ
(繝薙Η繝ｼ縺瑚､髮代↑蝣ｴ蜷医ｯ蛻･繝輔ぃ繧､繝ｫ縺ｫ險倩ｿｰ)
__DATA__
#谺｡縺ｫ@@縺悟ｺ縺ｦ縺上ｋ縺ｾ縺ｧ縺ｮ遽蝗ｲ繧段ndex.html.ep縺ｨ縺縺繝輔ぃ繧､繝ｫ縺ｨ縺励※謇ｱ縺(ep諡｡蠑ｵ蟄舌ｯ繝繝ｳ繝励Ξ繝ｼ繝医ヵ繧｡繧､繝ｫ)
@@ index.html.ep
#繝繝ｳ繝励Ξ繝ｼ繝亥縺ｧ縺ｮ縲%縲阪ｯ縺昴ｮ陦後ｒPerl縺ｮ繧ｳ繝ｼ繝峨→縺励※螳溯｡後☆繧(<% ｽ %> 繧ょ庄)
#繝ｬ繧､繧｢繧ｦ繝医ｮ謖螳(layouts繝輔か繝ｫ繝蜀縺ｮ繝ｬ繧､繧｢繧ｦ繝医ヵ繧｡繧､繝ｫ繧帝←逕ｨ縺吶ｋ)
% layout 'default';
% title 'Welcome';縲#title髢｢謨ｰ(Welcome繧呈欠螳)
Welcome to the Mojolicious real-time web framework!
@@ layouts/default.html.ep
<!DOCTYPE html>
<html>
縲縲#竊代〒譬ｼ邏阪＠縺殳itle髢｢謨ｰ縺ｮ蜻ｼ縺ｳ蜃ｺ縺
縲縲<head><title><%= title %></title></head>
縲縲<body><%= content %></body>
</html>
繝ｫ繝ｼ繝繧｣繝ｳ繧ｰ
(繝壹ｼ繧ｸ蜷)縺ｸ縺ｮget繝ｪ繧ｯ繧ｨ繧ｹ繝亥女菫｡譎
get '/(繝壹ｼ繧ｸ蜷)' => sub {
縲ｽ
}
(繝壹ｼ繧ｸ蜷)縺ｸ縺ｮpost繝ｪ繧ｯ繧ｨ繧ｹ繝亥女菫｡譎
post '/(繝壹ｼ繧ｸ蜷)' => sub {
縲ｽ
}
get '/' => sub {
縲#繧ｳ繝ｳ繝医Ο繝ｼ繝ｩ繝ｼ繧ｪ繝悶ず繧ｧ繧ｯ繝医ｮ蜿励¢蜿悶ｊ
縲(HTTP繝ｪ繧ｯ繧ｨ繧ｹ繝域ｯ弱↓逕滓舌＆繧後ｋ縲｀ojolicious::Controller繧ｯ繝ｩ繧ｹ縺ｮ繧ｪ繝悶ず繧ｧ繧ｯ繝)
縲my $c = shift;
縲
縲View縺ｧ菴ｿ逕ｨ縺ｧ縺阪ｋ螟画焚($value1)繧貞ｮ夂ｾｩ
縲$c->stash( value1 => 'Perl' );
縲
縲View縺ｧ菴ｿ逕ｨ縺ｧ縺阪ｋ螟画焚($value2)繧貞ｮ夂ｾｩ
縲my $value = 'Perl'
縲$c->stash( value2 => $value );
縲
縲#繝ｬ繝ｳ繝繝ｪ繝ｳ繧ｰ(謠冗判)
縲#Mojolicious::Controller繧ｪ繝悶ず繧ｧ繧ｯ繝.render()繝｡繧ｽ繝繝峨ｒ螳溯｡
縲$c->render(template => 'index');
縲繝繝ｳ繝励Ξ繝ｼ繝医ヵ繧｡繧､繝ｫ繧剃ｽｿ逕ｨ縺励※index繧呈緒逕ｻ
縲
縲繝ｪ繝繧､繝ｬ繧ｯ繝(蛻･繝壹ｼ繧ｸ縺ｸ驕ｷ遘ｻ縺輔○繧句ｴ蜷)
縲$c->redirect_to('繝壹ｼ繧ｸ蜷');
};
app->start;
__DATA__
@@ index.html.ep
<p><%= $value1 %></p>
竊単erl
<p><%= $value2 %></p>
竊単erl
繝繝ｼ繧ｿ騾∝女菫｡
GET
get '/' => sub {
縲my $c = shift;
縲
縲繝代Λ繝｡繝ｼ繧ｿ蜷搾ｼ喩etdata縺ｮ繝繝ｼ繧ｿ繧貞叙蠕
縲my $ret = $c->param('getdata');
縲
縲$c->render(template => 'index');
};
@@ index.html.ep
%= form_for '/' => begin
%= form_for '/' => method => 'GET' => begin
縲Mojolicious繝倥Ν繝代ｼ繝｡繧ｽ繝繝(蟆ら畑html逕滓舌さ繝槭Φ繝)
縲%= text_field 'getdata'
縲繝代Λ繝｡繝ｼ繧ｿ蜷搾ｼ喩etdata縺ｧ繝繝ｼ繧ｿ繧竪ET騾∽ｿ｡
縲%= submit_button '謚慕ｨｿ縺吶ｋ'
% end
<p><%= $value1 %></p>
竊単erl
<p><%= $value2 %></p>
竊単erl
POST
post '/' => sub {
縲my $c = shift;
縲
縲繝代Λ繝｡繝ｼ繧ｿ蜷搾ｼ嗔ostdata縺ｮ繝繝ｼ繧ｿ繧貞叙蠕
縲my $ret = $c->param('postdata');
縲
縲$c->render(template => 'index');
};
@@ index.html.ep
%= form_for '/' => method => 'POST' => begin
縲Mojolicious繝倥Ν繝代ｼ繝｡繧ｽ繝繝(蟆ら畑html逕滓舌さ繝槭Φ繝)
縲%= text_field 'postdata'
縲繝代Λ繝｡繝ｼ繧ｿ蜷搾ｼ嗔ostdata縺ｧ繝繝ｼ繧ｿ繧単OST騾∽ｿ｡
縲%= submit_button '謚慕ｨｿ縺吶ｋ'
% end
<p><%= $entry %></p>
ANY
GET縲￣OST蜈ｱ騾壹ｮ蛟､蜿門ｾ怜ｦ逅
any '/' => sub {
縲my $c = shift;
縲my $ret = $c->param('繝代Λ繝｡繝ｼ繧ｿ蜷');
縲$c->render(template => 'index');
};
Follow me!
