datデータを細分化して、取り込むには

質問

いつもお世話になります。
有限会社 futomiさんの高機能アクセス解析プロの
acc.cgi内に、次のようなコードがあります。

my %OrgList = &ReadDef('./data/organization.dat');

これは、dataフォルダ内にある、organization.datを読み出してる部分だと思います。
中身は、次のようなものです。

geidai.ac.jp=東京芸術大学,,東京都
yahoo.co.jp=ヤフー株式会社,,

whoisで、まめに調べて記載していましたが、とうとう行数も3,000行位に
肥大化したので、学校系、ネットワーク系、一般会社系、官公庁系などと、
細分化する事は出来ないかと考えました。

organization.dat
organization2.dat.
........
organization5.dat.

Perlの改造など全くわからないので、一番簡単な方法を教えて下さい。

よろしく、お願いします。

回答No.2

karumakaruma · ベストアンサー

細分化したファイルが
./data/organization.dat
./data/organization2.dat
./data/organization3.dat
./data/organization4.dat
./data/organization5.dat

であるならば

%OrgList = (
%ReadDef("./data/organization.dat"),
%ReadDef("./data/organization2.dat"),
%ReadDef("./data/organization3.dat"),
%ReadDef("./data/organization4.dat"),
%ReadDef("./data/organization5.dat"));

という感じでいけないでしょうか？

お礼

お礼が遅くなり申し訳ありませんでした。

最初、エラーが出たので何故？と思っていましたが、
%ReadDefを「&ReadDef」に変えたら、動作しました。

ありがとうございます。

回答No.1

karumakaruma

細分化したいという事はわかったのですが、

organization.datを細分化する方法が知りたいのか、

organization.datを細分化した後

my %OrgList = &ReadDef('./data/organization.dat');

をどうすればいいのかという事が知りたいのかどちら
でしょう？

ちょっと文脈から読みきれなかったので・・・

補足

どうもありがとうございます。
my %OrgList = &ReadDef('./data/organization.dat');の部分を
どうすれば良いのか教えて下さい。
お願いします。