polog

hyukiさんとotsuneさんあたりの間で話題に上っていたので触ってみた。Perlソースコード整形ツール。

Perltidy

OS Xにインストールするには、officialのsourceforgeからUnix向けパッケージを持って来て

$ perl Makefile.PL && make && sudo make install

$ perltidy hoge.pl -o tidy.pl

$str = do $ARGV[0];


for(0..$ARGV[1]){

my $line = &MakeASentence($str);

print $line;

print "\n" if($line =~ /¥.$/);

}

sub MakeASentence{

    my $str=shift;

    my @hash_array = @{$str->{hash}};

    my $data = $str->{data};

    my $sentence_seed = $hash_array[int rand($#hash_array)];

#    print $sentence_seed , "\n";

    my @sentence = split /_/, $sentence_seed;

    my $ret_sentence = undef;

    for my $hinshi (@sentence){

        my $seed = rand();

        my $ratesum = 0;

        for my $a (keys %{$data->{$hinshi}}){

                $ratesum += $data->{$hinshi}->{$a}->{rate};

                if($ratesum > $seed){

                $ret_sentence .= $a;

                last;

            }

        }

    }

    return $ret_sentence;

}

$str = do $ARGV[0];


for ( 0 .. $ARGV[1] ) {

    my $line = &MakeASentence($str);

    print $line;

    print "\n" if ( $line =~ /¥.$/ );

}

sub MakeASentence {

    my $str           = shift;

    my @hash_array    = @{ $str->{hash} };

    my $data          = $str->{data};

    my $sentence_seed = $hash_array[ int rand($#hash_array) ];

    #    print $sentence_seed , "\n";

    my @sentence = split /_/, $sentence_seed;

    my $ret_sentence = undef;

    for my $hinshi (@sentence) {

        my $seed    = rand();

        my $ratesum = 0;

        for my $a ( keys %{ $data->{$hinshi} } ) {

            $ratesum += $data->{$hinshi}->{$a}->{rate};

            if ( $ratesum > $seed ) {

                $ret_sentence .= $a;

                last;

            }

        }

    }

    return $ret_sentence;

}