Récupérer extension d'un fichier

In article <72725d1e-7b7f-4df9-bc3d-357833be488d@googlegroups.com>,
Régine <gbofficiel@gmail.com> wrote:

Bonjour,

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

soit le .jpg

Bibliotheque standard, File::Basename

confere la doc

Le jeudi 20 septembre 2018 08:22:43 UTC+2, Régine a écrit :

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

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

Le 21/09/2018 14:48, Régine répondait à elle-même :

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/.[^.]*/);
</>

--
Olivier Miakinen