webcrafts/formtest.pl

## formtest.pl
#!/usr/bin/perl
use Mojolicious::Lite;
use utf8;

# form演習 2012/12/04

get '/form' => sub {
   my $self = shift;
   my $title = $self->param('title');
   my $comment = $self->param('comment');
   $self->stash('title' => $title);
   $self->stash('comment' => $comment);
   $self->render();
} => 'index';

app->start;

__DATA__

@@ index.html.ep
<html>
<head>
<title>Form Example</title>
</head>
<body>
<p>タイトルで指定された文字列は「<%= $title %>」</p>
<p>コメントは「<%= $comment %>」</p>
</body>
</html>
	#!/usr/bin/perl
	use Mojolicious::Lite;
	use utf8;

	# form演習 2012/12/04

	get '/form' => sub {
	my $self = shift;
	my $title = $self->param('title');
	my $comment = $self->param('comment');
	$self->stash('title' => $title);
	$self->stash('comment' => $comment);
	$self->render();
	} => 'index';

	app->start;

	__DATA__

	@@ index.html.ep
	<html>
	<head>
	<title>Form Example</title>
	</head>
	<body>
	<p>タイトルで指定された文字列は「<%= $title %>」</p>
	<p>コメントは「<%= $comment %>」</p>
	</body>
	</html>