Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Langage Perl Retrouver chemin absolu d'un fichier ?

Retrouver chemin absolu d'un fichier ?

6 réponses
Avatar
ctobini
Bonjour,

J'utilise la biblioth=E8que Win32::OLE (sous Win XP) pour r=E9cup=E9rer
des donn=E9es d'un fichier Excel.

Je souhaite que le script que j'=E9cris puisse accepter aussi bien un
nom de fichier qu'un chemin absolu. Apparement, il faudrait que je
convertisse =E9galement le chemin de type Perl en type OLE et que ce
soit un chemin abolu qui soit pass=E9 en argument =E0 l'objet OLE.

Je voudrais donc un petit renseignement :

- conna=EEtriez-vous un module Perl permettant de retrouver un chemin
absolu =E0 partir d'un fichier ?

En vous remerciant.

C=2E Tobini
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
damien guerin
exemple :

my $absolu = dirname($relatif)."".basename($relatif);
Avatar
ctobini
Bonjour Damien et merci de la réponse,


exemple :

my $absolu = dirname($relatif)."".basename($relatif);


J'ai essayé cette solution, mais il me semble que ce soit :

$racine = dirname($absolu) et $fichier = basename($absolu)

Je voudrais en fait récupérer pour un chemin ou fichier donné le
chemin absolu de ce fichier.

C. Tobini

Avatar
GERBIER Eric
ctobini wrote:
Bonjour Damien et merci de la réponse,



exemple :

my $absolu = dirname($relatif)."".basename($relatif);



J'ai essayé cette solution, mais il me semble que ce soit :

$racine = dirname($absolu) et $fichier = basename($absolu)

Je voudrais en fait récupérer pour un chemin ou fichier donné le
chemin absolu de ce fichier.

C. Tobini



pour cela tu as le module Cwd et sa fonction abs_path

(perldoc -m Cwd)


Avatar
damien guerin
Ah oui pardon,

Tu as la fonction rel2abs du module File::Spec
Avatar
Paul Gaborit
À (at) 6 Sep 2005 23:55:57 -0700,
"ctobini" écrivait (wrote):
Bonjour Damien et merci de la réponse,


exemple :

my $absolu = dirname($relatif)."".basename($relatif);


J'ai essayé cette solution, mais il me semble que ce soit :

$racine = dirname($absolu) et $fichier = basename($absolu)

Je voudrais en fait récupérer pour un chemin ou fichier donné le
chemin absolu de ce fichier.

C. Tobini


Vous avez un chemin relatif ($nom) et vous voulez son chemin absolu
($absolu). La question est :

« À quoi votre chemin relatif est-il relatif ? »

Si c'est au répertoire courant, alors le module Cwd devrait vous aider :

use Cwd 'abs_path';

...

my $absolu = abs_path($nom);


--
Paul Gaborit - <http://perso.enstimac.fr/~gaborit/>
Perl en français - <http://perl.enstimac.fr/>


Avatar
ctobini
Bonjour et merci pour ces infos, ça marche à merveille !

Bonne journée.

C. Tobini