初心者です。ｐｅｒｌを使用して辞書プログラムを実装する機能を作りたいのですが。

ｐｅｒｌを使用して辞書プログラムを実装する機能を作りたいのですが、メインプログラムを作ってからその先をどうすればいいのかわかりません。

print"1.新規作成 2.単語の登録 3.単語の検索 4.辞書一覧 5.単語の削除 6.終了:\n";
$type =<STDIN>;
chomp($type);

if ($type == 1) {
new create;
} elsif ($type == 2) {
entry;
} elsif ($type == 3) {
search;
} elsif ($type == 4) {
list;
} elsif ($type == 5) {
deletion;
} elsif ($type == 6) {
exit(0);
}

この後はどのように作っていったらいいのでしょうか、教えて下さい。

No.1 ベストアンサー 回答者： BLUEPIXY 回答日時： 2005/01/23 12:43

ハッシュを使いましょう。

終了する時に、ファイルに保存するようにしないといけないですね。

この回答へのお礼

ありがとうございます。なんとなくわかるんですが、具体的にどうするか良くわかりません。頑張ってみます。

お礼日時：2005/01/23 17:31

No.2 回答者： BLUEPIXY 回答日時： 2005/01/23 19:06

ハッシュとデータベースを結び付ける方法もあるのですが、もうちょっとわかりやすい例として、

例えば、辞書ファイルの構造を、
キーワード\t（タブ）対応語
みたいな構造でテキストファイルで作ったとすると、
例えば、
dic.datファイル
寝る(-_-)゜zzz…
焦る（＾－＾；
怒るヾ(｀д´)ノ"
笑う（＾ー＾）
泣く(；´д⊂)
#ハッシュへの読み込み
%Dictionary=();#初期化
open(DIC, "<dic.dat");
while(<DIC>){
($key, $data)=split;
$Dictionary{ $key } = $data;
}
close(DIC);
#単語の登録
%Dictionary{ '単語' } = '対応語';
#単語の検索
print "$keyは、%Dictionary{$key}です\n";
#辞書一覧
while(($key, $data)=each(%Dictionary)){
print "$key => $data\n";
}
#単語の削除
delete %Dictionary{ '単語' };
#ファイルへの出力
open(DIC, ">dic.dat");
while(($key, $data)=each(%Dictionary)){
print DIC "$key\t$data\n";
}
close(DIC);
のような感じでやります。
細部は、そちらの都合の良いように作ればいいと思います。
とりあえずは、上記の断片をテストするようなプログラムを作って、どんな動作になるか確かめてみればいいでしょう。

この回答へのお礼

やっと掴めてきました！とりあえず作ってみます。ありがとうございました！

お礼日時：2005/01/24 05:29