Discussion :

[mbajat]

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

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
#!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

[stoyak]

Je te conseille, pour l'ouverture de fichiers, d'écrire de la manière suivante:

Code :

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

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

[Invité]

Essaye en mettant:

Code :

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

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

Perl n'aime pas les espaces dans les chemins...

[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 :

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

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ï