求助，怎样多个文件对比合并出结果？

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($first, %hData) = "";
   
6. while (<>){
   
7.     chomp;
   
8.     my @aList = split (/,/, $_, -1);
   
9.     if (@ARGV){
   
10.         $first = $ARGV if ($first eq "");
    
11.         my @aT = ($aList[-1], 0);
    
12.         if ($first eq $ARGV){
    
13.             push (@{$hData{$aList[0]}}, @aT);
    
14.         }else{
    
15.             my $has = exists $hData{$aList[0]};
    
16.             push (@{$hData{$aList[0]}}, $has ? @aT : (0, 0, @aT));
    
17.         }
    
18.         next;
    
19.     }
    
20.     if (exists $hData{$aList[4]}){
    
21.         my @aT = @{$hData{$aList[4]}};
    
22.         @aList[5 .. 8] = @aT > 2 ? @aT : (@aT, 0, 0);
    
23.     }
    
24.     print join (",", @aList), "\n";
    
25. }
    

复制代码

perl abc.pl a b c
-------------------------------------------------------------------
xa,1,张三,男,13288888888,1,0,200,0,,,,
sh,2,李四,男,13288888889,7,0,0,0,,,,
sh,3,王五,女,13288888890,0,0,5000,0,,,,
bj,4,毛六,男,13288888891,0,0,0,0,,,,

sunzhiguolu

如果不是以编程的方式修改 MS Excel 单元格内容的话, 可以使用 LibreOffice 办公套件. 开源, 跨平台.