PS,1880后程序员

看不完的牙,写不完的程序,跑不完的步。
随笔 - 97, 文章 - 34, 评论 - 10, 引用 - 0
数据加载中……

Perl 访问Hash中的数组

%hash是Hash;@array是数组(牢记哈)

#traverse ruleIndics
$pointer = \%ruleIndics;
foreach $keyword (keys %ruleIndics ) {
  
   $list = $$pointer{$keyword };
   $size = @$list;
   print "keyword=$keyword , [$size ] ";
      
   for($index=1 ; $index<$size; ++$index) {
     $value = $ruleIndics{$keyword}[$index];
     print "regexp=$value \n";
   }
}

 

posted on 2008-10-15 10:35 amenglai 阅读(389) 评论(0)  编辑  收藏 所属分类: Perl


只有注册用户登录后才能发表评论。


网站导航: