perl 求和

发布时间：2020-12-16 00:31:53 所属栏目：大数据来源：网络整理

导读：CU上一道题，利用perl求和请问如何求和？ a?2? a?3? a?4? b?4? b?5? c?6? d?4? d?1? 相同的字母求和。直接上代码哦， #!/bin/env?perl? ? use?strict?"subs";? use?List::Util?qw/sum/;? ? my?% hash ?=?();? ? open?my?$file,' ','a.txt'?or?die?"$!n";?

CU上一道题，利用perl求和

请问如何求和？

 
 
a?2?
  
  a?3?
  
  a?4?
  
  b?4?
  
  b?5?
  
  c?6?
  
  d?4?
  
  d?1?

相同的字母求和。

直接上代码哦，

 
 
#!/bin/env?perl?
  
  ?
  
  use?strict?"subs";?
  
  use?List::Util?qw/sum/;?
  
  ?
  
  my?%hash?=?();?
  
  ?
  
  open?my?$file,'<','a.txt'?or?die?"$!n";?
  
  ?
  
  while?(<$file>)?{?
  
  ???????chomp;?
  
  ???????my?@array?=?split;?
  
  ???????$hash{$array[0]}?=?[]?unless?exists?$hash{$array[0]};?
  
  ???????push?@{$hash{$array[0]}},$array[1];?
  
  }?
  
  ?
  
  close?$file;?
  
  ?
  
  for?my?$str?(sort?keys?%hash)?{?
  
  ????my?@tmp_array?=?@{$hash{$str}};?
  
  ????printf?"%-3s",$str;?
  
  ????printf?sum?@tmp_array;?
  
  ????printf?"n";?
  
  }?

output:

 
 
[root@rhel172_16_3_248?henry]#?perl?a.pl?
  
  a??9?
  
  b??9?
  
  c??6?
  
  d??5?

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!