[問題] 精確比對

[DreamYEN (我本善良)]

剛接觸perl不久，有些東西搞不太懂

請問些很淺的問題

假設有20個pattern  a1 a2 a3 .. a20

當我用一個while去做替換

while ($line = <>) {
 if ($line =~ s/a1/b1/g)
}

這樣子做的話，會連 a11 ~ a19的 a1 都被替換掉

不知道有什麼方法可以精確的只比到想要的字串呢

另一個問題，當宣告一個陣列

my @a = 0;

這樣子只會給這個陣列中的第一個值設定

不知道是否可以像 c 一樣設定陣列的大小與初始值

int a[10] = {0};

麻煩可以幫我解答這些簡單的問題..謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 118.160.196.233
→ srwff:連用兩次 /b 不知道可不可以
推 Andor:my @a = (0) x 10;
推 ChelseaFC:印象中書上是說用s/\ba1\b/b1/g 就可以了