Usando perl
:
perl -pe 's/^(\w*)\t\t/$1\t/' <your_input_file>
Adicione a opção -i
para substituir in-line
perl -i -pe 's/^(\w*)\t\t/$1\t/' <your_input_file>
Para substituir todos os \t\t
, não apenas entre a primeira e a segunda colunas, use
perl -i -pe 's/\t\t/\t/' foo
ou para substituir todos os \t
por uma contagem maior que 1
perl -i -pe 's/\t{2,}/\t/g' foo
Exemplo
$ printf "%s\t\t%s %s\n" "foo" "bar" "foobar" > foo
$ perl -i -pe 's/^(\w*)\t\t/$1\t/' foo
$ cat foo
foo bar foobar
ou com o seu exemplo:
$ printf "%s\t\t%s %s %s\n" "ROW1" "t1" "t2" "t3" > foo
$ perl -i -pe 's/^(\w*)\t\t/$1\t/' foo
$ cat foo
ROW1 t1 t2 t3