$textname="C:/testPerl.txt"; #例如$textname="E:/lqf.txt";
open(FILE1,$textname);#打开文件
@line=<FILE1>;#将文件的每一行读取到数组@line中,文件的每一行作为一个数组元素
close FILE1;
print @line;
保存为:testPerl.pl 在c盘目录下面
cmd 命令下: perl testPerl.pl
$textname="C:/testPerl.txt"; #例如$textname="E:/lqf.txt";
open(FILE1,$textname);#打开文件
@line=<FILE1>;#将文件的每一行读取到数组@line中,文件的每一行作为一个数组元素
close FILE1;
print @line;
保存为:testPerl.pl 在c盘目录下面
cmd 命令下: perl testPerl.pl