ファイルオープンのサブルーチンを作っているのですが
ファイルオープンのサブルーチンを作っているのですが、二つ目の「sub Open_DB_plus」が動作してくれません。
一つ目の「sub Open_DB」はとりあえずうまく動作したのですが、このルーチンを使ったファイルオープンを前後して使用すると以前に読み込んだファイルにより、ここで読まれるべき「@indata」が上書きされてしまうことに気づき、配列名まで指定できるよう二つ目の「sub Open_DB_plus」を作り始めたのですが、こちらは配列名を受ける「$list_name」に値が入りません。
ふたつめの「sub Open_DB_plus」を動作可能な状態にするにはどうしたらよいでしょうか？
# EX：&Open_DB("$Dir","$Name",'.txt');
sub Open_DB{
my ($path,$pickfile,$type) = @_;
$file_name = "$path/$pickfile"."$type";
open (FILE, "< $file_name");
@indata = <FILE>;
close(FILE);
}#-----END
# EX：&Open_DB_plus('@indata',"$Dir","$Name",'.txt');
sub Open_DB_2{
my ($listname,$path,$pickfile,$type) = @_;
$file_name = "$path/$pickfile"."$type";
$list_name = "$listname";
open (FILE, "< $file_name");
$list_name = <FILE>;
close(FILE);
}#-----END:
お礼
どうもありがとうございます。 知ってて欲しいことを聞いたわけではないんです(^-^;