Perl

Suppression de fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Suppression de fichier

coolkis

Bonjour,

Je voudrais supprimer l'ensemble des fichiers d'un répertoire sauf certains type de fichier !

Exemple tous les fichiers de type "*.pl*" et certains fichiers passés en paramètre.

Le script ci-dessous fait presque le travail sauf qu'il supprime quand même les fichier ".pl".
Je suppose que cela se passe dans le if. Je ne sais pas comment exclure l'ensemble de mon tableau "@fic1".

Code :

my $TMP_DIR = 'C:\Users\Downloads';
File::Find::find(\&search, ($TMP_DIR));
sub search {
@fic1 = glob('*.pl');
my $fic2 = 'fichier1.log';
my $fic3 = 'fichier2.log';
if( $_ ne @fic1 && $_ ne $fic2 && $_ ne $fic3 ) {
unlink $_;
}
}

Quelqu'un peut-il m'aider svp ?
Merci.

Publicité

gilou

Modérateur
Modosaurus Rex

$_ ne @fic1 ça marche pas pour ce que tu veux faire.

En début de search, il suffit de faire
return if /\.pl\z/;

donc
sub search {
# return if -d; si besoin est
return if /\.pl$/o;
return if /^fichier[12].log$/o;
unlink;
}
devrait coller.

A+,

Message édité par gilou le 28-01-2015 à 11:48:59

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

coolkis

Merci, ça fonctionne très bien.

Par contre est-il possible de mettre les variables à la place des noms des fichiers dans le "return if" ?

gilou

Modérateur
Modosaurus Rex

Oui, une regexp peut contenir des variables, mais si leur valeur varie au cours du programme, il faut supprimer le o final de /.../o;

A+,

Message édité par gilou le 28-01-2015 à 13:54:22

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

coolkis

Merci beaucoup.

FORUM HardWare.fr

Programmation

Perl

Suppression de fichier

Sujets relatifs
Suppression d'un fichier en lecture seule	Ecriture et suppression dans un fichier
Suppression d'un fichier sur le réseau par commande dos	suppression de lignes dans un fichier
Script pour suppression auto fichier de log	Suppression fichier Filesonic
Suppression fichier	Suppression du fichier desktop.htt par VBS
suppression structure dans fichier	Suppression d'ancien fichier en PERL
Plus de sujets relatifs à : Suppression de fichier

Page générée en 0.046 secondes