OVH Cloud OVH Cloud

le dernier nom de fichier

6 réponses
Avatar
Frantz Dorsemaine
Bonjour a tous.

Voici un pbl que je n'arrive pas a résoudre.

J'utilie getopenfile dans Tk pour récupérer un nom de fichier n'importe ou
sur le dique, et ensuite je souhaite ne retenir que le nom du fichier sans
l'arboraicence.

ex: c:\1erDossier\2emeDossier\3emeDossier\monFichier
ou c:\1erDossier\2emeDossier\monFichier

je ne veux récuperer que 'monFichier'

Merci.

6 réponses

Avatar
Kevin
Salut,

if($chemin =~ /([^]+)$/)
{
print $1;
}


Kevin
Avatar
Nicolas George
Frantz Dorsemaine wrote in message
:
J'utilie getopenfile dans Tk pour récupérer un nom de fichier n'importe ou
sur le dique, et ensuite je souhaite ne retenir que le nom du fichier sans
l'arboraicence.


perldoc File::Basename

Avatar
kurtz_le_pirate
"Kevin" a écrit dans le message de news:

Salut,

if($chemin =~ /([^]+)$/)
{
print $1;
}


Kevin



tout les systèmes n'utilisent pas le backslash comme séparateur...

Avatar
perleen
bah dans ce cas
if($chemin =~ /([^/]+)$/) {
print $1;
}

voilà!!
Avatar
Nicolas George
"perleen" wrote in message
:
bah dans ce cas
if($chemin =~ /([^/]+)$/) {
print $1;
}


Certains systèmes acceptent les backslashs dans les noms de fichiers.

Avatar
Paul Gaborit
À (at) Tue, 6 Dec 2005 14:58:33 +0000 (UTC),
Nicolas George <nicolas$ écrivait (wrote):
"perleen" wrote in message
:
bah dans ce cas
if($chemin =~ /([^/]+)$/) {
print $1;
}


Certains systèmes acceptent les backslashs dans les noms de fichiers.


Et d'autres utilisent le ':' comme séparateur... ;-)

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