過去の記事 - 氾濫原

use strict;
use warnings;
use URI::Escape;

use Digest::SHA1 qw(sha1_hex);
use URI;

my $handler = sub {
	my $env = shift;
	my $params = +{ map { map { uri_unescape $_ } split /=/, $_, 2 } split /[;&]/, $env->{QUERY_STRING} };


	my $content = '';
	my $url = $params->{url};
	if ($url) {
		my $uri  = URI->new($url);
		my $int  = substr(unpack('H*', sha1_hex($url)), 0, 4);
		my $link = sprintf('http://%s/?url=%s', $env->{HTTP_HOST}, uri_escape($url));
		my $status = uri_escape(sprintf('%s(ryの戦闘能力は%sです %s', $uri->host, $int, $link));
		$content = qq{
			<p>$url の戦闘能力は $int です</p>
			<a href="http://twitter.com/?status=$status">Twitter に投稿</a>
		};
	}

	[ 200, [ "Content-Type", "text/html" ], [
	qq{
		<!DOCTYPE html>
		<title>スカウター</title>
		<style type="text/css">
		body {
			line-height: 1.66;
		}

		div.content {
			width: 50em;
			padding: 1em;
			margin: 1em auto;
		}

		form {
			margin: 2em 0;
		}
		</style>

		<div class="content">
			$content
			<form action="" method="get">
			<input type="text" name="url" value="http://example.com" size="50"/>
			<input type="submit" value="測定"/>
			</form>
		</div>
	}
	] ];
}

❤️ 投げ銭する

2010年 07月 05日

✖

photo

15:14

❤️ 投げ銭する

✖

15:17

花はたいていいくつかまとまって咲いているものです。その中のどれを見るか、どれを好きかってのは見る人の問題です。不思議なもんで花は、人間とは形が全く似ていないにも関わらず、表情、例えば明るいとか哀しそうとか、そういうのがありますね。

『夜の童話』紺野キタ

15:24

夜の童話 (バーズコミックス) - 紺野キタ — 夜の童話 (バーズコミックス) cho45

紺野キタ

★ 3.0 / 5.0
cho45

これもまた大変良かった…… 何度も読みかえすだろうという感じ

最後に表題作が入っていて (全体はショートストーリーのオムニバム)、終わりかたがなんともいえない。例えばこう、自分が結婚して家庭を持つと半分こうなりそうだという気がして冷や汗がでた。ただ自分の場合がダメなほうに転がるのでポジティブには終わらないだろうなと思ってしまった (だから半分)。まあそれは置いといてとてもいい話です。

❤️ 投げ銭する