温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

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

发布时间:2022-02-24 13:40:21 来源:亿速云 阅读:192 作者:小新 栏目:开发技术

这篇文章主要介绍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(<IN>){
my@tmp=split(/\t/);
print $fout{$tmp[0]}  $_;
}

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

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI