Discussion :

[tyrax]

Bonjour,

je débute en perl et j'ai besoin de créer un script qui à l'aide d'un fichier texte de ce type :

chemin,nb_de_jours

ex:
c:\a\b\c,5

supprimerai les fichiers de c:\a\b\c qui n'aurait pas été modifiées depuis 5 jours...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;
use File::Spec;
use File::stat;
 
 
 
my $nomfichier='listFolder.txt00';
my $var;
my $var2;
my $createdtime;
 
 
####### lecture des infos du fichier####
########################################
print "\n\nFichier de reference : ",$nomfichier,"\n";
 
open (FH,"<$nomfichier") or die print "Erreur ouverture fichier " . $nomfichier . "\n";
while ($var=<FH>)
{
if ($var =~/^([a-zA-Z0-9\\\:]+),([0-9])/)
	{
 
	####### affiche les infos des dossiers traités et depuis quel date il va nettoyer ######
 
	print "\n\nfiles in $1 created before this date will be delete : ";
	print scalar localtime(time - ($2 * 86400)),"\n\n";
 
		####### visite les repertoires ##############
		$var2=$1;
		$var2 =~ s/\\/\\\\/g; #double les \
 
		while (<$var2\\*>)
			{
			($createdtime) = (stat($_))[9];
			print "\n",$createdtime;
			#if ($createdtime lt time)
			#	{
			#	print "\nok";
			#	}
			}
 
	}
}
close FH;

et en sorti j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
D:\Profiles\tr\Desktop\scripts>perl t.pl
 
 
Fichier de reference : listFolder.txt
 
 
files in D:\PROFILES\tr\Desktop\scripts\folder1 created before
 this date will be delete : Tue May 16 10:35:34 2006
 
 
Use of uninitialized value in print at t.pl line 38, <FH> line 1.
 
Use of uninitialized value in print at t.pl line 38, <FH> line 1.
 
 
files in D:\PROFILES\tr\Desktop\scripts\folder3 created before
 this date will be delete : Fri May 12 10:35:34 2006
 
 
Use of uninitialized value in print at t.pl line 38, <FH> line 2.
 
Use of uninitialized value in print at t.pl line 38, <FH> line 2.

et là je sèche...

Merci

[Jedai]

Ton script est très peu lisible (évite tout particulière les variables nommées $var et $var2...) et assez fragile. Tu peux écrire ça plus proprement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
#!/usr/bin/perl
use strict;
use warnings;
use File::Spec;
 
my $list_to_rm_file = 'listFolder.txt00';
 
# Lecture des fichiers à supprimer à partir de
# $list_to_rm_file
print "\n\nFichier de référence : ",$list_to_rm_file,"\n";
 
open my $list_to_rm_handle , '<', $list_to_rm_file 
    or die "Erreur ouverture fichier $list_to_rm_file\n";
 
PATH_LOOP :
while ( my $line = <$list_to_rm_handle> ) {
    if ( my ($path, $days_count) = ($line =~ m/^\s*(.+),\s*(\d+)\s*$/x) ) {
 
        # affiche les infos des dossiers traités et 
        # avant quel date les fichiers seront supprimés
        print "\n\nLes fichiers dans $path créés avant "
                    . localtime(time - ($days_count * 86400))
                    . "seront supprimés\n\n";
 
 
        if ( opendir my $path_handle, $path ) {     
 
            while ( my $file_name = readdir $path_handle ) {
                my $path_file = File::Spec->catfile( $path, $file_name );
                my $days_since_modification = -M $path_file;
 
                print "$file_name : vieux de $days_since_modification jours. ";
                if ($days_since_modification >= $days_count) {
                    print "Supprimé !";
                    unlink $path_file;
                }
                print "\n";
 
            }
        }
        else {
            warn "N'arrive pas à ouvrir $path, passe à la ligne suivante\n";
        }
    }
}
close $list_to_rm_handle;

--
Jedaï

[tyrax]

Merci,

je sais bien que mon script n'était po très lisible, mais il a été fait "à l'arrache".. :s

je test ton script demain!

encore meci