pb execution script pl directory program files

Version imprimable

Bonjour,
Quand j'execute ce script pl j'ai ce message en retour :

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
#!c:\\perl\\bin\\perl
## Script d'import/export vers test.net
 
use Archive::Tar;
use Win32;
use File::Copy;
use Time::Local;
 
my $dest_dir="D:\\Program Files\\test.net\\website\\fichiers";
my $ifacedir="D:\\Program Files\\test.net\\website";
my $arch_file;
my $time=localtime (time);
my @t=localtime (time);
my $day=$t[3];
my $month=$t[4]+1;
my $year=$t[5]+1900;
my $log="D:\\Program Files\\test.net\\scripts\\logs\\mgnet-$day.$month.$year.log";
 
open (LOG,">>$log");
 
print LOG "### Debut : $time\n";
 
### On verifie la presence du fichier transfert
print LOG "\nRecherche du/des fichiers \"transfert\"\n";
sort my @transfiles=<$dest_dir\\transfert*.tar>;
my $nfiles=@transfiles;
 
if ( $nfiles eq 0 ) {
	print LOG "**** -> Aucun fichier transfert\n"; }
elsif ( $nfiles gt 1 ) {
	print LOG "\tATTENTION : il y a $nfiles fichiers a integrer\n"; }
 
foreach  ( @transfiles ) {
	$arch_file=$_;
	print LOG "Traitement de : $arch_file\n";
 
	my $tar=Archive::Tar->new();
 
	### On lit l'archive en memoire
	### le param 1 signifie que l'archive est compressee
	$tar->read($arch_file,1) or print LOG "Archive $arch_file corrompue\n" and exit 2;
 
	my @files=$tar->list_files();

J'ai ce message d'erreur :
D:\Program Files\magellan.net\scripts>mgnet.pl
Could not create filehandle for 'D:./Program': No such file or directory! at D:\
Program Files\magellan.net\scripts\mgnet.pl line 41

Je pense qu'il y a un problèmes au niveau des chemin avec program files mais je ne trouve pas.
Merci pour votre aide

09/01/2009, 20h05
stoyak
Je te conseille, pour l'ouverture de fichiers, d'écrire de la manière suivante:
Code:

1 2 open (LOG,">>$log") || die "Impossible d'ecrire dans le fichier $log\n";
et n'oublie pas d'utiliser la balise # pour rendre ton code plus lisible. Cela favorisera les réponses
10/01/2009, 09h06
Invité

Essaye en mettant:

Code:

my $dest_dir='D:/Program Files/test.net/website/fichiers';

Perl n'aime pas les espaces dans les chemins...
10/01/2009, 14h21
Jedai
A l'avenir utilise la balise CODE (bouton # de l'interface du forum) pour rendre ton code lisible.

Il serait sympathique de nous donner quelques indices, comme par exemple ce qu'est la ligne 41...

Par ailleurs ton code a quelques manques dangereux, par exemple tu n'utilises pas les pragma "strict" et "warnings" qui t'éviteront les erreurs et des bugs simples. Ton code d'ouverture de fichier est relativement imprudent également, et je pense que c'est l'une des raisons de ton problème, je te conseille plutôt d'utiliser :
Code:

1 2 3 4 my $log="D:/Program Files/test.net/scripts/logs/mgnet-$day.$month.$year.log"; open my($log_file), '>>', $log or die "Can't open $log : $!\n";
--
Jedaï