perl - 常用功能切片

处理字符串

处理数组

统计属组中特定元素的个数

@array=(1,2,2,2,3,4,5,6,7);
$number  = grep { $_ == 2 } @array; # 统计数组中元素是 “2” 的元素个数。

处理字典

生成title索引

@h{@t} = 0 .. $#t;