Re: how to Check file type?

Another way to grab the extension is to put the split name in an array and pop the last element.

#!/usr/bin/perl -w
my $filename = "this.is.my.filename.txt";
my @bits = split /\./, $filename;
print pop @bits;
[download]

Comment on Re: how to Check file type? Download Code

Replies are listed 'Best First'.
Re^2: how to Check file type? by TomDLux (Vicar) on Dec 02, 2010 at 19:44 UTC
Saving the whole array and then popping off the last element uses up lines and adds variables. I'd rather wrap the split in parentheses and reference the last element. `my $suffix = ( split /\./, $filename )[-1];` [download] The only danger is that if the only reason you're getting the suffix is to print it, you need more parentheses to prevent `print` from thinking a subset of the expression is its argument list: `print ( split /\./, $filename )[-1]; # wrong print (( split /\./, $filename )[-1]); # unpleasant` [download] As Occam said: Entia non sunt multiplicanda praeter necessitatem.	[reply] [d/l] [select]
Re^3: how to Check file type? by ChuckularOne (Prior) on Dec 02, 2010 at 20:24 UTC
Thanks, that was basically (however inelegantly) what I was trying to accomplish. Printing was just for demonstration purposes.	[reply]


We don't bite newbies here... much
	PerlMonks