端端舝

MOJOLICIOUS毛
它尼皮秶釬政�匹妏勻化心化月
jamadam

赻撩畿賡

? jamadam

? 它尼皮秶釬頗扦マ�

? 珨�撮扲窒

酖爛及景ヮ井日紼棗轍棗梭勳釵勳棗喝莽毛妏勻化中引允﹝

絞媆﹜Mojolicious毛腢亼仄凶燴蚕

?甡湔互卅中
?Pure Perl
?perl-5.8匹手�仁

酖爛及景ヮ井日紼棗轍棗梭勳釵勳棗喝莽毛妏勻化中引允﹝

絞媆﹜Mojolicious毛腢亼仄凶燴蚕
政婓反
?甡湔互卅中
?Pure Perl 5.10.1井日
?perl-5.8匹手�仁

�W及��匹反伊件正伙扔奈田奈卅升及
祥赻蚕卅虐噫卞犯皿伕奶允月仇午互嗣中﹝

?FTP匹犯皿伕奶仄卅仃木壬卅日卅中
?乒斥亙奈伙及奶件旦玄奈伙互匹五卅中
?perl-5.8互翋霜
紼棗轍棗梭勳釵勳棗喝莽互郔巠

紼棗轍棗梭勳釵勳棗喝莽毛它尼皮秶釬珋部匹妏勻化心化月

Mojolicious失皿伉毛
Mojolicious午中丹 ��卞�扴匹五月
WAF Mojolicious::Lite

Mojo午中丹
乒斥亙奈伙�

郔苤及Mojolicious失皿伉

#!/usr/bin/env perl
use Mojolicious::Lite;

get '/' => sub {
my $c = shift;
$c->render(text => 'Hello World!');
};

app->start;

伙奈玄反斛內仄手斛猁卅中
仇木分仃匹手﹜嗣屾﹜砩庤及丐月帊岈毛今六月仇午互匹五月(摽扴)

#!/usr/bin/env perl
app->start;

Mojo及幻廿�化及乒斥亙奈伙反
Mojo::Base毛輥創仄化中月

?use strict;
?use warnings;
?use feature ':5.10';
?has午中丹失弁本扔汜傖憝杅
?new戊件旦玄仿弁正

Mojo::Base及妏中源

use Mojo::Base -strict
use Mojo::Base -base
use Mojo::Base 'SomeClass'

package MyClass;
use Mojo::Base -base;

has some_attr => '';

package main;

my $instance = MyClass->new(%hash);
my $instance = MyClass->new($hash_ref);

say $instance->some_attr; # ''
$instance->some_attr('a');
say $instance->some_attr; # 'a'

package MyClass; has午肮元
use Mojo::Base -base;

__PACKAGE__->attr(some_attr => '');

package main;

my $instance = MyClass->new(%hash);
my $instance = MyClass->new($hash_ref);

say $instance->some_attr; # ''
$instance->some_attr('a');
say $instance->some_attr; # 'a'

↗蛁) 場ヽ�反旦市仿奈及心

has 'name';
has name => 'foo';
has name => sub {...};

↗蛁) 戊奈玉伉白央伊件旦互
場ヽ�卞卅月偈匹反卅中

has匹隅膽今木凶失玄伉申亙奈玄反
POD及ATTRIBUTES及�卞�徭今木化中月

丟末永玉分午膨綃中仄化POD卞𤩸中化卅中午井
佷勻凶日失玄伉申亙奈玄分勻凶磊歠嗣杅

�反劐歹勻化???

mojo v2.0井日perl-5.8互ピ日木凶

嬪勻凶及匹mojo-legacy毛釬勻凶﹝
perl-5.8.7井日�仁井手仄木卅中mojo匹允﹝

凶引卞丟件氾仄化中化﹜
政婓﹜mojo v2.91午誑𡥼俶互丐曰引允﹝

凶分仄﹜中仁勾井及氾旦玄互囮啖允月
(3 / 9000)
$ perl -I./lib t/mojo/json.t
ok 83 - successful roundtrip 操湮卅JSON及
Segmentation fault: 11
犯戊奈玉
$ prove -rl t/pod_coverage.t
Unknown "re" subpragma 'regexp_pattern' (known
ones are: 'debug', 'debugcolor', 'eval', 'taint') at lib/
Mojolicious/Command/routes.pm line 4

$ perl -I./lib t/mojo/websocket.t �W及虐噫分仃ˋ
not ok 46 - right result

鳥棗轍棗-梭梗眶硃釵聆及趕﹜笝歹曰

掛枙

它尼皮秶釬及政�匹反
犯扒奶瓜奈翋爀匹瞎心奻互勻凶扔奶玄卞
�腔戊件氾件汁毛摽葆仃允月仇午互嗣中﹝

☆仇及矢奈斥及戊戊卞陔覂ロ�毛浲⻌仄化郗仄中★
午井

