Help for this page

Select Code to Download

Select or download this

use File::Spec::Functions;
opendir (my $dh, $dir);
...
  push @img, $File::Find::name if /\.(jpe?g|gif|png|bmp)$/i
  && $dir eq $File::Find::dir
}, $dir);

Select or download this

find(sub {
  push @img, $File::Find::name if /\.(jpe?g|gif|png|bmp)$/i
}, $dir);