[問題] 讀取檔案的內容
大家好
小弟最近在用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
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
