view release on metacpan or  search on metacpan

bin/tategaki  view on Meta::CPAN

#!perl
use strict;
use warnings;
use 5.008001;
use utf8;

use Acme::Tategaki;
use Encode::Locale;

binmode STDOUT => ':encoding(console_out)';
Encode::Locale::decode_argv;

unless (scalar @ARGV) {
    print "Usage: \$ tategaki お前は、すでに、死んでいる。\n";
    exit 1;
}

print tategaki(@ARGV);
print "\n";

bin/tategaki_one_line  view on Meta::CPAN

#!perl
use strict;
use warnings;
use 5.008001;
use utf8;

use Acme::Tategaki;
use Encode::Locale;

binmode STDOUT => ':encoding(console_out)';
Encode::Locale::decode_argv;

unless (scalar @ARGV) {
    print "Usage: \$ tategaki_one_line お前は、すでに、死んでいる。\n";
    exit 1;
}

print scalar tategaki_one_line(@ARGV);
print "\n";