Skip to main content
se añadieron 4264 caracteres en el cuerpo
Origen Enlace
Cuauhtli
  • 8.4k
  • 1
  • 14
  • 26

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

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

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 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
cuerpo editado
Origen Enlace
Cuauhtli
  • 8.4k
  • 1
  • 14
  • 26
#!/bin/bash

#   Declaramos que el            Declaramos que el
#   delimitador sea el ";"       separador de salida (OFS)
#          |                     sea ";" para ahorrarnos
#          |                     la escritura de caracteres.
#          |                      |
#          |                      |
awk --field-separator=";" -v OFS=";" '{ 
    split($2, campo2, "") # Creamos el array "campo2"
                          # cuyo contenido son las letras
                          # del segundo campo.
    $2 = "" # Borramos el contenido del segundo campo
    for ( numero in campo2 )
        $2 = sprintf( "%s%s",
                        $2,
                        (campo2[numero] + 1) % 10 )
    print $0 # O simplemente print, porque por defecto
             # imprime a $0   
}' numeros.txt

Lo que hago con sprintsprintf es concatenar lo que tiene $2 con el módulo 10 del número mas 1. De esa forma me aseguro que se quede en el conjunto del {0...9}.

Sin los comentarios, el código queda:

awk --field-separator=";" -v OFS=";" '{ 
    split($2, campo2, "")
    $2 = ""
    for ( numero in campo2 )
        $2 = sprintf( "%s%s", $2, (campo2[numero] + 1) % 10 )
    print $0 # O simplemente print, porque por defecto
             # imprime a $0
}' archivo.txt
#!/bin/bash

#   Declaramos que el            Declaramos que el
#   delimitador sea el ";"       separador de salida (OFS)
#          |                     sea ";" para ahorrarnos
#          |                     la escritura de caracteres.
#          |                      |
#          |                      |
awk --field-separator=";" -v OFS=";" '{ 
    split($2, campo2, "") # Creamos el array "campo2"
                          # cuyo contenido son las letras
                          # del segundo campo.
    $2 = "" # Borramos el contenido del segundo campo
    for ( numero in campo2 )
        $2 = sprintf( "%s%s",
                        $2,
                        (campo2[numero] + 1) % 10 )
    print   
}' numeros.txt

Lo que hago con sprint es concatenar lo que tiene $2 con el módulo 10 del número mas 1. De esa forma me aseguro que se quede en el conjunto del {0...9}.

Sin los comentarios, el código queda:

awk --field-separator=";" -v OFS=";" '{ 
    split($2, campo2, "")
    $2 = ""
    for ( numero in campo2 )
        $2 = sprintf( "%s%s", $2, (campo2[numero] + 1) % 10 )
    print $0 # O simplemente print, porque por defecto
             # imprime a $0
}' archivo.txt
#!/bin/bash

#   Declaramos que el            Declaramos que el
#   delimitador sea el ";"       separador de salida (OFS)
#          |                     sea ";" para ahorrarnos
#          |                     la escritura de caracteres.
#          |                      |
#          |                      |
awk --field-separator=";" -v OFS=";" '{ 
    split($2, campo2, "") # Creamos el array "campo2"
                          # cuyo contenido son las letras
                          # del segundo campo.
    $2 = "" # Borramos el contenido del segundo campo
    for ( numero in campo2 )
        $2 = sprintf( "%s%s",
                        $2,
                        (campo2[numero] + 1) % 10 )
    print $0 # O simplemente print, porque por defecto
             # imprime a $0   
}' numeros.txt

Lo que hago con sprintf es concatenar lo que tiene $2 con el módulo 10 del número mas 1. De esa forma me aseguro que se quede en el conjunto del {0...9}.

Sin los comentarios el código queda:

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
se añadieron 344 caracteres en el cuerpo
Origen Enlace
Cuauhtli
  • 8.4k
  • 1
  • 14
  • 26
#!/bin/bash

#   Declaramos que el            Declaramos que el
#   delimitador sea el ";"       separador de salida (OFS)
#          |                     sea ";" para ahorrarnos
#          |                     la escritura de caracteres.
#          |                      |
#          |                      |
awk --field-separator=";" -v OFS=";" '{ 
    split($2, campo2, "") # Creamos el array "campo2"
                          # cuyo contenido son las letras
                          # del segundo campo.
    $2 = "" # Borramos el contenido del segundo campo
    for ( numero in campo2 )
        $2 = sprintf( "%s%s",
                        $2,
                        (campo2[numero] + 1) % 10 )
    print $0  
}' archivonumeros.txt
awk --field-separator=";" -v OFS=";" '{ 
    split($2, campo2, "") # Creamos el array "campo2"
                          # cuyo contenido son las letras
                          # del segundo campo.
    $2 = "" # Borramos el contenido del segundo campo
    for ( numero in campo2 )
        $2 = sprintf( "%s%s",
                        $2,
                        (campo2[numero] + 1) % 10 )
    print $0
}' archivo.txt
#!/bin/bash

#   Declaramos que el            Declaramos que el
#   delimitador sea el ";"       separador de salida (OFS)
#          |                     sea ";" para ahorrarnos
#          |                     la escritura de caracteres.
#          |                      |
#          |                      |
awk --field-separator=";" -v OFS=";" '{ 
    split($2, campo2, "") # Creamos el array "campo2"
                          # cuyo contenido son las letras
                          # del segundo campo.
    $2 = "" # Borramos el contenido del segundo campo
    for ( numero in campo2 )
        $2 = sprintf( "%s%s",
                        $2,
                        (campo2[numero] + 1) % 10 )
    print   
}' numeros.txt
Origen Enlace
Cuauhtli
  • 8.4k
  • 1
  • 14
  • 26
Loading