Discussion :

[grego..]

Bonjour,

J'ai lu très attentivement la FAQ, néanmoins j'ai encore un blocage

je souhaite utiliser ce module : use File::Copy:: Recursiveqw(fcopy rcopy dircopy fmove rmove dirmove);

j'ai installé ppm et cgi

j'ai installé le module par : ppm > install File-Copy-Recursive, OK

Mais quand je lance le prog, j'ai :

Can't locate file/copy/.pm in @INC

et la je comprend plus rien, une aide serait vraiment la bienvenue

merci à tous

Windows XP, Active perl, v 5.8.3

Code :

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

1
2
3
4
use File::Copy:: Recursiveqw(fcopy rcopy dircopy fmove rmove dirmove);
my $repertoire1 = "$SYSLOG_DIR";
my $repertoire2 = "$SYSLOG_SAVE";
dircopy($repertoire1,$repertoire2) or die("Impossible de copier $repertoire1 $!");

[djibril]

C'est

Code :

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

use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove);

Problème d'espaces.

[grego..]

merci de ta réponse très rapide

si tu as encore un peu de patience, sauras tu pourquoi le prog du haut ne marche pas. celui du bas oui

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
#!/usr/local/bin/perl
 
$aa="C:\\a";
$bb="C:\\b";
 
&sauver;
sub sauver
{
 
use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove);
my $repertoire1 = "$aa";
my $repertoire2 = "$bb";
dircopy($repertoire1,$repertoire2) or die("Impossible de copier $repertoire1 $!");
 
}
 
#--------------------------------------------------------------------------------
 
 
&sauver;
sub sauver
{
 
use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove);
my $repertoire1 = "C:\\a";
my $repertoire2 = "C:\\b";
dircopy($repertoire1,$repertoire2) or die("Impossible de copier $repertoire1 $!");
 
}

[djibril]

Pensez à utiliser les balises codes la prochaine fois pour une meilleure lisibilité.
Merci

[djibril]

Quelques précisions.
Un programme Perl commence toujours avec ces lignes :

Code :

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

1
2
3
#!/usr/bin/perl
use warnings;
use strict;

Vous trouverez ensuite tout seul la réponse après les modifications.

[Philou67430]

Bizarre, chez moi, les deux semblent fonctionner, sans strict et warnings (bien qu'il est fortement recommandé de les utiliser).

[djibril]

Je pense qu'il ne nous a montré tout son code, qu'il y a des déclarations cachées, etc

[Philou67430]

Mmmm... un cachotier donc ...

[grego..]

oui c'est vrais mais le code serait un peu long pour tout montrer

merci

résolu