Mouvement de Fichier

Mouvement de Fichier - Perl - Programmation

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 :
  1. use Cwd;
  2. 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 :
  1. eval { $Result = system ("move", "/Y", $Fichier, $Repertoire_Dest); };
  2. 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 :
  1. use strict;
  2. use Cwd;
  3. use File::Copy;
  4. my $Fichier ="test.txt";
  5. my $Repertoire_Courant = cwd();
  6. my $Repertoire_Dest = $Repertoire_Courant . "\\" . "Reste";
  7. my $Result =0;  # QUESTION : A QUOI SERT RESULT ???
  8. # $Result = system ("move", "/Y", $Fichier, $Repertoire_Dest);
  9. 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 ? :D


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

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed