regex to return file extensions

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: regex to return file extensions by davido (Cardinal) on Apr 02, 2004 at 06:42 UTC
I'm assuming that you've got the filename isolated already. If not, the File::Basename module is great. Then to get the extension, use something like this: `print "$1\n" if $filename =~ m/\.([^.]+)$/;` [download] Dave	[reply] [d/l]
Re: Re: regex to return file extensions by Hofmator (Curate) on Apr 02, 2004 at 09:22 UTC
When you are already using File::Basename to extract the filename, then the following is also an option `($name, $path, $suffix) = fileparse('/home/foo/bar.txt', qr{[^.]*}); # or if you have a list of allowed suffices in @suf @suf = qw/gif wav mpeg txt/; ($name, $path, $suffix) = fileparse('/home/foo/bar.txt', @suf); # both lead to # $name eq 'bar.' # $path eq '/home/foo' # $suffix eq 'txt'` [download] -- Hofmator	[reply] [d/l]
Re: regex to return file extensions by matija (Priest) on Apr 02, 2004 at 06:08 UTC
something like `$file=~/\.(\w+)$/;` [download] would probably do the trick.	[reply] [d/l]
Re: Re: regex to return file extensions by Anonymous Monk on Apr 02, 2004 at 08:26 UTC
\z except when the extension ends in a newline :)	[reply]
Re: regex to return file extensions by Anonymous Monk on Apr 02, 2004 at 09:18 UTC
`use strict; while(<.>) { $extension =~ /\.([^\.]+)$/g; push(@extarray, $1); } print join("\n", @extarray);` [download] _{janitored by ybiC: Balanced <code> tags around codeblock}	[reply] [d/l]
Re: regex to return file extensions by eial (Initiate) on Apr 03, 2004 at 09:37 UTC
im use this and work very fine: my ($filename,$extension) =~ m/(.)\.(.)/; if the filename is fjgdkfjkgs........................gif, well it regex return fjgdkfjkgs....................... to the filename and gif to extensions. Success	[reply]