Discussion :

[djibril]

Bonjour,

Voici un petit tutoriel : Comment renommer, copier ou déplacer un fichier proprement ?

À vos commentaires !

[dmganges]

Bonjour djibril,
Dans le tuto

Tu précises :
Dans I. Renommer un fichier
Dans ce cas, la solution consiste à ne pas utiliser cette fonction, mais plutôt la fonction move disponible

Hors tu utilises copy :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

copy($fichier, $fichier_destination) or die "Copy failed: $!";

Idem dans II. Copier un fichier

C'est normal ou bien y a-t-il quelque chose qui m'échappe ?

[Lolo78]

Très intéressant, certaines subtilités m'étaient inconnues. Comme nous utilisons généralement un script shell comme lanceur pour nos programmes Perl, nous utilisons souvent les fonctions du shell (cp, mv, etc.) pour copier ou déplacer nos fichiers; du coup, je ne m'étais pas trop posé de questions sur les façons de faire en Perl.

Je pense comme Dmganges que tu as dû t'emmêler les pinceaux entre move et copy.

[dmganges]

Je pense comme Dmganges que tu as dû t'emmêler les pinceaux entre move et copy.

Bon je ne suis pas le seul, ça me rassure, je commençais à m'en prendre à Alzheimer, le pôvre

Bon le résumé est très clair

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
III. Déplacer un fichier

Pour déplacer un fichier en Perl, vous avez au moins trois solutions :

    rename (fonction de Perl). Attention à la remarque ci-dessus ;
    move (issu de File::Copy), mais vous perdrez les droits sur le fichier comme vu ci-dessus ;
    mv (issu de File::Copy), avec les permissions préservées sur le fichier.

Mais pas sûr que je ne me fasse pas avoir
En tous cas

[djibril]

En effet, c'est plutôt move. C'est corrigé !

[Lolo78]

Salut Djibril,

A mon humble avis, tu n'as corrigé qu'une partie du problème.

Dans la partie II. Copier un fichier, tu as encore:

Pour copier un fichier en Perl, il n'existe pas de fonction interne à Perl. Vous devez utiliser la fonction move du module File::Copy. Pas besoin d'installer ce module, il est déjà présent dans le core de Perl.

Je pense que c'est de la fonction "copy" du module File::Copy dont tu veux parler, ce qui est confirmé par ton exemple de code.

Je plussoie également ton post, naturellement;

Amicalement et bonne soirée.

[djibril]