大家好 小弟最近在用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有幾個這樣 我的寫法如下 ----------------- if ($si eq 1) { $si_1++; if ($sb eq 0) { $si1_p++; } } if ($si eq 2) { $si_2++; if ($sb eq 0) { $si2_p++; } } if ($si eq 3) { $si_3++; if ($sb eq 0) { $si3_p++; } } if ($si eq 4) { $si_4++; if ($sb eq 0) { $si4_p++; } } ----------------------- $si表示右邊的代號1、2、3、4 $sb表示左邊的資料 當$si=1時，代號1的數量+1，如果$sb=0，$si1_p就+1， 以此來計算共有幾個代號1，並其中有幾個0 代號2、3、4以此類推 但是現在有個問題 就是檔案內容會有變動 右邊那列有可能會是代號1到2或者代號1到8的變化 我想讓代號1~2或者1~8的變化都可以通用 有沒有什麼寫法，可以不管代號有幾個 都可以達到我的需求呢? 還請大家不吝指教 感謝~ --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 111.253.112.48 ※ hws110:轉錄至看板 Programming 11/02 00:20