ファイル行のテキストを増分に置き換える

Question 1

そしてperl：

perl -spe 's/TRANSID000\K/$n++/e' -- -n=66 < your-file

または、長さが5になるように数字に0を埋める必要がある場合（00001、00010、00100...）：

perl -spe 's/TRANSID\K000/sprintf "%05d", $n++/e' -- -n=66 < your-file

Answer

そしてperl：

perl -spe 's/TRANSID000\K/$n++/e' -- -n=66 < your-file

または、長さが5になるように数字に0を埋める必要がある場合（00001、00010、00100...）：

perl -spe 's/TRANSID\K000/sprintf "%05d", $n++/e' -- -n=66 < your-file

Question 2

私はこのawkスクリプトがそれをしなければならないと思います。最も簡単な設定なので、スクリプト内ですべての操作を行います。ただし、nextcounterをシェル変数として扱う他の方法を詳しく見てください。

BEGIN
    { getline counter < "nextcounter"; }
/TRANSID000/
    {
      replacement_string = sprintf("TRAN%05d", counter++);
      gsub("TRANSID000", replacement_string);
      print;
    }
END
    { printf("%d\n", counter) > "nextcounter"; }

次のような1行のコードで呼び出すことができます。

cat data | awk -- 'BEGIN { getline counter < "nextcounter"; } /TRANSID000/{ replacement_string = sprintf("TRAN%05d", counter++); gsub("TRANSID000", replacement_string); print; } END { printf("%d\n", counter) > "nextcounter"; }'

注：

TRAN000066OPでは、最初はIEのように合計6桁の文字列が欲しいと言いましたが、出力例にはTRAN00066IEと同じ5桁の文字列があります。例の出力に従ったが6桁の精度が必要な場合は、文字列を変更するだけですTRAN%05d。TRAN%06d
あなたの説明によると、nextcounterファイルから取得した番号が交換に使用される最初の番号のようです。代わりに数字を最初に増やすには、次のcounter++ように変更します。++counter
私の考えでは、nextcounter このファイルは1行と1つの整数しかないファイルのようです。そうでない場合は、スクリプトのBEGIN 部分ENDを変更する必要があります。

あなたが好むならいいえawkスクリプトがnextcounterファイルを直接更新し、これらのnextcounter値をシェル変数として扱うには、一時ファイルを使用して更新されたカウンタを保存するより複雑な設定が必要です。このような：

tempfile=$(mktemp) ; cat data | awk -v counter="${nextcounter:-0}" -v tempfile="${tempfile}" -- '/TRANSID000/{ replacement_string = sprintf("TRAN%05d", ++counter); gsub("TRANSID000", replacement_string) ; print; } END { printf("%d\n", counter) > tempfile; }' && read nextcounter < "${tempfile}" ; rm "${tempfile}"

故障説明：

tempfile=$(mktemp) \ # create temporary file
cat data | pipe data to awk ...
    awk -v counter="${nextcounter:-0}" -v tempfile="${tempfile}" -- \ # provide initial counter and tempfile to awk
    '/TRANSID000/ \
        { replacement_string = sprintf("TRAN%05d", ++counter); \
          gsub("TRANSID000", replacement_string) ; \
          print; \
        } \
     END \
        { printf("%d\n", counter) > tempfile; }' \ # write updated counter to temporary file
    && read nextcounter < "${tempfile}" \ # read updated counter into ${nextcounter} shell variable
rm "${tempfile}"

これは初期カウンタを取得し、${nextcounter}最後に同じ変数を更新します。

一時ファイルを生成できない場合は、名前付きパイプでファイル記述子を試してみることができますが、これにはBash v3以降が必要です。そして読み取り/書き込みモードでパイプを開くことができるシステム。 Linuxでは許可しますが、MacOSでは許可しません。これが他のUnix-esの場合かどうかはわかりません。

それは次のとおりです。

exec 9<> <(:) ; cat data | awk -v counter="${nextcounter:-0}" -- '/TRANSID000/{ replacement_string = sprintf("TRAN%05d", ++counter); gsub("TRANSID000", replacement_string); print; } END { printf("%d\n", counter) > "/dev/fd/9"; }' && read nextcounter <&9 ; exec 9<&-

分割：

exec 9<> <(:) # open fd 9 onto unnamed pipe R/W
cat data | \
    awk -v counter="${nextcounter:-0}" -- \
    '/TRANSID000/ \
         { replacement_string = sprintf("TRAN%05d", ++counter); \
           gsub("TRANSID000", replacement_string); \
           print; } \
      END \
         { printf("%d\n", counter) > "/dev/fd/9"; }' \ # write updated counter to fd 9
    && read nextcounter <&9 # read updated counter from fd 9 into ${nextcounter} shell variable
exec 9<&- # close fd 9

Answer