Question

如何用Perl将文本中第m行输入到另一个文本中

比如，我想输出A.txt中第66行内容到B.txt中，不知道第66行的具体内容，如何用Perl表达？本人刚刚接触Perl，实属小白，若能够写出程序并附加简单的解释将感激不尽啊！谢谢！

Answer 1

获得A.TXT第66行的方法：

open(FD,'A.txt');
@A=<FD>;
close(FD);
print $A[65];

上面的代码显示其66行内容，如果需要添加到B.TXT文件末尾，后续代码如下：

OPEN(FD,'>>B.txt');
print FD $A[65];
close(FD);