opendir my $dh => $dir or die; my %files; @files {map {lc} readdir} = (); closedir $dir; my @missing = grep {/^(.*)\.did$/s && !exists $files {"$1.mrg"} keys % +files;
Abigail
In reply to Re: Finding un-paired files in a directory
by Abigail-II
in thread Finding un-paired files in a directory
by inman
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |