perl FileHandle 模块使用

打开多个文件时必备啊

use FileHandle;

my (%index,%fh);
# 创建句柄,这里利用gzip 压缩下
foreach my $k(keys %index){
    $fh{$k}=FileHandle->new("| gzip -c > ${k}_1.txt.gz");
}

# 输出内容到句柄绑定的文件
if(exists $fh{$key}){  
    $fh{$key} -> print($out1);
}

# 句柄关闭
foreach my $tmp(keys %fh){
    $fh{$tmp} -> close;
}