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

lockeyou

txt1
13288888888,1
13288888889,7

txt2
13288888888,200
13288888890,5000

txt3
xa,1,张三,男,13288888888,0,0,0,0,,,,
sh,2,李四,男,13288888889,0,0,0,0,,,,
sh,3,王五,女,13288888890,0,0,0,0,,,,
bj,4,毛六,男,13288888891,0,0,0,0,,,,

txt4
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,,,,

PS:txt4就是想要的答案
另想请教一下大牛在linux环境下对excel某几个单元格修改有没有方法，tks
原因，原本是根据sql求出值写到excel里，但是excel修改单元格貌似只有在win下才可以用，后决定先把结果写到txt里面进行操作，操作完成后再创建对应excel进行展示。

stanley_tam

这样？

1. #!perl
   
2. use strict;
   
3. 
   
4. open my $fh1, '<', 'txt1';
   
5. my $data_href = +{};
   
6. while (defined (my $line = readline $fh1)) {
   
7.     chomp $line;
   
8.     my ($phone_number, $times) = split /,/, $line;
   
9.     $data_href->{$phone_number}->{'times'} = $times;
   
10. }
    
11. close $fh1;
    
12. 
    
13. open my $fh2, '<', 'txt2';
    
14. while (defined (my $line = readline $fh2)) {
    
15.     chomp $line;
    
16.     my ($phone_number, $score) = split /,/, $line;
    
17.     $data_href->{$phone_number}->{'score'} = $score;
    
18. }
    
19. close $fh2;
    
20. 
    
21. open my $fh3, '<', 'txt3';
    
22. open my $fh4, '>', 'txt4';
    
23. while (defined (my $line = readline $fh3)) {
    
24.     chomp $line;
    
25.     my @parts = split /,/, $line, 13;
    
26.     my $phone_number = $parts[4];
    
27. 
    
28.     $parts[5] = $data_href->{$phone_number}->{'times'} || 0;
    
29.     $parts[7] = $data_href->{$phone_number}->{'score'} || 0;
    
30. 
    
31.     my $new_line = join ',', @parts;
    
32.     print {$fh4} "$new_line$/";
    
33. }
    
34. close $fh3;
    
35. close $fh4;
    
36. 
    
37. 
    
38. __END__
    

复制代码

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 办公套件. 开源, 跨平台.

MMMIX

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. use v5.16;
   
8. use autodie;
   
9. use Data::Dumper;
   
10. 
    
11. sub load_data1 {
    
12.   local @ARGV = @_;
    
13. 
    
14.   my %records;
    
15.   while (<>) {
    
16.     chomp;
    
17.     my ($k, $v) = split /\s*,\s*/;
    
18.     $records{$k} = $v;
    
19.   }
    
20. 
    
21.   return wantarray ? %records : \%records;
    
22. }
    
23. 
    
24. sub load_data2 {
    
25.   local @ARGV = @_;
    
26. 
    
27.   my @records;
    
28.   while (<>) {
    
29.     chomp;
    
30.     push @records, [split /\s*,\s*/, $_, -1];
    
31.   }
    
32. 
    
33.   return wantarray ? @records : \@records;
    
34. }
    
35. 
    
36. ###
    
37. 
    
38. die "Usage: $0 txt1 txt2 txt3" unless @ARGV >= 3;
    
39. 
    
40. my $records1 = load_data1 $ARGV[0];
    
41. my $records2 = load_data1 $ARGV[1];
    
42. my $records3 = load_data2 $ARGV[2];
    
43. 
    
44. foreach (@$records3) {
    
45.   my $id = $_->[4];
    
46.   $_->[5] = $records1->{$id} if exists $records1->{$id};
    
47.   $_->[7] = $records2->{$id} if exists $records2->{$id};
    
48. 
    
49.   say join(',', @$_);
    
50. }
    

复制代码

lockeyou

谢谢楼上各位大神的解决方案，好久没写代码，都忘了sub了，哈哈