dbmopenでデータベース作成？

質問

現在perlで、
dbmopen関数を使ってDBファイルを作成しようとしています。
できることはできたのですが、幾分わからないところがありまして、、、。

どなたかお助け下さい。。。

というのも、
テキストファイルを、内容・順番を全く同じにしてDBファイルにしたいのですが、、、。
自分で作ると、DBファイルはできても順番がバラバラでした。
どのようなスクリプトを作ればいいのでしょうか？

自分が作成したperlスクリプトはこんな感じです
↓
dbmopen %a, "ファイル名", 0666;
open(TMP,"ファイル名.txt");
while($data=<TMP>){
# chop($data);
$n=index($data," ");
$key=substr($data,0,$n);
$a{$key}=$data;
}
dbmclose %a;

まだperlを触って数日で、どこをどうすればいいのか不明です、、、。
なんとか、テキストファイルを1行ずつひっぱってきて、DBファイル化したいのですが。

ご指導お願い致します、、、。

回答No.1

Tacosan

「順番がバラバラ」とはどういう意味でしょうか?
「データベース」において, 普通「データの順序」は意味を持ちません. 必要なら「データの順序を表すもの」も一緒に入れてください.

お礼

すみません、説明不足でした。
「順番がバラバラ」とは、DBファイルへの記述順のことです。
DBファイルのデータを読み込むとき、データの順序が必要と思ったのですが、データベースでは意味を持たないということを知りませんでした。汗
勉強不足でした。

ただ、質問のスクリプトだと、
テキストファイルに１つしかない内容が、DBファイルでは２つ記述されていたりしていたので、少しひっかかってしまっていました。
モジュールの問題かなとは思っているのですが、、、