文本文件合并

[liysky]

用perl 将两个文本文件合并，最后支持子文件操作。
如有a 文件 a.txt
------------------------
Chinese
English
Japanese
Vietnamese
Traditional Chinese
--------------------------
b文件为 b.txt
--------------------------------------------
全選(&L)

貼上(&P)

複製(&C)

剪下(&T)

關閉全螢幕顯示(&C)

全螢幕顯示(&U)
插件管理
插件管理(&D)...
---------------------------------------------------
空行不用管它，希望合并成
-----------------------------------------------------
Chinese
English
Japanese
Vietnamese
Traditional Chinese
全選(&L)

貼上(&P)

複製(&C)

剪下(&T)

關閉全螢幕顯示(&C)

全螢幕顯示(&U)
插件管理
插件管理(&D)...

----------------------------------------

支持子文件夹，即某个目录下的所有txt文件进行操作

谢谢

[wx红杉树]

open BBB , "<b.txt";
open AAA , ">>a.txt";
while(<BBB>){
chomp;
print AAA "$_\n";
}
close AAA;
close BBB;

[iisbsd]

[Quote=引用 1 楼 ecitnet 的回复:]
chomp;
print AAA "$_\n";
[/Quote]

浪费，直接：
pring AAA $_;

就好了。

[peterpetrell]

`cat a.txt >>b.txt`

这就行了

[吸积盘]

两个文件确实不必写perl,不过目录下所有的文件，用perl也是一种方法。 1楼的程序前面再用readdir函数循环一下，就差不多了

[jonesning]

先opendir 打开指定目录，通过readdir 循环遍历该目录下所有的.txt文件，然后cat 输出

[flykobesummer]

直接用shell就可以了

目录结构如下：
flykobe@105 rubbish $ ls tmp/ -R
tmp/:
sub t1 t2

tmp/sub:
t3

cat `find tmp -type f ` > tmp #将所有文件内容重定向输出到tmp