awk substitui o valor da coluna por valores de incremento se o comprimento for igual

$ awk -v n=12000 'length($2)==4 {$2=++n} {print}' file
d101 11001
e101 12001
f101 12002
d102 11002
e102 11003
f102 11004
g102 11005

Observe que primeiro incrementamos ne depois atribuímos, para usar o novo valor. Se quiséssemos começar a imprimir 12000, usaríamos: $2=n++, primeiro atribuir e depois aumentar.

Usando Raku (anteriormente conhecido como Perl6)

raku -ne 'state $i; print .words[0]~" "; put S/^ \d**4 $/{++$i + 12000}/ given .words[1];' 

Resumidamente, o raku é chamado na linha de comando com os -nesinalizadores (em linha, sem impressão automática). Uma statevariável é declarada (uma vez e apenas uma vez), para incrementar dentro do código. Na segunda instrução, a .words[0]primeira 'palavra' separada por espaços em branco (ou seja, coluna) é printedseguida por um espaço em branco ~concatenado com til " "(para separar as colunas de saída). Na terceira instrução, o S///comando de substituição (big-S) procura \d**4exatamente 4 dígitos dentro given .words[1](a segunda coluna). Uma correspondência é substituída por {++$i + 12000}um valor calculado (curlies denotam blocos de código dentro de regexes) e retornado (porque S///a substituição de big-S retorna a string modificada).

Entrada de amostra:

d101 11001
e101 9665
f101 9663
d102 11002
e102 11003
f102 11004
g102 11005

Saída de amostra:

d101 11001
e101 12001
f101 12002
d102 11002
e102 11003
f102 11004
g102 11005

https://raku.org