Question

perl语言：如何实现讲一个文件中内容附加到另一文件顶层位置。谢谢！

例子：
文件1：有四行如下
A
AA
B
BB
文件2：有5行如下：
1
11
22
33
333
最总想实现merge文件3：
A
AA
B
BB
1
11
22
33
333

Answer 1

open(FE,">3");
open(FD,"1");
print FE while(<FD>);
close(FD);
open(FD,"2");
print FE while(<FD>);
close(FD);
close(FE);

以上代码测试通过，确保正确运行，三个文件的名字分别是1、2、3，可能你需要更改。