大家好
小弟最近在用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有幾個這樣
我的寫法如下