Perl

Déplacement fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Déplacement fichier

coolkis

Bonjour,

J'aurais besoin de déplacer un fichier.
j'ai le petit bout de code ci-dessous qui est censé le faire mais rien ne se passe !

Code :

#!/usr/bin/perl
use strict;
use warnings;
use File::Copy qw/move/;
my $fichier = 'D:/temp/toto.txt';
my $destination = 'D:/temp/Archive/toto.txt';
move($fichier, $destination);

Je suis sur un environnement Windows ! Y a t'il une faute dans ma commande ?

Merci d'avance.

Publicité

slr56

Tout problème a sa solution.

Bonjour,

Je ne connais pas le Perl mais à mon avis, dans le chemin de destination, tu ne dois préciser que le dossier

Code :

(my $destination = 'D:/temp/Archive/';)

et non pas le chemin entier avec le fichier. (Avec ou sans slash à la fin.)

Message édité par slr56 le 29-01-2015 à 13:35:17

---------------
Configurations type du moment : https://forum.hardware.fr/hfr/Hardw [...] 1331_1.htm https://www.jouannetphotographe.com

coolkis

Merci slr56 pour ta réponse.
En fait j'ai résolu mon problème avec le code suivant :

Code :

#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;
my $fichier = '"D:\\temp\\toto.txt";
my $destination = "D:\\temp\\Archive";
move($fichier,$destination);

gilou

Modérateur
Modzilla

Sauf que la solution de slr56 est meilleure.
Ou a la limite
my $fichier = 'D:\temp\toto.txt';
my $destination = 'D:\temp\Archive';
Mais on n'utilise pas de " autour d'un nom de fichier en perl si le nom est constant. C'est une habitude à prendre.
A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

coolkis

Ok merci pour l'info.

Cependant est-il possible de déclarer des variables génériques ?
Je m'explique :

Je voudrais déclarer la variable $fichier du genre :

Code :

my $fichier = 'D:\temp\toto*.txt';

Tout simplement car par exemple le fichier peut-être de la forme toto.AAAA.MM.JJ.txt.

Est-ce que cela est possible en perl svp ?

coolkis

Il suffit de déclarer la variable comme ci-dessous:

Code :

my $fichier = glob('D:\temp\toto*.txt');

gilou

Modérateur
Modzilla

Non, ça marche pas ainsi:
D:\temp\toto*.txt c'est une expression régulière /D:\\temp\\toto.*\.txt/
donc tout dépend ensuite de ta manière de l'utiliser.

glob ça renvoie normalement une liste (qu'on assigne a une variable de liste), alors si tu as plus d'un fichier qui matche ton expression régulière, c'est mal barré, car avec une variable scalaire alors glob va te renvoyer le premier élément de la liste (et des appels suivants a glob sans paramètres renvoient les éléments de la liste, un a un).
Si tu es sur qu'il y a un seul fichier qui matche, ça marche en effet, mais compter la dessus, euh...

A+,

Message édité par gilou le 30-01-2015 à 12:17:06

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

coolkis

D'accord ! Donc quelle est la manière la plus efficace pour déclarer la variable stp ?

gilou

Modérateur
Modzilla

Comme je te l'ai dit, pour savoir si tu as besoin d'une liste (my @fichiers = glob('D:\temp\toto*.txt');) ou d'une regexp (my $fileregexp =qr/D:\\temp\\toto.*\.txt/;) ça dépend de ce que tu vas en faire.
A+,

Message édité par gilou le 30-01-2015 à 12:16:16

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

FORUM HardWare.fr

Programmation

Perl

Déplacement fichier

Sujets relatifs
renomer mon fichier excel a l ouverture par deux cellule	déplacement fichier sur lecteur réseau
Copie, déplacement, renommage de fichier, etc	[langage C] Exercice déplacement et renommer fichier
Problème de déplacement d'un fichier uploadé	Déplacement/copie de fichier dans un trigger SQL Server
Deplacement d'un fichier	déplacement fichier
[PHP] Déplacement de fichier	File.renameTo(File) et déplacement de fichier
Plus de sujets relatifs à : Déplacement fichier

Page générée en 0.080 secondes