#!/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");
----
- そでを通す http://dictionary.goo.ne.jp/search.php?MT=%C2%B5&kind=jn&mode=0&base=1&row=5 --  &new{2008-10-08 (水) 12:07:54};
- 水筒節約16日目 ■本日節約分100円 ■トータル -1360円 (1620円-水筒代2980円) --  &new{2008-10-14 (火) 01:51:17};

#comment
----
-[[メモメモ]]



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