お尻めうスクリプト

osirimeu.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Getopt::Std;
use feature 'say';
binmode STDIN,":utf8";
binmode STDOUT,":utf8";

my %opt;
getopts("ois:h",=>\%opt);

sub usage {
	say "USAGE: $0 OPTIONS";
	say "OPTIONS:";
	say "  -s  文字列";
	say "  -o  出てくるめう〜";
	say "  -i  入ってくるめう〜";
	say "EXAMPLE:";
	say qq{  \$ ./osirimeu.pl -is "スクリプト"};
	say qq{  ス゛ク゛リ゛プ゛ト゛が゛め゛う゛の゛お゛尻゛に゛は゛い゛っ゛て゛く゛る゛め゛う゛〜゛！゛！゛！゛};
	exit(1);
}

usage() if ($opt{h});
usage() unless ($opt{s});

my $buf=$opt{s};
utf8::decode($buf);

chomp($buf);
if($opt{i}) {
	$buf.="がめうのお尻にはいってくるめう〜！！！";
} elsif($opt{o}) {
	$buf.="がめうのお尻から出てくるめう〜！！！";
} else {
	usage();
}

$buf=~s!(.)!$1゛!g;
say $buf;