$ cat kiyoshi.pl
#!/usr/bin/perl
#
sub mojishuturyoku {
        my $a = 0;
        my $b = 0;
        my $count = 0;
        my $index = $_[1];
        @moji = split //, $_[0];
        $count = 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]);
#                       print "mojisuu=$mojisuu\n";
#                       print "index_max=$index_max\n";
                        if($index<=$mojisuu-2){
                                &mojishuturyoku("$retsu[$a]","$index");
                        }else{
#                               print "kita!";
                                print "  ";
                        }
#                       print "$retsu[$a]\n";
                }
                print "\n";
        }
}
open(MOJI,"echo $ARGV[0]|") or next;
while(<MOJI>){
        chomp($_);
        s/ー/|/g;
        s/〜/|/g;
        s/。/゜/g;
        s/、/ `/g;
        $moji=$_;
}
close(MOJI);
&gyoubunkatsu("$moji");
if ( -e "sample.txt" ) {
    print "sample.txt は存在します。" ;
} else {
    print "sample.txt 存在しません。" ;
} 




トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2008-10-07 (火) 23:13:01 (4032d)