date de modification fichiers et net::ftp
Salut ... il est tard.
j'ai découvert avec bonheur le module net ftp de perl qui me sert à uploader des fichiers
à vrai dire je me suis pas trop embêté et j'ai adapté un peu le code de Laurent, qui se trouve sur cette page à mes besoins
http://laurent-rosenfeld.developpez....dre-superieur/
donc voilà ce que ça donne (une partie du code)
Code:
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
| ##########inclusion
sub imprime_fichier {
my $fichier = shift;
print $fichier, "\n";
$ftp->put($fichier);
}
my $code_ref = \&imprime_fichier; # crée une référence sur la fonction
sub parcours_dir {
my ($code_ref, $path) = @_;
my @dir_entries = glob("$path/*");
foreach my $entry (@dir_entries) {
$code_ref->($entry) if -f $entry;
#ici je ne veux pas de la recursivité pour l'instant (trop compliqué à gerer rapidement)
# parcours_dir($code_ref, $entry) if -d $entry;
}
}
#fin inclusion
#article
$ftp->cwd($pub_articles)
or die sprintf "je ne peux aller dans pub_articles: %s", $ftp->message;
my $dir_depart = $articles;
parcours_dir($code_ref, $dir_depart);
print $ftp->ls;
sleep 3;
$ftp->cdup( )
or die sprintf "je ne peux retourner à pub: %s", $ftp->message;
print $ftp->pwd( );
#fin article |
ce que je voudrais maintenant, c'est modifier la fonction imprime_fichier pour ne transmettre le fichier que si sa date de modification est récente
mais je ne sais pas comment le faire, disons, le plus simplement possible.
bonne nuit ...
