com awk
:
awk '{ $0 = substr($1, 0, $2) } 1' file.txt
Com o GNU sed
:
sed -r 's/.* ([0-9]+).*/s!^(.{}).*!\1!/' file.txt | \
cat -n | \
sed -r -f - file.txt
(GNU sed
porque pode ler arquivos de script de stdin
).
com perl
:
perl -lpe 's/.*?([ACTG]+)\s+(\d+).*/ substr($1, 0, $2)/e' file.txt
Outra maneira com perl
:
perl -lape '$_ = substr($F[0], 0, $F[1])' file.txt