テストデータの整形用に書いたスクリプト
公開日:
:
最終更新日:2014/02/04
未分類
これは綺麗に書けたかな。
# レコードカウンタを振りなおす
# カウンタ初期化
$row=0;
# 1行読み込む
while(<>){
# 改行除去
chomp;
# カウンタを文字列化
$row_str = sprintf("%08s", $row+1);
# 行末のレコードカウンタを置換
s/[\d]{8}\*$/$row_str*/;
# 置換した行を出力
print "$_\n";
# カウンタをインクリメント
$row++;
}
関連記事
- PREV
- テストデータの抽出用に書いたスクリプト
- NEXT
- お金や各種権利関係について