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

質問

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

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 · ベストアンサー

ハッシュを使いましょう。
終了する時に、ファイルに保存するようにしないといけないですね。

お礼

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

回答No.2

BLUEPIXY

ハッシュとデータベースを結び付ける方法もあるのですが、もうちょっとわかりやすい例として、
例えば、辞書ファイルの構造を、
キーワード\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);
のような感じでやります。
細部は、そちらの都合の良いように作ればいいと思います。
とりあえずは、上記の断片をテストするようなプログラムを作って、どんな動作になるか確かめてみればいいでしょう。

お礼

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