a lil help on file extension

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

Replies are listed 'Best First'.
Re: a lil help on file extension by Mr. Muskrat (Canon) on Jun 09, 2003 at 21:26 UTC
Try this on for size: `if ( $file_names !~ /\.html?/ ) {` Oh and you might want to anchor that at the end like this: `if ( $file_names !~ /\.html?$/ ) {` By the way, using !~ means that you are checking that it doesn't match. If you want to look for matches use =~ instead.	[reply] [d/l] [select]
Re: a lil help on file extension by sauoq (Abbot) on Jun 09, 2003 at 21:28 UTC
You are asking for a file that "does not match this pattern or that does not match this other pattern." The only reason it works for files with a ".html" extension is that both patterns match. Try changing your or to an and if you don't want files with either extension. Of course, you can make it easier on yourself by saying exactly what you mean... `unless ( $file_names =~ /\.html?/ ) { ... }` [download] -sauoq "My two cents aren't worth a dime.";	[reply] [d/l]
Re: a lil help on file extension by CukiMnstr (Deacon) on Jun 10, 2003 at 02:46 UTC
...and you probably want to stick a `/i` modifier, in case the extension is in uppercase, or mixed case: `unless ( $file_names =~ m/\.html?$/i ) { ... }` [download] hope this helps,	[reply] [d/l] [select]
Re: a lil help on file extension by CombatSquirrel (Hermit) on Jun 10, 2003 at 11:46 UTC
What the others pointed out so far were correct solutions of the problem, but I suppose you would like to know what went wrong with your code. Assume that the file does not end in `.html`; then `$file_names !~ /\.html$/` evaluates to `true`. The `or` statement is now definitely `true`, because one of its arguments is `true`, so that the `if`-block is executed. What you meant probably was `if ( $file_names !~ /\.html$/ and $file_names !~ /\.htm$/ )`. Try it; it should work for you.	[reply] [d/l] [select]
Re: a lil help on file extension by tall_man (Parson) on Jun 10, 2003 at 15:35 UTC
Another way to do it is with the File::Basename module. For example: `use strict; use File::Basename; my $file_name = $ARGV[0]; my @suffixlist = ("\.html", "\.htm"); my ($name, $path, $suffix) = fileparse($file_name,@suffixlist); if ($suffix ne "") { print "file name $file_name matched\n"; }` [download] It's overkill for this simple example, but it could be useful if you want to break up and test pieces of the file name and path in a portable way.	[reply] [d/l]