Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re: Finding un-paired files in a directory

by Jenda (Abbot)
on Dec 02, 2003 at 15:21 UTC ( #311641=note: print w/replies, xml ) Need Help??

in reply to Finding un-paired files in a directory

opendir my $DIR, '.' or die "Can't opendir . : $!\n"; my %single; my %other = (did => 'mrg', mrg => 'did'); while (my $file = readdir $DIR) { #print "$file\n"; my ($name,$ext) = ($file =~ /^(.*)\.(did|mrg)$/) or next; if (exists $single{"$name.$other{$ext}"}) { delete $single{"$name.$other{$ext}"}; } else { $single{$file} = undef; } } print "Unpaired files:\n"; foreach my $file (keys %single) { print "\t$file\n"; }

A bit longer than most but if the readdir gives you the filenames in order (my does), there is a lot of such files and only a minimum unpaired I believe it would be the quickest and least memory hungry.

Update: Of course if your filesystem is case insensitive you should lowercase the filename to make sure you look for the pairs case insensitively. You may want store the original case in the %single hash in such case.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live.
   -- Rick Osborne

Edit by castaway: Closed small tag in signature

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://311641]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (1)
As of 2023-09-21 22:28 GMT
Find Nodes?
    Voting Booth?

    No recent polls found