#分享一段小代码
use FileHandle;
use PerlIO::gzip;
if ($ARGV[4]=~/gz$/){
open IN, "<:gzip", "$ARGV[0]" or die "$! actions";
}else{
open IN, "$ARGV[0]" or die "$!";
}
#批量创建文件，把创建的文件句柄放到，hash中存储；
my%fout=();
for my$i (1..10){
my $f=FileHandle->new("> ${i}_links.txt");
$fout{$i}=$f;
}
#根据不同的条件输出到不同的文件当中
while(<IN>){
my@tmp=split(/\t/);
print $fout{$tmp[0]} $_;
}
