请各位指点下

kejiake

我现在在处理一个文本文件，文件每一行大概是

F1(0)=sfasf12.34sdf|F2(0)=sf-23csf45|F3(0)=6|F3(1)=sa8|F4(0)=rdsfgfd

现在要做成一个hash，key是F1，F2，F3，值分别是后面的第一个数字，如果key相同，值要相加，例如上面的是：
F1=>12.34
F2=>-23
F3=>14
F4=>

不知道该怎么搞，请各位指点下。谢谢。

PS:CU这两天出啥状况了？

kejiake

my %test_new;
$c = "F1(0)=sfasf12.34sdf|F2(0)=sf-23csf45|F3(0)=6|F3(1)=sa8|F5(0)=rdsfgfd";

%test = split /\||=/, $c;
while ( ( my $key, my $value ) = each %test ) {

        $key =~ /F(\d+)/;
        my $key_new = $&;

        $value =~ /-?(\d+)\.?(\d*)/;
        my $value_new = $&;

##        my %test_new = ( $key_new => $value_new );

        if ( exists $test_new{$key_new} ) {
                ##$test_new{$key_new} = $test_new{$key_new} + $value_new;
                %test_new = ( $key_new => $test_new{$key_new} + $value_new );
        }
        else {
                %test_new = ( $key_new => $value_new );
        }

        while ( ( my $a, my $b ) = each %test_new ) {
                print "$a=>$b\n";
        }
}


F3=>8
F1=>12.34
F5=>F5
F3=>6
F2=>-23


总是F3的加不上去。。。

xiyoulaoyuanjia

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use warnings;
   
4. my %hashData;
   
5. my $number=0;
   
6. while (<DATA>) {
   
7.         while(s/(.*?)\|//){
   
8.                 $1 =~/F(\d)\(\d*\)=[a-z]*(\-?\d*\.?\d*)/;
   
9.                 $number=$2;
   
10.                 $number=0 if $2 eq "";
    
11.                 if(exists $hashData{"$1"}){
    
12.                         $hashData{"$1"}+=$number;
    
13.                 #       print $2;
    
14.                 }else{
    
15.                         $hashData{"$1"}=$number;
    
16.                 }
    
17.         }
    
18.                 $_ =~/F(\d)\(\d*\)=[a-z]*(\d*\.?\d*)/;
    
19.                 $number=$2;
    
20.                 $number=0 if $2 eq "";
    
21.                 if(exists $hashData{"$1"}){
    
22.                         $hashData{"$1"}+=$number;
    
23.                 }else{
    
24.                         $hashData{"$1"}=$number;
    
25.                 }
    
26. }
    
27. while ( my ($key,$value) = each %hashData){
    
28.         print "$key => $value \n";
    
29. 
    
30. }
    
31. 
    
32. __DATA__
    
33. F1(0)=sfasf12.34sdf|F2(0)=sf-23csf45|F3(0)=6|F3(1)=sa8|F4(0)=rdsfgfd
    

复制代码

./lianxi.pl

4 => 0
1 => 12.34
3 => 14
2 => -23

cdtits

1. #!/usr/bin/env perl
   
2. 
   
3. %fdict;
   
4. while (<DATA>) {
   
5.     while (/(F\d+).*?=.*?(-?\d+(?:\.\d+)?).*?(?:$|(?=\|))/g) {
   
6.         $fdict{$1} += ($2 || 0);
   
7.     }
   
8. }
   
9. while (($k, $v) = each %fdict) {
   
10.     print "$k => $v\n";
    
11. }
    
12. 
    
13. __DATA__
    
14. F1(0)=sfasf12.34sdf|F2(0)=sf-23csf45|F3(0)=6|F3(1)=sa8|F4(0)=rdsfgfd

复制代码

cdtits

1. #!/usr/bin/env perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my %fdict;
   
7. while (<DATA>) {
   
8.     my @datas = split /\|/;
   
9.     foreach my $d (@datas) {
   
10.         my ($k, $v) = split /=/, $d;
    
11.         $k =~ s/\(.*\)//;
    
12.         $v =~ s/.*?(-?\d+(\.\d+)?).*/$1/;
    
13.         $v =~ s/[^-.\d]+//g;
    
14.         $fdict{$k} += $v || 0;
    
15.     }
    
16. }
    
17. while (my ($k, $v) = each %fdict) {
    
18.     print "$k => $v\n";
    
19. }
    
20. 
    
21. __DATA__
    
22. F1(0)=sfasf12.34sdf|F2(0)=sf-23csf45|F3(0)=6|F3(1)=sa8|F4(0)=rdsfgfd

复制代码

xmchenb

use strict;
use warnings;

my $filename = "d:/cc/cc.txt";
my %h;

open FILE,$filename ||die '$!';
while(my $LINE=<FILE>)
{
        my @LINE=split /\|/,$LINE;
        #print $LINE;
        if($LINE=~/(\w+\(\d+\))(=[a-z]+)(\d+.\d+)/)
        {
   $h{$1}=$3;
        }
}
close FILE;

while((my $k,my $v) = each %h)
{
        print "$k,$v\n";
}

kejiake

谢谢各位。我已经解决了

my %test_new;
my $key_new;
my $value_new;

open( FILEIN, "test0622.data" ) || die("test0622.data file not find!");

while (<FILEIN>) {
        %test = split /\||=/;
        while ( ( my $key, my $value ) = each %test ) {

                if ( $key =~ /(F\d+)/ ) {
                        $key_new = $1;
                }
                if ( $value =~ /(\-?\d+\.?\d*)/ ) {
                        $value_new = $1;
                }
                else {
                        $value_new = 0;
                }
                if ( exists $test_new{"$key_new"} ) {
                        $test_new{"$key_new"} += $value_new;
                }
                else {
                        $test_new{"$key_new"} = $value_new;
                }

        }
        while ( ( my $a, my $b ) = each %test_new ) {
                print "$a=>$b\n";

        }
        %test_new = ();

}

xmchenb

#!D:\strawberry\perl\bin\perl5.12.3 -w

use strict;
use warnings;

my $filename = "d:/cc/cc.txt";
my %h;

open FILE,$filename ||die '$!';
while(my $LINE=<FILE>)
{
        my @LINE=split /\|/,$LINE;
        while(<@LINE>)
        {
                        #print $_,"\n";
                        if($_=~/(\w+)(\(\d+\))=([a-z]+)(-?\d+.?\d+)/)
                        {
                                if(exists $h{"$1"})
                                {
                                        $h{"$1"}+=$4;
        }else{
                $h{"$1"}=$4;
        }
                        }elsif ($_=~/(\w+)(\(\d+\))=([0-9]+)/)
                        {
                                                                if(exists $h{"$1"})
                                {
                                        $h{"$1"}+=$3;
        }else{
                $h{"$1"}=$3;
        }
                        }elsif ($_=~/(\w+)(\(\d+\))=([a-z]+)([0-9]+)/)
                        {
                                                                if(exists $h{"$1"})
                                {
                                        $h{"$1"}+=$4;
        }else{
                $h{"$1"}=$4;
        }
                        }elsif ($_=~/(\w+)(\(\d+\))=([a-z]+)/)
                        {
                                                                if(exists $h{"$1"})
                                {
                                        $h{"$1"}+="";
        }else{
                $h{"$1"}="";
        }
                        }
        }
}
close FILE;

while((my $k,my $v) = each %h)
{
        print "$k=>$v\n";
}
-----------------------
结果：
D:\PERL练习程序>cc.pl
F4=>
F3=>14
F2=>-23
F1=>12.34