perl学习之哈希

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

导读：perl 学习哈希简单篇 #!/usr/bin/perl?-w? use?strict;? my?% h =(? "wd"= "1",? "dm"= "2"? );? while( STDIN ){? ?chomp;? ?print?"$h{$_}n";? }? ? 结果? wd? 1? dm? 2? ? #!/usr/bin/perl?-w? use?strict;? my?%h;? while( STDIN ){? ?chomp;? ?$h{$_}+

perl 学习哈希简单篇

 
 
#!/usr/bin/perl?-w?
  
  use?strict;?
  
  my?%h=(?
  
  "wd"=>"1",?
  
  "dm"=>"2"?
  
  );?
  
  while(<STDIN>){?
  
  ?chomp;?
  
  ?print?"$h{$_}n";?
  
  }?
  
  ?
  
  结果?
  
  wd?
  
  1?
  
  dm?
  
  2?
  
  ?
  
  #!/usr/bin/perl?-w?
  
  use?strict;?
  
  my?%h;?
  
  while(<STDIN>){?
  
  ?chomp;?
  
  ?$h{$_}++;?
  
  }?
  
  for(sort?keys?%h){?
  
  ?print?"$_:$h{$_}n";?
  
  }?
  
  结果?
  
  [root@nagios?perl]#?perl??ex62?
  
  fred?
  
  wilma?
  
  dino?
  
  fred?
  
  zzz?
  
  dino:1?
  
  fred:2?
  
  wilma:1?
  
  zzz:1?

（编辑：李大同）

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