我有个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;
