Perl CGI 「外部ファイルをロードするには...」

質問

いつもお世話になります。今回もどうかお願いします。
今回は、futomi'sさんの高機能アクセス解析プロを改造して、データファイル
「organization.dat」と「ipaddr.dat」を共有したくて質問させて頂きます。
（取りあえず、前者だけ）
どこかのサイトで、下記のようなコードがありました。
+---------------------
#!/usr/bin/perl
my $host = "xxx.com"; //自サバの場合
my $file = "data/organization.dat";
use IO::Socket;
print "Content-type: text/html＼n＼n";
my $files = "/"."$file";
my $remote = IO::Socket::INET->new(
Proto => "tcp",
PeerAddr => "$host",
PeerPort => "host(80)",
);
unless ($remote){ die "cannnot connect to help daemon on $host"; }
$remote->autoflush(1);
print $remote "GET $files ＼n＼n";
while (<$remote>){ print "$_"; }
+---------------------
これをtest.cgiとしてサーバにアップすると、改行はしてくれないけど一応出力されます。

高機能アクセス解析（acc.cgi）で、organization.datを読込みしている部分は、
my %OrgList = &ReadDef('./data/organization.dat');　だと思います。
この部分が怪しいと思うのですが、どうしたら読込みできるでしょうか。
これ、ず～っと前から考えていましたが、もうギブアップです。
どうか教えて下さい。よろしく、お願いします。

回答No.1

moon_night · ベストアンサー

&ReadDef
はサブルーチンなので、
sub ReadDef {

とかかれている部分を探して抜き出せばできると思います。

お礼

おぉ！見事解決しました。
どうも、ありがとうございます。