我有个100行的文件想按行分成100个文件用的是PERL

发布网友发布时间：2024-10-24 08:16

共1个回答

热心网友时间：2024-10-25 16:59

#!perl -w
use strict;

# AUTHOR: niejieqiang

open my $fh, "<", "T.txt";
my $num=1;
while (<$fh>) {
open my $fh2, ">", $num.".txt";
print $fh2 $_;
$num++;
close $fh2;
}

close $fh;

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

我有个100行的文件 想按行分成100个文件 用的是PERL

我有个100行的文件想按行分成100个文件用的是PERL