Mouvement de Fichier

Marsh Posté le 10-07-2002 à 13:30:12

Salut,
bon j'ai un petit probléme alors si quelqu'un peut m'aider ça serait super !

Donc en Perl.

my $Fichier ="test.txt";
my $Repertoire_Courant =~ /.*\\(.*)$/;
my $Repertoire_Dest = $Repertoire_Courant . "\\" . "Reste"
my $Result =0;

#le repertoire Reste existe, le fichier TEST.txt existe
$Result = system ("move", "/Y", $Fichier, $Repertoire_Dest);

Et là rien du tout nada, ca me fait rien ... si quelqu'un aurait un exemple qui marche à me donner ça serait super sympa merci d'avance .....

Reply

Marsh Posté le 10-07-2002 à 13:30:12

Reply

Marsh Posté le 10-07-2002 à 15:11:06

2-3 petites choses :

Pour connaître le répertoire courant en Perl, utilise le module Cwd :

Code :

use Cwd;
my $RepCourant = cwd();

C'était juste pour info.

Pour la copie ou le déplacement de fichiers, le module File::Copy est très très utile.

Enfin, peut être que tu ferais mieux d'évaluer ta commande qui déplace le fichier du répertoire courant vers un autre répertoire :

Code :

eval { $Result = system ("move", "/Y", $Fichier, $Repertoire_Dest); };
die "oupssssssssss !!!" if $@;

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

Reply

Marsh Posté le 10-07-2002 à 15:33:57

Merci.
Où puis je trouver de la doc sur file::copy, s'il te plait.

Reply

Marsh Posté le 10-07-2002 à 15:34:18

version de ton prog' à tester, désolé je n'ai pas d'interpréteur Perl sous la main là :

Code :

use strict;
use Cwd;
use File::Copy;
my $Fichier ="test.txt";
my $Repertoire_Courant = cwd();
my $Repertoire_Dest = $Repertoire_Courant . "\\" . "Reste";
my $Result =0; # QUESTION : A QUOI SERT RESULT ???
# $Result = system ("move", "/Y", $Fichier, $Repertoire_Dest);
move("$Fichier","$Repertoire_Dest\/\/$Fichier" ) or die "erreur move : $!";

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

Reply

Marsh Posté le 10-07-2002 à 15:35:19

Vapo a écrit a écrit :

Merci.
Où puis je trouver de la doc sur file::copy, s'il te plait.

tu dois être sous unix, essaie perldoc, je sais pas trop

je bosse avec la version Windows de Perl (ActiveState), le module s'appelle File

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

Reply

Marsh Posté le 10-07-2002 à 15:36:25

Je te remercie Beaucoup !!!

Reply

Marsh Posté le 10-07-2002 à 15:40:15

Vapo a écrit a écrit :

Je te remercie Beaucoup !!!

de rien, j'adore Perl [:densaga]

enfin, fais un perl -e de mon script, pas de Perl sous la main, j'ai pitet' fait des fôtes ?

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

Reply

Marsh Posté le 10-07-2002 à 16:55:44

Ca marche nikel merci !!!

Reply

Mouvement de Fichier

Sujets relatifs:

Leave a Replay