求教!关键字段相同的数据合计问题?

c1l2d3

有一文本:
0001|abc|100.00
0002|ccc|200.00
0004|ddd|300.00
0001|abc|50.00
0001|abc|10.00
0002|ccc|100.00

第一个字段相同的后面金额合计后生成:
0001|abc|160.00
0002|ccc|300.00
0004|ddd|300.00

求perl如何写呢?谢谢!!

apile

用split 去切 "\|",
用hash以第一個字段為key...第三個字段累加..最後print出來...
很簡單吧...

gtlxx

保存文件 08011934:
0001|abc|100.00
0002|ccc|200.00
0004|ddd|300.00
0001|abc|50.00
0001|abc|10.00
0002|ccc|100.00

perl:

#

open( HFILE, "08011934" );
@line = <HFILE>;;
%res = {};

foreach ( @line )
{
        $_ =~ /(\d+\|[a-zA-Z]+\|)(\d+\.\d+)/;
       
       
        if ( $res{$1} )
        {
                $res{$1} += $2;
        }
        else
        {
                $res{$1} = $2;
        }
}

foreach ( keys( %res ) )
{
        print $_ . $res{$_} . "\n";
}

但是结果是这样的:

0004|ddd|300.00
HASH(0xa01116c)
0001|abc|160
0002|ccc|300

请高手指教

freefall

原帖由 "gtlxx" 发表：
\|)(\d+\.\d+)/;
       
       
        if ( $res{$1} )
        {
                $res{$1} += $2;
        }
        else
        {
                $res{$1} = $2;
        }
}

foreach ( keys( %res ) )
{
        print $_ . $res{$_} . "\n";
}

但是结果是这样的:


0004|ddd..........

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my %hash;
   
7. 
   
8. open FH,"yourfile" or die
   
9. while (<FH>;) {
   
10.   /^(\d\|\w+\|)(.*)$/;
    
11.   $hash{$1} += $2;
    
12. }
    
13. close FH;
    
14. 
    
15. foreach (sort {$a cmp $b} keys %hash) {
    
16.   print $_.$hash{$_},"\n";
    
17. }
    

复制代码

ulmer

For Example:

1. 
   
2. 1 #!/usr/bin/perl -w
   
3. 2 use strict;
   
4. 3
   
5. 4 my @data = (
   
6. 5     '0001|abc|100.00',
   
7. 6     '0002|ccc|200.00',
   
8. 7     '0004|ddd|300.00',
   
9. 8     '0001|abc|50.00',
   
10. 9     '0001|abc|10.00',
    
11. 10     '0002|ccc|100.00'
    
12. 11 );
    
13. 12
    
14. 13 my %new_data = ();
    
15. 14 foreach (@data) {
    
16. 15     my ($id, $name, $cost) = split(/\|/, $_, 3);
    
17. 16     print "$id | $name | $cost\n";
    
18. 17     $new_data{$id}{'name'} = $name;
    
19. 18     $new_data{$id}{'sum'} += $cost;
    
20. 19 }
    
21. 20
    
22. 21 print '=' x 20 , "\n";
    
23. 22
    
24. 23 foreach my $id (sort %new_data) {
    
25. 24     if ($new_data{$id}) {
    
26. 25         my $new_line = $id . ' | ' . $new_data{$id}->;{'name'}.
    
27. 26             ' | ' . sprintf("%.2f", $new_data{$id}->;{'sum'});
    
28. 27         print "$new_line\n";
    
29. 28     }
    
30. 29 }
    

复制代码