{{tag>Brouillon Perl Programmation Encodage}}

= Perl one-liners

== Supprimer tous les caractères non-imprimables (sauf les \n)

<code bash>
perl -lpe 's/[[:^print:]]+//g' fichier.txt
</code>

== Enlever toutes les lignes en double (doublon)

<code bash>
perl -ne 'print unless $a{$_}++' fichier.txt
</code>

== Afficher les lignes en double préfixés par leur numéro de ligne
<code bash>
perl -ne 'print "$. $_" if $a{$_}++' fichier.txt
</code>