Perl

Mouvement de Fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Mouvement de Fichier

vapo

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

Publicité

Aricoh

gentil mais fo po pousser

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

vapo

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

Aricoh

gentil mais fo po pousser

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

Aricoh

gentil mais fo po pousser

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

vapo

Je te remercie Beaucoup !!!

Aricoh

gentil mais fo po pousser

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

vapo

Ca marche nikel merci !!!

FORUM HardWare.fr

Programmation

Perl

Mouvement de Fichier

Sujets relatifs
écriture dans un fichier	Comment ca marche ca??? .htaccess (C un fichier texte?)
[ColdFusion] Ecrire un fichier sur la machine locale et pas sur server	[C++] Utilisation d'un fichier .ini
executer un fichier .Bat dans tcl/tk	Accès à un fichier sur une autre machine
[CVS] générer un fichier CVS	[php] upload de fichier + envoie de formulaire
toujours mon problème d'écriture dans un fichier	JAVA servlets : envoyer un fichier à télécharger ????
Plus de sujets relatifs à : Mouvement de Fichier

Page générée en 0.040 secondes