perl中如何批量创建不同的文件

这篇文章主要介绍perl中如何批量创建不同的文件，文中介绍的非常详细，具有一定的参考价值，感兴趣的小伙伴们一定要看完！

perl

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(){my@tmp=split(/\t/);print $fout{$tmp[0]}  $_;}

以上是"perl中如何批量创建不同的文件"这篇文章的所有内容，感谢各位的阅读！希望分享的内容对大家有帮助，更多相关知识，欢迎关注行业资讯频道！