Cómo truncar la segunda columna a la longitud dada

Entrada dada del formulario

XY981743    foobarlkasdf saflkas asfZR!sgfad asdSAD asdsadf SAdfasdf46lk lksad bar foolkasjfdrte

¿Cómo puedo truncar solo la segunda columna? El delimitador es TAB y la segunda columna debe tener como máximo 75 caracteres.

Si desea imprimir solo los primeros 75 caracteres de la segunda columna (incluidos los espacios y suponiendo que solo haya dos columnas en el archivo), puede hacer lo siguiente:

$ perl -pe 's/(\t.{75}).*/$1/' file
XY981743    foobarlkasdf saflkas asfZR!sgfad asdSAD asdsadf SAdfasdf46lk lksad bar fool

O con GNU sed:

$ sed 's/\(.*\t.\{75\}\).*/\1/' file
XY981743    foobarlkasdf saflkas asfZR!sgfad asdSAD asdsadf SAdfasdf46lk lksad bar fool

O:

$ sed -r 's/(.*\t.{75}).*/\1/' file
XY981743    foobarlkasdf saflkas asfZR!sgfad asdSAD asdsadf SAdfasdf46lk lksad bar fool

Alternativamente, puede usarlo fold, diciéndole que corte los primeros 91 caracteres (eso es 8 para el identificador y otros 8 para la pestaña), e imprimiendo solo la primera línea:

$ fold -w 91 file | head -n1
XY981743    foobarlkasdf saflkas asfZR!sgfad asdSAD asdsadf SAdfasdf46lk lksad bar fool

Si su archivo puede tener más de 2 columnas y solo desea truncar la segunda, puede hacerlo (que, como acabo de notar, es solo una nueva redacción de la respuesta de Stephen ):

$ awk -F"\t" -vOFS="\t" '{$2=substr($2,1,75)}1;' file
XY981743    foobarlkasdf saflkas asfZR!sgfad asdSAD asdsadf SAdfasdf46lk lksad bar fool

O (tenga en cuenta que esto se romperá si los primeros 75 caracteres de la segunda columna se pueden interpretar como una expresión regular):

$ perl -F"\t" -pale 's/$F[1]/substr($F[1],0,75)/e' file
XY981743    foobarlkasdf saflkas asfZR!sgfad asdSAD asdsadf SAdfasdf46lk lksad bar fool

Usando awk, divide el archivo usando pestañas y genera el primer campo completo y los primeros 75 caracteres (como máximo) del segundo:

awk -F "\t" 'BEGIN { OFS=FS }; { print $1, substr($2, 1, 75); }'

Como señaló fedorqui , puede manejar archivos con más de dos campos reemplazando los campos que necesita truncar:

awk -F "\t" 'BEGIN { OFS=FS }; { $2=substr($2, 1, 75); print }'

Puede aplicar el substra múltiples campos haciendo un bucle sobre ellos si es necesario.

Portable / POSIXly con sed:

tab=$(printf '\t')
sed "s/\($tab[^$tab]\{0,75\}\)[^$tab]*/\1/"

O para truncar cada columna:

sed "s/\([^$tab]\{75\}\)[^$tab]*/\1/g"

Si solo hay 2 columnas:

sed -r 's/^([^\t]*\t)(.{0,75}).*/\1\2/'

{0,75}significa seleccionar de 0 a 75 caracteres.
.* es la sección eliminada más allá de char 75.

Si hay 2 o más columnas:

sed -r 's/^([^\t]*\t)([^\t]{0,75})[^\t]*(.*)/\1\2\3/' file

[^\t]* es la sección eliminada más allá de char 75.