perl ファイルハンドル操作メモ(一時ファイル作成絡み)

perlプログラム中で一時ファイルにデータを格納したくなった時に，少しだけ手間取ったのでメモ．

http://blog.livedoor.jp/yoko_net/archives/52062586.html　を参考にした．

use File::Temp qw( tempfile);　　　

File::Temp->safe_level(FIle::Temp::HIGH);
my $fh =tempfile();　　　#ファイルハンドルの取得

print $fh "test";    #試しに書き込み
seek($fh,0,0);　　←書き込みした文字列を吐き出そうとしても，ファイルハンドルの位置がファイル末なので先頭位置に移動

while(my $line= <$fh> ){
    print "called";
    print OUT "$line";
}