• # et perl ?

    Posté par . En réponse au message comment effacer tous les fichiers sauf un. Évalué à 2.

    en general, je vide un dossier tres rapidement avec :

    perl -e ' unlink $_ for <*.ext>'

    dans ton cas, je ferai un truc dans le genre :

    perl -e ' for my $file ( <*> ) { unlink $file unless grep { $_ eq $file } qw( toto.txt tata.txt tu.txt ); }'

    cela efface tous les fichiers du dossier courant sauf toto.txt tata.txt et tu.txt .