Discussion :

[KorTeX22]

Bonjour,

j'ai besoin d'aide sur un problème simpliste. Il me semble qu'il existe une fonction permettant de récupérer le chemin d'un fichier mais pas moyen de mettre la main dessus.

Ex :

fonc(a/b/c/file) me retourne a/b/c

Merci de votre aide

[Arioch]

Heu,

si tu connais déjà le chemin, tu peux passer le chemin complet répertoire+fichier dans une regexp ?

[Jedai]

Il faut utiliser File::Spec, il est possible de programmer ça rapidement à la main, mais l'avantage de File::Spec c'est qu'ainsi ton programme est complètement portable :

Code :

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict; use warnings;
 
use File::Spec::Functions qw(splitpath catpath);
my $filepath = "C:/something/file.ext";
my ($vol, $path, $file) = splitpath( $filepath );
 
print $vol, "##", $path, "##", $file, "\n";
print catpath( $vol, $path ), "##", $file, "\n";

Tu peux également utiliser File::Basename, mais File::Spec est sans doute plus portable, tout dépend de tes besoins.

--
Jedaï

[tiboo]

on peut aussi utiliser

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/bin/perl
use strict; 
 
use File::Basename;
 
my $fullpath = "C:/Truc/file.ext";
 
my $file = basename($fullpath);
my $path = dirname($fullpath);
 
ou alors 
 
my($filename, $directories, $suffix) = fileparse($fullpath, @suffixes);