reemplazar campo en un archivo usando perl



   AUTOR PREGUNTA

Publicado 04 agosto 2014 - 02:25

¿En perl existe una manera de reemplazar un campo en particular en un archivo?


¿Tienes la misma pregunta? Yo también

 

Publicado 04 agosto 2014 - 03:42

Utiliza lo siguiente:

$ perl -pe 's/no:\d+/no:*****/' < archivo_entrada > archivo_salida

 

Publicado 04 agosto 2014 - 03:42

Utiliza cat:

cat input | perl -lne 's/^(.+)no:(\d+)(.*)/print"$1no:","*" x length($2),"$3"/e' > salida

 

Publicado 04 agosto 2014 - 03:43

Prueba con lo siguiente te debe funcionar:

perl -i.bak -pe 's/(?<=no:)\d+/****/' archivo

   AUTOR PREGUNTA

Publicado 04 agosto 2014 - 03:55

Gracias