公木勻化PHP互郔羥賤

<ul>
<?php
????????require_once('./lib/news_release.php');
????????$news = new newsRelease();
????????$array = $news->fetch(5);
?????>
<?php foreach ($array as $entry) { ?>
????????<li>
????????????<a href="<?php $entry['url'] ?>">
<?php $entry['title'] ?>
</a>
????????</li>
????<?php } ?>
</ul>

↗PHP戊奈玉反奶丟奈斥匹允

匹手Perl匹支月

<ul>
<%
require './lib/NewsRelease.pm';
my $news = NewsRelease->new();
my @array = $news->fetch(5);
%>
<% for my $entry (@array) { %>
????????<li>
????????????<a href="<%= $entry->{url} %>">
<%= $entry-> %>
</a>
????????</li>
????<% } %>
</ul>

郔苤及紼棗轍棗梭勳釵勳棗喝莽失皿伉(婬𡧳)

#!/usr/bin/env perl
app->start;

郔苤及紼棗轍棗梭勳釵勳棗喝莽失皿伉(婬𡧳)

#!/usr/bin/env perl
app->start;

肮蕆𦵴及public犯奴伊弁玄伉互鼠嶱今木月

它尼皮秶釬匹反勳紳餃梗單.堯喧鳥梭反吽謹今木月及互都

DirectoryIndex index.html

勳紳餃梗單.堯喧鳥梭毛硃俇允月及卞
around_dispatch白永弁毛蚚中月
#!/usr/bin/env perl
app->hook(around_dispatch => sub {
my ($next, $c) = @_;
## pre process
$next->();
## post process
});
app->start;

伉弁巨旦玄由旦毛硃俇允月及卞
around_dispatch白永弁毛蚚中月

my ($next, $c) = @_;
## pre process
$next->();
## post process
});

Plack::Middleware卞侔化月

index.html毛娗俇允月
my ($next, $c) = @_;

# auto fill file name
my $path = $c->req->url->path;
if ($path->trailing_slash || ! @{$path->parts}) {
push(@{$path->parts}, 'index.html');
$path->trailing_slash(0);
}

$next->();

## post process
});

app->start;

梯喝莉梭勳釵午喧梗鳥梯梭硃喧梗莽毛髦兮月
app->static->paths(['public']);
app->renderer->paths(['public']);

梯喝莉梭勳釵午喧梗鳥梯梭硃喧梗莽毛髦兮月
app->static->paths(['public']);
app->renderer->paths(['public']);

/public/index.html rename /public/index.html.ep

由旦毛犯奴伊弁玄伉蕆𦵴卞劐𡥼允月伙奈玄

get '/' => 'index';
get '/index.html' => 'index';
get '/index2.html' => 'index2';
get '/dir/' => 'dir/index';
get '/dir/index.html' => 'dir/index';
get '/dir/index2.html' => 'dir/index2';

由旦毛犯奴伊弁玄伉蕆𦵴卞劐𡥼允月伙奈玄

# /path/to/index.html
# stash => {
????template => '/path/to/index',
????format => 'html'
}
get '(*template).(*format)' => sub {
my $c = shift;
$c->render;
$c->res->code || $c->render_not_found;
};

/index.html.ep尺及伉弁巨旦玄毛403卞
my ($next, $c) = @_;

if ($c->req->url->path =~ qr{.ep$}) {
$c->render_exception('Forbidden');
$c->res->code(403);
return;
}

# auto fill file name
my $path = $c->req->url->path;
if ($path->trailing_slash || ! @{$path->parts}) {
push(@{$path->parts}, 'index.html');
$path->trailing_slash(0);
}

$next->();
});

眕奻及�I燴毛皿仿弘奶件卞引午戶引仄凶

plugin Dispatch2Directory => {
document_root => 'public_html',
default_?le => 'index.html',
};

眕奻及�I燴毛皿仿弘奶件卞引午戶引仄凶

妏蚚反��云允允戶仄引六氏

Mojolicious反お�媆卞
�化及氾件皿伊奈玄毛𨈘堤仄
白央奶伙靡午甩件玉仿及�𡛟桶毛釬勻化云曰﹜
public午templates毛髦兮凶仇午匹
噙腔白央奶伙引匹𨈘堤及�砓卞卅曰﹜剠鎣﹝

肮脹及仇午毛準紼棗轍棗梭勳釵勳棗喝莽匹灍珋仄引仄凶

端端舝

紼棗轍棗梭勳釵勳棗喝莽毛它尼皮秶釬珋部匹妏勻化心化月

Recommended

More Related Content

What's hot (18)

Viewers also liked (20)

Similar to 紼棗轍棗梭勳釵勳棗喝莽毛它尼皮秶釬珋部匹妏勻化心化月 (20)

紼棗轍棗梭勳釵勳棗喝莽毛它尼皮秶釬珋部匹妏勻化心化月

Editor's Notes