Récupérer extension d'un fichier

[Régine]

Bonjour,

Je souhaite récupérer l'extension d'un fichier exemple:
var = toto.jpeg

soit le .jpg

Merci pour votre aide

Cordialement

Régine

[Marc Espie]

Post by Régine
Bonjour,
var = toto.jpeg
soit le .jpg

Bibliotheque standard, File::Basename

confere la doc

[Régine]

Post by Régine
Bonjour,
var = toto.jpeg
soit le .jpg
Merci pour votre aide
Cordialement
Régine

Merci beaucoup

j'ai ceci

use File::Basename;
my ( $name, $path, $extension) = fileparse ( $filename, '..*' );
$filename = $name . $extension;

Var $extension j'obtient toujours toto.jpeg

et c'est seulement .jpeg qu'il me faut.

Bien à vous
Régine

[Olivier Miakinen]

Post by Régine
use File::Basename;
my ( $name, $path, $extension) = fileparse ( $filename, '..*' );

D'où sort ce '..*' ?

Je ne connais pas encore Perl (hélas) mais il me semble avoir
trouvé la solution toute cuite dans la doc :

<http://perldoc.perl.org/File/Basename.html>
# On Unix returns ("baz", "/foo/bar/", ".txt")
fileparse("/foo/bar/baz.txt", qr/\.[^.]*/);
</>