Discussion :

[paul fa]

Bonjour,

après avoir chercher dans la FAQ et sur le net, j'ai vu très peu d'information pour copier un simple fichier dans un simple répertoire.

j'ai utilisé le module File::Copy, mais l'ennui est qu'il copie dans le même répertoire; d'où un changement de nom pour le fichier

quel autre module, ou code puis je utiliser ?

merci

[djibril]

Bonjour,

après avoir chercher dans la FAQ et sur le net, j'ai vu très peu d'information pour copier un simple fichier dans un simple répertoire.

Tu n'as surement pas regardé les sources

j'ai utilisé le module File::Copy, mais l'ennui est qu'il copie dans le même répertoire; d'où un changement de nom pour le fichier

quel autre module, ou code puis je utiliser ?

merci

Euh non, tu peux copié dans un autre répertoire, sinon le module n'aurait strictement aucun intérêt .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;
my $fichier1 = "toto.txt";
my $fichier2 = "tutu.txt";
# Copie le fichier dans le même répertoire avec un nouveau nom
copy($fichier1,$fichier2);
 
# copie le fichier dans un autre répertoire avec un nom différent
copy($fichier1,'C:/tata.txt');
 
# copie le fichier dans un autre répertoire avec le même nom
copy($fichier1,'C:/');

[paul fa]

oui j'ai vu la fonction, elle marche bien, mais avec mon exemple elle bloque
encore
je veux copier que certain type de fichier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
use Archive::Extract;
my $DEST = "c://temp";
 
 foreach $fichlog (@Fichiers) {
      my(undef, undef, $ftype) = fileparse($fichlog,qr{\..*});
 
      # Compare l'extension du fichier. 
       if ($ftype eq ".log")    {
        copy($fichlog,'$DEST');         
        print "$fichlog ";        }
                                  }

[djibril]

Cette écriture est incorrect

Code :

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

copy($fichlog,'$DEST');

Le fait d'utiliser des simples quote '$DEST' empêche l'interpolation de la variable $DEST. Ainsi, Perl ne voit pas le contenu de $DEST, mais $DEST tout simplement.

Tu dois écrire :

Code :

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

copy($fichlog,$DEST);

ou

Code :

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

copy($fichlog,"$DEST");

De plus, tu n'as pas besoin de mettre 2 slash.

Code :

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

$DEST = 'C:/temp';

suffit largement, ce qui donne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
use Archive::Extract;
my $DEST = "c:/temp";
 
foreach $fichlog (@Fichiers) {
      my(undef, undef, $ftype) = fileparse($fichlog,qr{\..*});
 
      # Compare l'extension du fichier. 
      if ($ftype eq ".log")    {
        copy($fichlog,$DEST);         
        print "$fichlog ";       
      }
}

[paul fa]

c'est ca merci !

[djibril]

Pense à mettre ton post en résolu si c'est OK.

Merci