perl - Perl - スペースで区切られた単語を含む文字列をハッシュに変換する方法

Question

スペースで区切られた単語を含む文字列を、ハッシュキーが文字列からの単語であり、ハッシュ値がハッシュからの単語の出現回数であるハッシュに変換する方法を教えてください。

ありがとう

Answer 1

  $string = "do re me fa so la te do";

  for $word ( split " +", $string )
     {
     $word_count{$word}++;
     }

  for $word ( keys %word_count )
     {
     print "$word\t$word_count{$word}\n";
     }

"\s+" よりも "+" の方が好きです。あなたは具体的にスペースを言ったので、実際のスペースだけをカットしたかったのです。