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

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

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

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

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