大家好
小弟最近在用perl去读取档案并取值
档案的内容是这样
0 1
0 2
0 3
0 4
1 1
0 2
2 3
1 4
0 1
1 2
右边的1、2、3、4是代号
左边的数字则是得到的资料
我的程式是将1、2、3、4的资料统计出来
例如说0有几个，1有几个，2有几个这样
我的写法如下