ファイル内の数値の変更について

質問

htmlファイル内に
<td class="numberCol" vAlign="top">48</td><td vAlign="top">
：
：
<td class="numberCol" vAlign="top">49</td><td vAlign="top">
：
：
<td class="numberCol" vAlign="top">50</td><td vAlign="top">
という48から始まる行があるのですが、この数字を1から順番に書き換えたいです。
numberColというので行をマッチさせることができますが、どのようなスクリプトを書けばよいでしょうか？

よろしくお願いします。

回答No.1

atom_seed

ファイルを開く/書き込むの部分は省略しますね。
下記のように正規表現で置換すれば実現できます。

my $i;
while (<DATA>) {
$_ =~ s/numberCol" vAlign="top">(\d+)/'numberCol" vAlign="top">'.(++$i)/e;

}