Re^2: perl regular expression

I know the OP had the word boundry match at the end, but I don't see its use here. Neither do I see the need for a non capturing group. Either way, the OP should probably positively match for the end of the file name, otherwise one might end up passing a file by virtue of a match part way through the filename.

The following wont print match...

my $filename = "/home/root/this_is_a_valid_name.html.gz";

if ($filename =~ m/(\.(htm|html|txt|pdf|ppt|csv|doc))$/i) {
    print "match\n"; # this won't print
}
[download]

... however swap in the this one, and is passes just fine...

my $filename = "/home/root/this_is_a_valid_name.html.gz";

if ($filename =~ /(\.(?:htm|html|txt|pdf|ppt|csv|doc]))\b/i) {
    print "match\n"; # this will print
}
[download]

---
my name's not Keith, and I'm not reasonable.

Comment on Re^2: perl regular expression Select or Download Code

Replies are listed 'Best First'.
Re^3: perl regular expression by chargrill (Parson) on Oct 03, 2006 at 18:15 UTC
What happens when the filename is (arbitrarily contrived, but): `magical.html_parser.dll`? Though I suppose it matters what the OP wants to do with the file(s), and whether or not a .gz'd html/txt/etc file is desired. --chargrill `s*lil; $=join'',sort split q; s;.;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$,$/)` [download]	[reply] [d/l] [select]