perl学习笔记(5)

zz775520666

　　哈希列表和普通列表的差别是：哈希列表的索引是有业务含义的，普通列表的索引是数字。根据索引从哈希列表中获取信息的速度很快。
　　哈希列表变量用%开头。
　　哈希列表键值不能重复，如果重复，后面的值会覆盖前面的值。这一特性善加利用可用于统计单词出现的频率。
　　测试哈希列表中是否存在某元素，不能用if($Hash{keyval}){...}，应该用if(exists $Hash{keyval}){...}。
　　将哈希列表的元素取值设置为undef不能删除这个元素，删除元素应该用delete $Hash{keyval}。清空哈西列表用$Hash=()。
　　没太搞明白$_的含义。手头这个教材有点老，教学案例中用perl承担数据库的功能有些勉为其难了，但是在没有数据库的情况下perl还是能解决一些问题的。
　　练习(f51.pl)：
　　

• #!/usr/bin/perl -w
  
• %food=( apple=>'fruit',
  
•         pear =>'fruit',
  
•        carrot=>'vegetable');
  
• #print qq($food{'pear'}\n);
  
• $food{banana}='fruit';
  
• @food=%food;
  
• print(qq(food list is:\n @{food}.\n));
  
• foreach my $eat (keys %food){
  
•         print qq(food[$eat]=$food{$eat}\n);
  
• }
  
• print(qq(after reverse ... \n));
  
• %food=reverse(%food);
  
• @food=%food;
  
• print(qq(food list is:\n @{food}.\n));
  
• foreach my $eat (keys %food){
  
•         print qq(food[$eat]=$food{$eat}\n);
  
• }
  

　　

　　$ perl f51.pl
　　
food list is:
　　
banana fruit carrot vegetable apple fruit pear fruit.
　　
food[banana]=fruit
　　
food[carrot]=vegetable
　　
food[apple]=fruit
　　
food[pear]=fruit
　　
after reverse ...
　　
food list is:
　　
fruit banana vegetable carrot.
　　
food[fruit]=banana
　　
food[vegetable]=carrot
　　
从这个练习中可以看出，reverse(%food)后，因为fruit重复的原因，后面的元素覆盖了前面的元素，哈希列表的元素个数变少了。简而言之，哈希列表的reverse通常是不可逆的，要可逆必须一一对应，且两边都不能有重复。
　　这次就写到这里吧。