%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";
}
}