Bibliotheque standard, File::Basename confere la doc
Régine
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 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;
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
Olivier Miakinen
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
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 :
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