Snippets

sironekotoro Perl入学式 2018 第5回 練習問題 profile

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
 &lt;html&gt;
 &lt;head&gt;&lt;title&gt;&lt;%= $name %&gt;のプロフィール&lt;/title&gt;&lt;/head&gt;
 &lt;body style='padding: 30px;'&gt;
  私の名前は&lt;%= $name %&gt;です.&lt;br&gt;
  趣味は&lt;%= $hobby %&gt;, 好きなプログラミング言語は&lt;%= $language %&gt;です.
 &lt;/body&gt;
 &lt;/html&gt;
</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>

Comments (0)