Skip to main content
2 de 2
Commonmark migration

La respuesta de Cuauhtli está muy bien y resuelve el problema correctamente.

Simplemente como referencia y para utilizar otras potencialidades de GNU Awk, veamos cómo hacerlo de otra manera:

gawk -F '' '{for(i=1;i<NF;i++) printf "%s", (i>=12 && i<=15) ? ($i+1)%10: $i; print $NF}'

En GNU Awk es posible definir el separador de campos como la "nada". Con ello, cada carácter es un campo diferente. Esto se hace indicando -F ''.

De esta manera por ejemplo podemos decir:

$ awk -F '' '{for(i=1;i<=NF;i++) print $i}' <<< "hola"
h
o
l
a

Una vez aprendido esto, ahora es simplemente cuestión de iterar sobre la cadena y modificar los caracteres que hay en la posición 12 a 15, utilizando la lógica de la respuesta de Cuauhtli:

for(i=1;i<NF;i++) 
   printf "%s", (i>=12 && i<=15) ? ($i+1)%10: $i
print $NF

Es decir, itera sobre todos los caracteres e imprime el carácter en sí ($i) a menos que esté en la posición 12 a 15, en cuyo caso imprimimos ($i+1)%10. Esta decisión la tomamos mediante el operador ternario condición ? reacción_si_cierto : reacción_si_falso.

Finalmente ponemos print $NF para escribir el último campo y que vaya seguido de un salto de línea, porque printf no los añade automáticamente y print sí.

fedorqui
  • 16.7k
  • 24
  • 71
  • 134