On Thu, Feb 3, 2011 at 10:47 AM, Harry Putnam <rea...@newsguy.com> wrote:
> I used this in my crude little starter program as one part of a
> foreach loop:
>
> if ( !/^.*\.[bjgtp][gimnps][gfadp]$/) {
> print "<$_> is not a properly named image file .. skipping\n";
> next;
> }
>
> Just so I'd have output so as to trace any problematic files if there
> seemed a need. The regex appears to encompass all the types I want to
> deal with, but is no doubt horribly written.
>
> Its intended to allow:
>
> jpg, tif, bmp, gif, tga, png, psd And to reject anything else and just
> skip it. I think that's all, but may be leaving out some less common
> types. I'd sooner only deal with types listed there.
unless($filename =~ m(.+\.(bmp|gif|jpg|png|psd|tga|tif)$))
{
print STDERR "The filename {$filename} has an unsupported
extension. Skipping...";
next;
}
--
Brandon McCaig <http://www.bamccaig.com/> <bamcc...@gmail.com>
V zrna gur orfg jvgu jung V fnl. Vg qbrfa'g nyjnlf fbhaq gung jnl.
Castopulence Software <http://www.castopulence.org/> <bamcc...@castopulence.org>
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
