perl FileHandle 模块使用

打开多个文件时必备啊

 1 use FileHandle;
 2
 3 my (%index,%fh);
 4 # 创建句柄,这里利用gzip 压缩下
 5 foreach my $k(keys %index){
 6     $fh{$k}=FileHandle->new("| gzip -c > ${k}_1.txt.gz");
 7 }
 8
 9 # 输出内容到句柄绑定的文件
10 if(exists $fh{$key}){
11     $fh{$key} -> print($out1);
12 }
13
14 # 句柄关闭
15 foreach my $tmp(keys %fh){
16     $fh{$tmp} -> close;
17 }