Discussion :

[Seb2913]

Bonjour,

J'ai un soucis concernant la récupération des extensions de mes fichiers. J'ai extrait des fichiers d'un logiciel que je dois reprendre et j'avais prévu de récupérer les extensions de ces fichiers par un split() et cela fonctionne parfaitement mais le soucis c'est que j'avais pas fait gaffe que certains fichiers possédent une date qui sont séparés de point

exemple : C://rep1/rep2/titre-28.01.2016.txt

Du coup je suis bloqué pour récupérer mon extension car certains ont une date et d'autres non donc l'extension ne se trouve pas forcément au même index pour tous . Concrétement là je ne sais pas trop comment m'y prendre pour pouvoir la récupérer .

J'ai essayé en renommant le fichier temporairement que je renomme avec le nom d'origine par la suite mais la commande pour renommer le fichier me supprime le fichier du dossier...

Auriez-vous une solution à me proposer ?

Merci

[Seb2913]

Résolu avec un substring ... Faut je me calme sur les postes quand je bloque

Resolution du probléme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
foreach my $attachment (@attachments){
 
 
 
my $extension =  substr $attachment, -3;
 
 
 
}

[Philou67430]

Ta solution n'est pas très robuste (exemple : fichier avec des extensions de 2 ou 1 caractère).
En revanche, tu peux très bien rester sur l'idée du split :

Code :

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

1
2
my $file = "C://rep1/rep2/titre-28.01.2016.txt";
my $ext = (split /\./, $file)[-1];

Autre solution, utiliser une regexp :

Code :

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

1
2
my $file = "C://rep1/rep2/titre-28.01.2016.txt";
my ($ext) = $file =~ /\.([^\.]+)$/;

[Seb2913]

Ok , Philou . Je vais pas te le cacher en y repassant ce midi , j'ai eu cette réflexion car j'ai des fichiers qui excel .xlsx donc m'a solution n'est pas bonne , je vais essayé avec ton code . Ce qui me dérange un peu , c'est que j'ai un peu mal à comprendre comment cela marche avec tous ces signes ^^

[Seb2913]

Ta solution n'est pas très robuste (exemple : fichier avec des extensions de 2 ou 1 caractère).
En revanche, tu peux très bien rester sur l'idée du split :

Code :

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

1
2
my $file = "C://rep1/rep2/titre-28.01.2016.txt";
my $ext = (split /\./, $file)[-1];

Autre solution, utiliser une regexp :

Code :

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

1
2
my $file = "C://rep1/rep2/titre-28.01.2016.txt";
my ($ext) = $file =~ /\.([^\.]+)$/;

J'ai essayé t'as premiére solution elle fonctionne trés bien mais je ne comprends pas le [-1] pourrais-tu m'expliquer et là deuxiéme solution éventuellement. Merci

[djibril]

La meilleure solution est d'utiliser le module File::Basename. Je l'explique dans la FAQ.

[Philou67430]

L'index négatif de tableau sert à récupérer une valeur de tableau en partant de la fin : $tableau[-1] : dernier élément, $tableau[-2] : avant dernier, etc ...
Quand à l'expression régulière : /\.([^\.]+)$/

• \. désigne le point de l'extension
• [^\.]+ désigne une liste d'au moins 1 caractère qui n'est pas un point (mais la plus longue possible)
• les parenthèses autour de [^\.] permettent de capturer l'extension
• $ désigne la fin de ligne (ou de chaine ici).

Voila.

Sinon, Djibril a raison, il faudrait utiliser le module File::Basename (fonction fileparse), qui en plus d'être robuste, est portable.
Cela dit, il est rare que j'utilise fileparse si je dois seulement récupérer l'extension (mais je l'utilise systématiquement pour récupérer le nom de base, c'est à dire le nom de fichier sans le répertoire). L'interface de File::Basename lorsqu'on ne souhaite utiliser que l'extension est peu pratique, et le split ou la regexp sont fonctionnels et très largement portables sur tous les systèmes de fichier (la séparation "répertoire"/"fichier" est moins triviale, c'est pourquoi j'utilise dans ce cas le module).

[Seb2913]

Désolé de répondre en retard , merci Philou maintenant tout fonctionne parfaitement et merci Djibril pour le lien je vais le mettre de coté