Snippet revisions — Bitbucket

+#!/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>

Snippets

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

File profile.pl Added