Question

perl 逐行输出文件

文件中有上千行
任务 每一行输出到一个新的txt中
怎么编写

Answer 1

用户输入读入的文件名就是￥ARGV［0］输出文件名＝输入文件的名字＋out￥output＝￥ARGV［0］．＆quot；out＆quot；；打开Perl文件cFILE为文件句柄korv如果文件不存在，可以用来创立新文件open　FHdhjn＆quot；＆gt；￥output＆quot；；输出print　FH　＆quot；data．．．＆quot；；close　FH；

追问

报错
printon CLOSED filehandle OUT

Answer 2

while(<>){
chomp;

$num++;

open OUT,"$num".'.txt';

print OUT $_."\n";

close OUT;

}

追问

报错
printon CLOSED filehandle OUT

追答

哦 漏了 输出句柄 加上“>” , open OUT,">","$num".'.txt