如何使用sed/awk/perl从特定列中删除n个字符

 awk  '{ $4 = substr($4, 8); print }'

perl -anE'$F[3] =~ s/.{7}//; say join "\t", @F' data.txt

要么

perl -anE'substr $F[3],0,7,""; say join "\t", @F' data.txt