英語のテキストを読み込み、単語の出現回数を数える Perlソースつき
こんにちは。Kzです。興味を持ってくれて有り難う。
この単語カウントソフトは、僕がPerlで作った初めてのまともなソフトです。テキストの単語がそれぞれ何回出現したか数えます。クイズとかで、「一番よく使われる英単語は?」とか聞かれますが、これでその対策も万全(笑)。言語学者の役に立つとも思えないし、かといって他の役に立つとも思えないので、結局何の訳にも立たないソフトかも知れません(笑)。でも、選択肢は多い方が良いし、Perlを勉強しているヒトがサンプルコードを探しているときに、役に立つかも知れないので、公開します。
MacJPerlでの動作を確認していますが、本場UNIXやメジャーどころWindowsなどで動作させたことはありません。もし良かったら、動く/動かない、だけで良いので、メールくれると嬉しいです。
Count_words.appというのが、count_words.plを実行専用形式にしたMac用のアプリケーションです。Perl実行環境のいらない、(と思う)これだけで動く、普通のアプリです。ドラッグ&ドロップでファイルを指定することが出来ます。複数のファイルをドラッグアンドドロップすることもできます。普通にダブルクリックで起動すると、ファイルを指定するように聞いてきます。ファイル名を入力して、リターンを押して下さい。このとき、スペースで区切って、複数のファイルを指定することもできます。複数のファイルを指定した場合は、それぞれのファイルについて別々に結果を出すのでなく、複数のファイルの総計を出します。
Count_words.plというのが、プログラム本体のテキストファイルです。実行可能にするためには、先頭の行は、あなたの環境に合わせて変えてください。MacOSで実行されるときは、MacJPerlなどのPerl実行環境が必要です。Windowsでも、何らかのPerl実行環境が必要です。Copyleftって書いてありますね。そーです。フリーですが、貴方がコレに手を加えたり、これから引用したソフトを作ったりしたら、それも同じようにフリー公開されないといけません。
読みにくいドキュメントでご免なさい。僕に聞かれるべき質問があれば、メール下さい。
1999 9 13 Kz(Kazuto Ishihara)
mailto:kazuto@jttk.zaq.ne.jp
http://www.jttk.zaq.ne.jp/kz-soft/