RogerDodger/nurble.pl

## nurble.pl
use Mojolicious::Lite;

open my $fh, "<", "nouns.txt";
my @nouns = map { chomp && lc $_ } $fh->getlines;
close $fh;

sub nurble {
	my $text = uc shift;

	$text =~ s{
		([\w']+)
	}{
		my $word = $1;
		lc $word ~~ @nouns ? $word : '<span class="nurble">nurble</span>';
	}exg;

	$text =~ s/\n/<br>/g;

	return $text;
}

get '/' => 'index';

post '/' => sub {
	my $self = shift;
	$self->stash(nurble => nurble($self->param('text') || ''));
	$self->render('nurble');
};

app->start;
__DATA__

@@ index.html.ep
% layout 'default';

<h1>Nurblizer</h1>
<form action="/" method="post">
	<fieldset>
		<ul>
			<li>
				<label>Text to nurblize</label>
				<textarea name="text"></textarea>
			</li>
			<li>
				<input type="submit" value="Nurblize Away!">
			</li>
		</ul>
	</fieldset>
</form>
<p>
	<a href="http://www.smbc-comics.com/?id=2779">wtf?</a>
</p>

@@ nurble.html.ep
% layout 'default';

<h1>Your Nurbled Text</h1>
<div><%== $nurble %></div>
<p>
	<a href="/">&lt;&lt; Back</a>
</p>

@@ layouts/default.html.ep

<html>
	<head>
		<title>Nurblizer</title>
		<style><%= include 'style', format => 'css' %></style>
	</head>
	<body>
		<div class="container">
			<%= content %>
		</div>
	</body>
</html>

@@ style.css.ep

body{
	font-size: 16px;
	font-family: Arial;
	line-height: 1.68em;
	background: #333;
	color: #333;
}
footer{
	width: 728px;
	margin: 5px auto;
	text-align: right;
}

footer a{
	color: #47f;
}

.container{
	max-width: 728px;
	margin: 20px auto;
	background: #fff;
	box-shadow: 0px 2px 10px #000;
	padding: 1px 20px;
}

.nurble{
	color: #999;
}

fieldset{
	border: 0px;
	margin: 0px;
	padding: 0px;
}

fieldset ul,
fieldset li{
	list-style: none;
	padding: 0px;
	margin: 0px;
}
fieldset label{
	display: block;
	font-weight: bold;

}

textarea{
	display: block;
	width: 100%;
	height: 24em;
	border: 1px solid #ddd;
	border-top-color: #bbb;
	font-family: inherit;
	font-size: inherit;
	padding: 10px;
}

input[type=submit]{
	margin-top: 20px;
	width: 100%;
	font-size: 20px;
}
	use Mojolicious::Lite;

	open my $fh, "<", "nouns.txt";
	my @nouns = map { chomp && lc $_ } $fh->getlines;
	close $fh;

	sub nurble {
	my $text = uc shift;

	$text =~ s{
	([\w']+)
	}{
	my $word = $1;
	lc $word ~~ @nouns ? $word : '<span class="nurble">nurble</span>';
	}exg;

	$text =~ s/\n/<br>/g;

	return $text;
	}

	get '/' => 'index';

	post '/' => sub {
	my $self = shift;
	$self->stash(nurble => nurble($self->param('text') \|\| ''));
	$self->render('nurble');
	};

	app->start;
	__DATA__

	@@ index.html.ep
	% layout 'default';

	<h1>Nurblizer</h1>
	<form action="/" method="post">
	<fieldset>
	<ul>
	<li>
	<label>Text to nurblize</label>
	<textarea name="text"></textarea>
	</li>
	<li>
	<input type="submit" value="Nurblize Away!">
	</li>
	</ul>
	</fieldset>
	</form>
	<p>
	<a href="http://www.smbc-comics.com/?id=2779">wtf?</a>
	</p>

	@@ nurble.html.ep
	% layout 'default';

	<h1>Your Nurbled Text</h1>
	<div><%== $nurble %></div>
	<p>
	<a href="/"><< Back</a>
	</p>

	@@ layouts/default.html.ep

	<html>
	<head>
	<title>Nurblizer</title>
	<style><%= include 'style', format => 'css' %></style>
	</head>
	<body>
	<div class="container">
	<%= content %>
	</div>
	</body>
	</html>

	@@ style.css.ep

	body{
	font-size: 16px;
	font-family: Arial;
	line-height: 1.68em;
	background: #333;
	color: #333;
	}
	footer{
	width: 728px;
	margin: 5px auto;
	text-align: right;
	}

	footer a{
	color: #47f;
	}

	.container{
	max-width: 728px;
	margin: 20px auto;
	background: #fff;
	box-shadow: 0px 2px 10px #000;
	padding: 1px 20px;
	}

	.nurble{
	color: #999;
	}

	fieldset{
	border: 0px;
	margin: 0px;
	padding: 0px;
	}

	fieldset ul,
	fieldset li{
	list-style: none;
	padding: 0px;
	margin: 0px;
	}
	fieldset label{
	display: block;
	font-weight: bold;

	}

	textarea{
	display: block;
	width: 100%;
	height: 24em;
	border: 1px solid #ddd;
	border-top-color: #bbb;
	font-family: inherit;
	font-size: inherit;
	padding: 10px;
	}

	input[type=submit]{
	margin-top: 20px;
	width: 100%;
	font-size: 20px;
	}