Discussion :

[calimero2611]

Bonjour à tous !

Je ne suis pas très forte dans les expressions régulières !

Voilà à partir d'un chemin de fichier, je souhaiterais récupérer uniquement le nom du fichier sans son extension.

Par exemple pour le chemin : C:\Documents and Settings\Propriétaire\Mes documents\Corpus1\501.txt

Je voudrais récupérer uniquement le nom du fichier, soit '501'.

Est-ce que quelqu'un peut m'aider ? ;-)

Calimero2611

[2Eurocents]

Est-ce que quelqu'un peut m'aider ? ;-)

Oui, le module File::Basename par exemple

[calimero2611]

Merci mais je voudrais utiliser une expression régulière plutôt qu'un module...Car les module je ne sais pas trop m'en servir !

[stoyak]

ou avec une petite expression régulière:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
#!/usr/bin/perl -w
 
use strict;
use Carp;
 
my $filename = "C:/Documents and Settings/Propriétaire/Mes documents/Corpus1/501.txt";
my $espace_travail = "/Users/home/Documents/TEST/R1/toto.txt";
$filename =~ s/.*[\/\\](.*)\.txt/$1/;
$espace_travail =~ s/.*[\/\\](.*)\.txt/$1/;
print "$filename\n";
print "$espace_travail\n";

A toi de voir ensuite avec le type de fichier que tu veux récupérer, et donc des extensions de fichiers à mettre dans ton expression!
Teste ce code, et inspire-t-en!

[calimero2611]

C'est terrible !!!!! ça fonctionne !!!

MERCI BEAUCOUP Stoyak !

[Jedai]

Merci mais je voudrais utiliser une expression régulière plutôt qu'un module...Car les module je ne sais pas trop m'en servir !

Il faut apprendre, c'est très simple de se servir des modules (on ne parle pas ici d'en écrire, c'est un peu plus compliqué), et c'est l'abondance facilement accessible (grâce au CPAN ou à PPM) de ces modules qui fait une partie de la puissance de Perl.

D'autant qu'ici, File::Basename fait partie des modules du Core, donc il est déjà installé avec ton Perl, il suffit d'écrire au début du script :

Code :

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

1
2
 
use File::Basename;

puis pour récupérer le nom d'un fichier (sans son extension, qui doit matcher '\.[^.]*') à partir de son chemin tu n'as plus qu'à faire :

Code :

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

1
2
 
my $filename = fileparse($path, qr/\.[^.]*/);

Exemple pris directement de la doc de File::Basename.

--
Jedaï