1 $file = $ARGV[0];

  2 -e $file || die "$file is not exist";

  3 open(IN,"<$file") || die "Can't open file";

  4 

  5 $str = <IN>;

  6 %search = ();

  7 

  8 foreach $word(split / +/,$str){

  9     $search{$word}++;

 10 }   

 11 

 12 print "word : count\n";

 13 foreach $key (sort keys %search){

 14     print $key, "\t:\t",$search{$key},"\n";

 15 }   

 16 

 17 close($file);

이게 소스고 


a aa aaa aaaa aaaa b bb bb bb bbb bbb ccc ccc ccc

이게 텍스트파일에 저장된 내용인데...


이렇게 출력된다... 저 ccc가 왜 따로 카운트 되는건지....거기다가 출력도 이상하고....