Bonjour,
 
J'aimerais récupérer l'extension d'un fichier.
 
J'ai un fichier << toto.txt >>. Je voudrais juste récupérer << txt >>.
J'ai un peu de mal avec les expressions régulières donc est-ce quelqu'un pourrait m'aider svp ?
 
Merci d'avance.

Je te laisse cogiter sur ce que fait ce programme:

use strict;
use warnings FATAL => 'all';
 
my @testdata = ('toto.txt',
        'toto.new.txt',
        'toto...text',
        'toto.',
        '.toto',
        '.toto.',
        '.to.to',
        '.to.to.',
        'to.to.',
        '.',
        '..',
        '...',
        'toto..25.text',
        '.toto..25.text',
        'toto..25.text.',
        'toto..25..text',
        );
 
foreach (@testdata) {
  if (/^(.*[^.])\.([^.]+)$/) {
    print "File: $_\tExtension: $2 (and basename: $1)\n";
  }
  else {
    print "File: $_\t No extension\n";
  }
}

A+,
 

Tu as déjà posé pratiquement la même question: http://forum.hardware.fr/hfr/Progr [...] 3889_1.htm

Tu prends la réponse de gilou et tu adaptes, soit transformer en regex "simple" et modifier la place des parenthèses.

EDIT: Regarde chez gilou, j'ai dit des bêtises. :-(

Je pensais qu'il y avait une solution plus simple pour récupérer une extension !
 
Comme par exemple en shell ou je ferai :
 
echo toto.txt |awk -F "." '{print $NF}'
 
Ou dans le même esprit, en perl récupérer juste le nom de fichier sans l'extension avec la commande :
 
$fichier =~ s/(.+)\.[^.]+/$1/;
 
Il n'y a pas une commande plus simple ?

Dans le même esprit, tu aurais bien $fichier =~ s/^.*[^.]\.([^.]+)$/$1/; mais le problème, c'est qu'il n'y a pas toujours une extension, et que quand il n'y en a pas, ça foire. Alors il faut bien tester avec un if à un moment donné.
 
Dans la pratique en fait, pour ce genre de chose, on utilise le module standard File::Basename qui est le truc standard pour les noms de fichiers & co
 
A+,

Ok merci. C'est exactement ça que je voulais.
Il y aura toujours une extension donc aucun soucis !
 
Merci encore pour ton aide.
 
@+