大家好 小弟最近在用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