{{tag>Brouillon Perl Programmation Encodage}} # Perl one-liners ## Supprimer tous les caractères non-imprimables (sauf les \n) ~~~bash perl -lpe 's/[[:^print:]]+//g' fichier.txt ~~~ ## Enlever toutes les lignes en double (doublon) ~~~bash perl -ne 'print unless $a{$_}++' fichier.txt ~~~ ## Afficher les lignes en double préfixés par leur numéro de ligne ~~~bash perl -ne 'print "$. $_" if $a{$_}++' fichier.txt ~~~