Perl
@txt = `ls *txt`;
foreach $file (@txt){
#mecab ¤Ç¤ï¤«¤Á½ñ¤
@mecab = `mecab -O wakati $file`;
#DFÍѤ˽é´ü²½
undef %TmpWords;
#ñ¸ì¤Î½Ð¸½ÉÑÅÙ¤òµá¤á¤ë¡£
foreach(@mecab){
chomp;
@tmp = split(/\s/,$_);
foreach(@tmp){
$Words{$_}++;
$TmpWords{$_}++;
}
}
@TmpWords = sort{$TmpWords{$b}<=>$TmpWords{$a}} keys %TmpWords;
foreach(@TmpWords){ $DF{$_}++;}
}
@Words = sort{$Words{$b}<=>$Words{$a}} keys %Words;
@DF = sort{$DF{$b}<=>$DF{$a}} keys %DF;
#½Ð¸½ÉÑÅ٤νñ¤¹þ¤ß
open(OUT,">result.txt");
foreach(@Words){ print OUT "$_\t$Words{$_}\n";}
close(OUT);
#DF¤Î½ñ¤¹þ¤ß
open(OUT,">DFresult.txt");
foreach(@DF){print OUT "$_\t$DF{$_}\n";}
close(OUT);