Suppression de colonnes avec perl sur un fichier délimité par des tabulations

Question

Je tente d'enlever trois colonnes avec Perl sur un fichier tabulé.

fichier d'entrée:

A B C D 

attendu/nouveau fichier:

A B C 

j'ai vu dans d'autres question comment supprimer une seule colonne, l'être de réponse:

perl.exe -na -e "print qq{$F[3]\n}" < input 

Comment pourrais-je réécrire ceci pour enlever trois colonnes?

Merci

Answer 1

Est-ce travail pour vous:

perl.exe -na -e "print qq{@F[0..2]\n}" <input> newfile 

Answer 2

Utilisez perl dans awk-mode:

$ cat -T f1 
a^Ib^Ic^Id^Ie^If 
a^Ib^Ic^Id^Ie^If 
a^Ib^Ic^Id^Ie^If 

$ perl -F'\t' -lane 'print $F[0],"\t",$F[1],"\t",$F[2]' input 
a b c 
a b c 
a b c 

ou avec espaces:

$ perl -F'\t' -lane 'print qq{@F[0..2]}' input 
a b c 
a b c 
a b c 

ou imprime les trois premières colonnes, tab-s eparated dans awk

$ awk 'BEGIN{OFS="\t"}{print $1, $2, $3}' input 
a b c 
a b c 
a b c 

Answer 3

perl -lane "pop @F; print qq(@F)" input 

Answer 4

Voici une autre option (Perl v5.14 +):

perl -lne "print s/.+\K\s+\S$//r" inFile