Discussion :

[Jasmine80]

Bonjour,


J'aimerais utiliser File::Parser mais je n'arrive pas à l'installer. J'utilise perl 5.8.8.
Sur le CPAN, il est indiqué de télécharger perl 5.005 04

J'ai essayé, sans succès

ppm install File::Parser

Comment dois-je procéder?



Merci pour votre aide,

[djibril]

Si c'est ce module que tu cherches (File::Basename) il est installé par défaut sur ton ordinateur. Il est déjà dans le core de Perl.

[Jasmine80]

Merci pour ton aide.

Je voulais utiliser

Code :

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

1
2
fileparse("/foo/bar/baz.txt", qr/\.[^.]*/); # On Unix returns ("baz", "/foo/bar", ".txt")
fileparse("C:/foo/bar/baz"); 		# On Windows returns ("baz", "C:/foo\bar/", "")

afin de récupérer le nom de fichier et l'extension


Si j'utilise basename

basename - extract just the filename from a path

... cela me forcera donc à récupérer l'extension via une regexp?



Voila mon code actuel

Code :

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

my ($file_name, $out_ext_cho) = $output_file =~ m{[\/](.*?)(\.?\w*)$};

[djibril]

Cette regex suffit :

Code :

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

my ( $nom_fichier, $repertoire, $extension ) = fileparse( $fichier, qr/\.[^.]*/ );

[Jasmine80]

Merci beaucoup, cela fonctionne .