请教Perl哈希：

Azar92

请问是否可以使用哈希将以下数据中A、B物质（substance）的三个浓度（concentration）分别加起来？
substance              concentration
A                           12
A                           11
A                           15
B                           23
B                           21
B                           26
初学Perl，请求大神赐教代码

sunzhiguolu

回复 1# Azar92

1. perl -alne '{$h{$F[0]}+=$F[-1]}END{print "$_ => $h{$_}" for keys %h}' ur.txt
   

复制代码

Azar92

谢谢帮助指导 ，可我运行程序后在"}END"处报错啦
我输入的代码是（见识不够，还没看懂代码，是直接的copy）：
    perl -alne {$h{$F[0]}+=$F[-1]}END{print "$_ => $h{$_}" for keys %h}
        __DATA__
substance              concentration
A                           12
A                           11
A                           15
B                           23
B                           21
B                           26
大神能否帮我再debug一下呀
回复 2# sunzhiguolu


   

Azar92

思考了一下，我需要先把我的数据放到数组F里么？回复 2# sunzhiguolu


   

yakczh_cu

awk "{ arr[$1]=arr[$1]+$2 } END { for( key in arr) { print key , arr[key] } } "  data.txt

sunzhiguolu

回复 3# Azar92
你的环境是?

   

sunzhiguolu

回复 4# Azar92
用这个吧, 比较稳妥一点.
perl abc ur.txt

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my %hData;
   
7. while (<>){
   
8.         my ($sK, $sV) = split;
   
9.         $hData{$sK} += $sV;
   
10. }
    
11. 
    
12. foreach (keys %hData){
    
13.         print "$_ => $hData{$_}\n";
    
14. }
    

复制代码

sunzhiguolu

回复 4# Azar92
看下这个, Jason680 大神提供的.
http://highdb.com/perl-one-line-command-%E4%BB%8B%E7%BB%8D/

   

Azar92

我是在Windows里运行的代码。我看得懂这个，谢谢大神，问题解决啦啦啦，谢谢谢谢
很想知道你给我的第一个代码是Unix里用的么  
回复 7# sunzhiguolu


   

sunzhiguolu

回复 9# Azar92
Windows 下安装 Cygwin, 在 Windows 环境中用 perl one line command 有好多问题.
感兴趣的话, 看下 => http://www.cygwin.cn/
这个也是 Jason680 大神提醒的, 哈哈我也是受益者!