Created by
sironekotoro
| #!/usr/bin/env perl
use Mojolicious::Lite;
# Perl入学式 2018 第5回 練習問題 profile
# https://github.com/perl-entrance-org/workshop-2018/blob/master/5th/slide.md#%E7%B7%B4%E7%BF%92%E5%95%8F%E9%A1%8C
# Documentation browser under "/perldoc"
plugin 'PODRenderer';
get '/' => sub {
my $c = shift;
$c->render( template => 'index' );
};
get '/profile' => sub {
my $c = shift;
$c->stash(
name => 'sironekotoro',
hobby => 'Programing',
language => 'Perl',
);
$c->render( template => 'profile' );
};
app->start;
__DATA__
@@ index.html.ep
% layout 'default';
% title 'Welcome';
<h1>Perl入学式 2018 第5回 練習問題 profile</h1>
<a href="https://github.com/perl-entrance-org/workshop-2018/blob/master/5th/slide.md#%E7%B7%B4%E7%BF%92%E5%95%8F%E9%A1%8C">https://github.com/perl-entrance-org/workshop-2018/blob/master/5th/slide.md#%E7%B7%B4%E7%BF%92%E5%95%8F%E9%A1%8</a>
<pre>
@@ profile.html.ep
<html>
<head><title><%= $name %>のプロフィール</title></head>
<body style='padding: 30px;'>
私の名前は<%= $name %>です.<br>
趣味は<%= $hobby %>で, 好きなプログラミング言語は<%= $language %>です.
</body>
</html>
</pre>
<ul>
<li>このようなテンプレートを用意し, stash で name, hobby, language 変数に値を代入し, 自己紹介ページを作成しよう</li>
<ul>
<li>render で profile テンプレートを指定しましょう</li>
</ul>
</ul>
<p>
<%= link_to 練習問題 => 'profile'%>
</p>
@@ profile.html.ep
<html>
<head><title><%= $name %>のプロフィール</title></head>
<body style='padding: 30px;'>
私の名前は<%= $name %>です.<br>
趣味は<%= $hobby %>で, 好きなプログラミング言語は<%= $language %>です.
</body>
</html>
@@ layouts/default.html.ep
<!DOCTYPE html>
<html>
<head><title><%= title %></title></head>
<body><%= content %></body>
</html>
|