Stout, Joel R [SJR], on Tuesday, December 7, 2004 at 00:55 (-0000) typed: SJR> use File::Basename; SJR> $fullname = "/usr/local/pics/sample.tiff"; #for example SJR> ($file,$dir,$_) = fileparse($fullname, qr/\..*/); SJR> if (/\.(tif|tiff|jpg|jpeg)$/) { SJR> print "This is an image file.\n"; SJR> };
it depends, from where you have $filename, from readdir() or ? I'm trying not to use modules, if I really don't need them, and in this situation, I think, you don't need it. And upper regex could be better written as: if (/\.(tiff?|jpe?g)$/i ) { -- ...m8s, cu l8r, Brano. [Help stamp out Pernography: read more LeGuin!] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>