Como no me dejaba dormir la idea de poder hacerlo con sed
, al final propongo una respuesta para realizar lo mismo.
Respuesta anterior
Con awk
se puede hacer de una manera muy concisa:
awk --field-separator=";" -v OFS=";" '{
split($2, campo2, "")
$2 = ""
for ( numero in campo2 )
$2 = sprintf( "%s%s", $2, (campo2[numero] + 1) % 10 )
print
}' archivo.txt
Actualización
Recientemente tomé un curso intensivo de sed
de la Universidad del Internet y de la Universidad de Leer el Manual. Y logré obtener lo mismo pero con el mero uso de sed
.
Antes de poner el código con la explicación incluida, creo que es necesario aclarar ciertos conceptos fundamentales:
- pattern space, es un buffer temporal de sed que recibe todos los caracteres y donde se hacen las modificaciones. Sólo se puede interactuar con lo que hay aquí
- hold space, es otro buffer temporal pero que puede almacenar ciertas cosas del pattern space. No se puede interactuar directamente con este buffer; sólo a través de mandar cosas de un buffer a otro. Lo que se encuentra dentro del hold space, se retiene entre ciclos: no cambia a menos que se le indique.
Para comunicar entre estos buffers se tienen los comandos h,H,g,G,x
. Que copian o añaden desde el hold space al pattern space, o viceverss, o sólo intercambian lo que hay en uno por lo que hay en otro.
Esto lo explicaría como si fuese el libro Molloy de Samuel Beckett, donde el vagabundo trata de chupar cada piedra que tiene, ayudándose únicamente de los bolsillos (buffers), de sus sacos.
Una vez diciendo esto, pongo el código que deberá ser guardado en un archivo como sed_file.sed
con permisos de ejecución dados por chmod u+x sed_file.sed
:
#!/bin/sed -rnf
# -r, para utilizar expresiones regulares extendidas
# -n, para no imprimir el pattern space por defecto
# -f, para indicar que este archivo sea tomado como un script de sed
h # Copiamos lo que se encuentra en pattern space al hold space
s/([^;]*?;)([[:digit:]]{4})(;.*$)/\2/ # Lo que se encuentra en el pattern space le dejamos,
#+ únicamente los cuatro números en el segundo campo,
#+ dejándo únicamente lo de la forma 1002, 2032, etc.
y/0123456789/1234567890/; # Ya teniendo sólo esos cuatro dígitos en el pattern space,
#+ transliteramos número por su sucesor. Es decir, hacemos
#+ un desplazamiento en uno: el 0 al 1, el 2 al 3, etc.
#| |
#|_____________________|
# |
# |_____ ¡Esto sigue estando en el pattern space!
# Es decir, tenemos (únicamente) números como "2121"
# que provienen de otros como "1010".
G # Al pattern space se le añade un salto de línea, seguido de lo que está
#+ el hold space (la cadena inicial que guardamos con el comando "h").
# Hasta aquí tenemos en el pattern space algo de la forma:
#
# <numerosaumentados>\n<la cadena inicial>
#
# Donde la cadena inicial es de la forma:
# <fecha>;<numeros anteriores>;<un dígito>
#
# Ahora tenemos que operar de tal manera que llevemos los números aumentados
#+ de la parte inicial, a en medio de <fecha> y <un dígito>
s/([[:digit:]]{4})\n([^;]*?;)([[:digit:]]{4})(;.*)/\2\1\4/
# |______________| |_______||______________||___| |_____|
# | | | | |
# | | | | |__ Modificamos la salida de la
# | | | | forma <fecha><numeros aumentados><un digito>
# | | | |
# | | | |__ Atrapamos el dígito en \4
# | | |
# | | |__ Atrapamos los números anteriores en \3
# | |
# | |
# | |__ Atrapamos la fecha en \2
# |
# |__ Atrapamos los números aumentados en \1
# Todo esto sucede en el pattern space.
p # Imprimimos el pattern space
O, sin comentarios:
#!/bin/sed -rnf
h
s/([^;]*?;)([[:digit:]]{4})(;.*$)/\2/
y/0123456789/1234567890/
G
s/([[:digit:]]{4})\n([^;]*?;)([[:digit:]]{4})(;.*)/\2\1\4/
p
Entonces corremos:
$ ./sed_file.sed numeros.txt
2020-01-30;2121;1
2020-01-30;2261;2
2020-02-03;2201;3