Perlでのファイルハンドルの取り扱いについて質問です。サブ関数でオープンしたファイルのハンドルを返したいです。型グロブを使えばいいのかと{ local *FH ; open FH,$file ; *FH ;}などとしてみましたが、毎回同じ値が返ってきます。Ｃ言語などではファイルハンドルの値はユニークだと思うのですが、どうなっているのでしょうか？さっぱりわかりません。どうしたらいいか教えて下さい。

ファイルハンドルを変数に格納するには、

$fh = *FILEHANDLE;

サブルーチンに渡すには、

&function(*FILEHANDLE);

このPerl&CGI講座の

!%20ファイルハンドルを変数に格納する

ここに書いてある通りだと思います。

同時にファイルを開いているのでなければ、同じあたいになることもあると思います。ファイルハンドルはファイルを直接表すURLなどの表現と違って、開いているファイルの内部的な表現です。

内容を読み込んでみて、すべて同じ値になるのなら、openの指定の段階で間違っているのではないでしょうか？

FileHandleモジュール使ってみては。

my $fh = new Filehandle;

$fh->open(”>>ファイル名”);

などなど

OOPの知識がほんの少し必要になりますが。

FileHandleモジュールは最近のPerlなら標準で付属しています。

@fh=<FH>;

<>をつけてもだめですか？

Perlのバージョンが書かれていませんが、

sub {

open my $fh, ”$infile”;

return $fh;

}

とかで良いのでは？

　あとはGENSYMを使う方法もあります。

というわけでgensymを使ったバージョン。

use Symbol;

sub foo {

my $fh = gensym;

open $fh, ”$infile”;

return $fh;

}

かな？

上記の一番下には同じ事が載っていますので、考え方は正しいという気がしますが、IO::Handleモジュールを使う方が良いかも知れませんね。