Question

perl的初学者，perl中哈希学的有些混乱，能否就下题给我讲讲哈希？

#!/usr/bin/perl
use strict;
my (@words, %count, $word);
chomp(@words = <STDIN>);
foreach $word (@words){
$count{$word}+=1;
print"$count{$word}\n";
}
foreach $word (keys %count){ #或者使用sort keys %count 按顺序输出
print "$word was seen $count{$word} times \n";
}

Answer 1

这个程序，比方说我运行它，然后在键盘上敲打 3 行内容作为输入内容，
a bc
abc
abc
a bc
最后程序运行在屏幕上的输出为：
1
1
1
2
abc was seen 1 times
abc was seen 1 times
a bc was seen 2 times
就是说，这个程序，对于读取的内容，进行次数的统计，读到一次，统计加 1，输出；最后，再总的对统计数次输出一遍。

Answer 2

hash是一种算法，通过这种算法将一串字符对应成一个数字，这样如果读取和修改这组字符相关的信息，就可以利用hash算法找到这个数字，在对应找这个数字对应地方存的东西，
就像平常查字典，按照拼音或者笔画找对应字的页数一样，就不用一页一页的翻着去找了