Problème Date de création lors d'une copie
Bonjour à tous,
Je vous explique mon problème, lors d'une copie du ftp à ma machine, je perds la date de création des fichiers sur le ftp. Logique me direz vous mais je n'ai pas encore trouvé le moyen de la conserver. Peut être faudrait il la stocker avant la copie puis la remettre sur les fichiers une fois copié, mais je n'ai pas trouvé comment procéder. La commande utime peut être mais je ne sais pas trop comment mettre ça en place.
Si vous avez une idée ou une solution à me proposer, merci par avance.
Voilà le bout de code pour le moment :
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
| use Net::FTP;
use File::Copy ;
chdir("C:\\PABX\\TAX_TICKET_SRC");
$ftp = Net::FTP->new("IP", Debug => 0)
or die "Cannot connect to ip: $@";
$ftp->login("login",'pass')
or die "Cannot login ", $ftp->message;
$ftp->binary;
$ftp->cwd("/usr4/account")
or die "Cannot change working directory ", $ftp->message;
@files=$ftp->ls ("T*.DAT") or print "Cannot get file listing\n";
foreach $FILE (@files) {
chomp $FILE;
($NAME_FILE,$REST) = split (/\./,$FILE,2);
if (!(-e $FILE ))
{
$ftp->get($FILE);
}
}
$ftp->quit; |
Merci, à bientôt
