perl - Encuentra el número y elimina los caracteres adyacentes igual a este número

unix sed

Question

Parte de mi salida de 4 columnas se ve así:

5 cc1kcc1kc 5 cc1kcc1kc
5 cc2ppggg 5 cc2ppggg
6 ccg12qqqqqqqqqqqqggg 10 ccccg11qqqqqqqqqqqggggg
3 4qqqqcgc1q 12 cgccgccgccgc

Solo quiero que cambien las columnas segunda y cuarta, ¿hay alguna manera con awk / sed para eliminar los números con los personajes que están a su lado? ¿O sería más fácil / mejor usar un script de Perl para realizar esta transformación?

El resultado resultante debería verse así:

5 ccccc 5 ccccc
5 ccggg 5 ccggg
6 ccgggg 10 ccccgggggg
3 cgc 12 cgccgccgccgc

Answer 1

Con perl :

perl -pe ''s//d+([^/d/s])/1*//g''

Answer 2

Tomando la pregunta literalmente, esto elimina los siguientes n caracteres de los campos 2 y 4 para cualquier n incrustado en el campo.

perl -lane ''for $i (1, 3) {@nums = $F[$i] =~ /(/d+)/g; for $num (@nums) {$F[$i] =~ s/$num.{$num}//}}; print join("/t", @F)''

Las otras respuestas eliminan el número y todos los personajes que siguen son iguales.

Para ilustrar la diferencia entre mi respuesta y las demás, use la siguiente entrada:

6 ccg8qqqqqqqqqqqqggg 10 ccccg3qqqqqqqqqqqggggg

Mi versión muestra esto:

6 ccgqqqqggg 10 ccccgqqqqqqqqggggg

mientras que el suyo produce esto:

6 ccgggg 10 ccccgggggg

Answer 3

Esto podría funcionar para usted (GNU sed):

sed ''h;s//S*/s*/(/S*/).*//1/;:a;s/[^0-9]*/([0-9]/+/).*/sed "s|/1.//{/1//}||" <<<"&"/e;ta;H;g;//n.*/n/bb;s//(/S*/s*/)/{3/}/(/S*/).*//2/;ba;:b;s/^/(/S*/s*/)/(/S*/)/([^/n]*/)/n/(/S*/)//1/4/3/;s//(/S*/s*/)/n/(.*/)//2/'' file

Answer 4

Con sed:

sed ''s/[0-9]/+/([a-z]/)/1*//g''

El partido encuentra cualquier cadena de dígitos ( [0-9]+ ) seguido de cualquier letra ( [az] ). El /1* coincide con cualquier aparición posterior de ese carácter. El modificador /g (global) se asegura de que el reemplazo se realice más de una vez por línea.