perl拆分一个文件为若干小文件

最新推荐文章于 2022-11-08 15:23:57 发布

峪石

最新推荐文章于 2022-11-08 15:23:57 发布

阅读量759

点赞数 1

分类专栏： perl 学习笔记

本文链接：https://blog.youkuaiyun.com/yuehedou/article/details/116432015

版权

Perl 文件分割行数限制批处理文本处理

关键词由优快云通过智能技术生成

学习笔记同时被 2 个专栏收录

9 篇文章

订阅专栏

perl

5 篇文章

订阅专栏

这是一个使用Perl编写的脚本，它将大文件按每9000行分割成多个小文件，每个新文件以'B'加数字命名。脚本中避免了使用use strict，以防止与文件句柄操作冲突。当行数达到9000时，脚本会创建新的输出文件并继续写入。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

如下，每9000行存入一个新文件，新文件数量不限。

注意1：用变量$fh作为文件句柄名，本身就能被改变，不用更多折腾了。

注意2：使用变量$fh作为文件句柄进行输出（print）时，开启use strict会报错。

#! /usr/bin/perl
use warnings;
#use strict;

my $j;
my $file = 1;
my $fh = 'B1';
open $fh, ">>", "ZmBlastIDList_1.txt" or die;
while (<>) {
	$j++;
	if ($j > 9000) {
		$file++;
		$j = 1;
		$fh = 'B'.$file;
		open $fh, ">>", "ZmBlastIDList_$file.txt" or die;
	}
	print $fh "$_";
}