テストデータの整形用に書いたスクリプト

これは綺麗に書けたかな。

# ﾚｺｰﾄﾞｶｳﾝﾀを振りなおす



# ｶｳﾝﾀ初期化

$row=0;



# 1行読み込む

while(<>){

# 改行除去

chomp;



# ｶｳﾝﾀを文字列化

$row_str = sprintf("%08s", $row+1);



# 行末のﾚｺｰﾄﾞｶｳﾝﾀを置換

s/[\d]{8}\*$/$row_str*/;



# 置換した行を出力

print "$_\n";



# ｶｳﾝﾀをインクリメント

$row++;

}