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]}  $_;
}



  • 发表于 2019-06-28 17:43
  • 阅读 ( 2420 )
  • 分类:perl

0 条评论

请先 登录 后评论
omicsgene
omicsgene

生物信息

654 篇文章

作家榜 »

  1. omicsgene 654 文章
  2. 安生水 325 文章
  3. Daitoue 167 文章
  4. 生物女学霸 120 文章
  5. 红橙子 78 文章
  6. CORNERSTONE 72 文章
  7. rzx 67 文章
  8. xun 66 文章