8月1日はおっぱいの日

perl

8月になりましたね。
8月1日といえばおっぱいの日ですね。
おっぱいといえばAcme::Oppaiですね。
というわけで、遅くなりましたが、
いっぱい'おっぱい'するツールを作りました。
癒されてください。
しばらくしたら消します。
ソースは以下。ご自由にお持ち帰り癒されてください。
じゃーね。

ソース

#!/usr/bin/perl

use strict;
use warnings;
use Acme::Oppai;
use CGI::Lite;
use Data::Dumper;

&main();

sub main(){
	my $form = new CGI::Lite();
	my %formdata = $form->parse_form_data();
	my $textarea = "";

	$textarea = &oppai($formdata{'num'});

print << "DISP_FIND_FORM_END";
Content-type: text/html


<html>
<head><title>おっぱいの日</title></head>
<body>
<form action="./index.pl" method="post" name="oppai">
<div><input type="text" name="num" size="5"><input type="submit" name="btn_disp" value="表示"></div>
<textarea cols=40 rows=40 style="font-family:osaka-等幅" readonly>
$textarea
</textarea>
</form>
</body>
</html>

DISP_FIND_FORM_END
}

sub oppai(){
	my $ret = "正の整数を入力してください";
	my $num = $_[0];

	if($num =~/^\d+$/){
		if($num gt 0){
			my $func = "Acme::Oppai";
			while($num--){
				$func .= "->Oppai";
			}
			$ret = eval $func;
		}
	}

	return $ret;
}


はてなダイアリー×Facebook連携記念キャンペーン