perl中使用哈希存储多个句柄

在Perl中一般是使用大写字母作为句柄使用的，例如IN和OUT。

创建句柄的方法常为

open(IN, $file) or die "$!";

但若要同时打开多个文件且文件数目不定，我们就需要使用一个变量来保存多个句柄。

假设我们有多个文件，文件名保存在@file_list变量里，哪么可以使用以下方法创建，保存并调用多个句柄。

my %handle_hash;
foreach $file (@file_list)
{
    open($handle_hash{$file}, '>'.$file) or die "$!"; #创建可写入文件
    print {$handle_hash{$file}} "test.\n"; #向文件中写入数据
    close($handle_hash{$file}) ;
}