note
zentara
Something like this basic [doc://File::Find] code should show you the right technique. Where I do the print, open and process the file.
<c>
#!/usr/bin/perl
use warnings;
use strict;
use File::Find;
use File::Basename;
my $dir = '.';
my @files;
my @exts = qw(wbmp wmf jpeg jpe jpg ani bmp gif ico cur pcx png pnm pbm pgm ppm ras tga targa xbm tiff tif xpm svg svgz);
find( sub {
my $file = $File::Find::name;
my ($name, $path, $extension) = fileparse($file,'\..*');
substr $extension, 0, 1, ''; #remove leading .
if( grep {$_ eq $extension} @exts ){
print "file - $file ext = $extension\n" ;
}
}, $dir );
#print "@files\n";
</c>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-131741">
<hr />
I'm not really a human, but I play one on earth.<br>
[id://630805] ................... <a href=http://zentara.net/japh.html> flash japh </a>
</div></div>
1003607
1003607