#!/usr/bin/perl
#
sub mojishuturyoku {
        my $index = $_[1];
        @moji = split //, $_[0];
                print "$moji[$index]$moji[$index+1]";
}
sub gyoubunkatsu {
        my $a = 0;
        my $count = 0;
        my $index = 0;
        my $mojisuu = 0;
        my $index_max = 0;
        @retsu = split /,/, $_[0];
        $count = split(/,/, $_[0]);
        for ($a = $count-1  ; $a >= 0; $a-- ) {
                $mojisuu=split(//, $retsu[$a]);
                if ($index_max < $mojisuu){
                        $index_max=$mojisuu;
                }
        }
        for ($index = 0 ; $index <= $index_max; $index=$index+2){
                for ($a = $count-1  ; $a >= 0; $a-- ) {
                        $mojisuu = split(//, $retsu[$a]);
                        if($index<=$mojisuu-2){
                                &mojishuturyoku("$retsu[$a]","$index");
                        }else{
                                print "  ";
                        }
                }
                print "\n";
        }
}
$moji="";
if (-f $ARGV[0]) {
        open(MOJI,"$ARGV[0]");
        while(<MOJI>){
                chomp($_);
                s/ー/|/g;
                s/〜/|/g;
                s/。/゜/g;
                s/、/ `/g;
                $moji=$moji . "," . $_;
        }
}else{
        open(MOJI,"echo $ARGV[0]|") or next;
        while(<MOJI>){
                chomp($_);
                s/ー/|/g;
                s/〜/|/g;
                s/。/゜/g;
                s/、/ `/g;
                $moji=$_;
        }
}
close(MOJI);
&gyoubunkatsu("$moji");




トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS