Discussion :

[nono1782]

Bonjour, ma question est peut-être conne, mais j aurais savoir si il existe une méthode pour obtenir le chemin absolue d un fichier.

Voici le prob, je suis dans mon répertoire courant, j ai un lien vers ../../../mon_fichier, j aimerais avoir le chemin absolue de ce fichier.

Merci

[nyal]

Bonjour,

Bonjour, ma question est peut-être conne, mais j aurais savoir si il existe une méthode pour obtenir le chemin absolue d un fichier.

Voici le prob, je suis dans mon répertoire courant, j ai un lien vers ../../../mon_fichier, j aimerais avoir le chemin absolue de ce fichier.

Merci

Voici une methode qui vaut ce qu'elle vaut:

Code :

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

1
2
3
4
5
6
7
8
9
 
#!/usr/bin/perl                                                                                                                                
 
use POSIX;
my $old_path = getcwd();
chdir("..");
print getcwd() . "\n";
chdir($old_path);
print getcwd() . "\n"

[Choupi]

Quel est ton OS ?

si tu ne cherches pas la portabilité, sous windows tu peux faire ça:

Code :

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

1
2
3
4
use Win32::File;
$file = "script.pl";
$dir = Win32::GetFullPathName($file) || die $!;
print "fichier : $file et chemin absolu : $dir";

[Jedai]

Et si tu cherches la portabilité, tu devrais utiliser le module Cwd, après tout il est dans le Core de Perl :

Code :

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

1
2
3
4
 
use Cwd qw/ abs_path /;
 
print abs_path( '../../../fichier' );

--
Jedaï

[nono1782]

Ok merci, je venais juste de trouver la méthode abs_path.