求救，合并文本文件

bfzy1212

我是幾十個這種同格式的文本文件。而且每次合并的文本文件數(shù)量不一定，能不能做個程序

bfzy1212

我是幾十個文本文件哦。。能不能弄個程序對這幾十個文件進行合并。

Perlvim

#!perl

use 5.014;

# 這個模塊需要安裝
# cmd> ppm install File::Slurp
use File::Slurp qw(read_file write_file);
# 這個模塊需要安裝
# cmd> ppm install File::Find::Wanted
use File::Find::Wanted qw(find_wanted);
# 這個模塊可能也需要安裝
# cmd> ppm install List::MoreUtils
use List::MoreUtils qw(uniq);

# 這里修改文件所在的目錄
my $file_dir = 'dir';

# 這里定義搜索文件的后綴名規(guī)則，可遞歸搜索
my @files = find_wanted { /\.txt$/ }, $file_dir;

# 聲明合并后的內(nèi)容數(shù)組
my @join_txt = ();

# 遍歷文件列表，將內(nèi)容添加到一起
foreach my $file (@files) {
  my @lines = read_file $file;
  push @join_txt, @lines;
}

# 將記錄中重復的標題列刪除
my @uniq_join_txt = uniq @join_txt;

# 輸出內(nèi)容到一個文件 'output.txt'
write_file('output.txt', @join_txt);

只是一個紅薯

這是exe文件，確保路徑名正確，每個txt文件的第1行一樣，不然不會刪除每個文件的第一行。
combin_txt.zip (1.2 MB, 下載次數(shù): 6)

2013-03-05 18:37 上傳

點擊文件名下載附件

回復 11# bfzy1212
這是源碼：

1. 
   
2. use strict;
   
3. use warnings;
   
4. my $pass;
   
5. print "input the path:";
   
6. chomp(my $path=<STDIN>);
   
7. if (! -d $path){
   
8.     print "wrong path!";
   
9.               }
   
10. else
    
11. {
    
12.     chdir($path);
    
13. open OUT,'>>','combine.txt';
    
14. foreach my $file(glob '*txt')
    
15.        {
    
16.           open FILE,$file or die;
    
17.           while(<FILE>)
    
18.               {
    
19.                 if($.==1){
    
20.                 $pass=$_;
    
21.               }
    
22.    
    
23.               print OUT $_ if $.==1;
    
24.               print OUT $_ unless /$pass/;
    
25. 
    
26.               }
    
27.         }   
    
28. }
    
29. close OUT;
    
30. close FILE;

復制代碼

bfzy1212

非常感謝，請問，能不能不提示輸入路徑，直接執(zhí)行我放文本文件的文件夾里的所有文本文件回復 14# 只是一個紅薯


   

bfzy1212

那個代碼能不能修改一下，不提示輸入路徑，直接執(zhí)行我放文本文件的文件夾里的所有文本文件。另外請高手寫點注釋。不勝感激！

只是一個紅薯 發(fā)表于 2013-03-05 18:43
這是exe文件，確保路徑名正確，每個txt文件的第1行一樣，不然不會刪除每個文件的第一行。

只是一個紅薯

比如txt文件在：D:\perl\perlfile這個目錄下，直接輸進去，回車就行了回復 16# bfzy1212


   

bfzy1212

我就是不想輸D:\perl\perlfile，能不能省略這一步。回復 17# 只是一個紅薯


   

只是一個紅薯

哥們，吃飯還得拿筷子啊回復 18# bfzy1212


   

bfzy1212

大哥，你的合并文本文件的程序不對啊。幫忙看看那里的問題啊回復 13# Perlvim