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