テストデータの整形用に書いたスクリプト
公開日：
:
最終更新日：2014/02/04
未分類
記事内に広告を含む場合があります。記事内で紹介する商品を購入することで、当サイトに売り上げの一部が還元されることがあります。
これは綺麗に書けたかな。
# ﾚｺｰﾄﾞｶｳﾝﾀを振りなおす
# ｶｳﾝﾀ初期化
$row=0;
# 1行読み込む
while(<>){
# 改行除去
chomp;
# ｶｳﾝﾀを文字列化
$row_str = sprintf("%08s", $row+1);
# 行末のﾚｺｰﾄﾞｶｳﾝﾀを置換
s/[\d]{8}\*$/$row_str*/;
# 置換した行を出力
print "$_\n";
# ｶｳﾝﾀをインクリメント
$row++;
}
関連記事
- PREV
- テストデータの抽出用に書いたスクリプト
- NEXT
- お金や各種権利関係について
