Re: Parse out the extension of a filename - return base of filename.

[rob_au]

I was never able to find a decent piece of code that was able to parse out the extension of a given file delimited by a '.' regardless of how many '.'s were in the filename

While I do admire your industrial spirit, you can already do this with File::Basename ...

use File::Basename;

my $fname = "/usr/local/isp/system.update.perl";
my ($name, $path, $suffix) = fileparse($fname, '\.[^\.]*');

print STDOUT $name, "\n";

The key to this working is the regular expression passed to the fileparse method - The regular expression in the example above matches the suffix of a file as being the last dot and what follows it, excluding any subsequent dots ([^\.]).

 

perl -e 's&&[e-mail]&&&split/[@.]/&&s&.com.&_&&&print'

[snafu]

Yes. I was aware of the availability of function from File::Basename. However, in order to use it you needed to have prior knowledge of the filename which was being passed to the module ie you needed to know how many periods are in the filename. This wouldn't work very well if you were going through a whole list of files that were not structured the same. That is one reason I wrote this lil sub because it doesn't care how many period '.' delimiters are in the filename. It will always return the full filename minus the last part of the filename which is what I have always considered to be the extension.

_ _ _ _ _ _ _ _ _ _
- Jim
Insert clever comment here...

[knobunc]

Umm.. try running the example he gave (or reading the node more closely). It does match the last part of the filename following the final dot. So if you run:

perl -MFile::Basename -e 'print join ":", fileparse("foo.bar.baz", "\\
+.[^.]+"), "\n"'

It produces foo.bar as the filename, ./ as the directory and baz as the extension. A few more filenames and results follow:

Input filename	Base name	Extension
foo.bar.baz	foo.bar	baz
foo.bar	foo	bar
foo	foo	none

-ben

[snafu]

Yup. I know. Clearly I spoke before I tested and I did a terrible terrible thing and assumed his code wouldn't work. But, alas, I was wrong. :)

_ _ _ _ _ _ _ _ _ _
- Jim
Insert clever comment here...

[freonpsandoz]

The key to this working is the regular expression passed to the fileparse method

Too bad File::Basename doesn't set a reasonable default for the fileparse() RE based on the OS like it does for the path separator. If you understand REs well enough to supply a correct one to fileparse(), you most certainly don't need File::Basename to get the file extension!