in reply to Re^4: File:Find pattern match question
in thread File:Find pattern match question

"Hi Ken I tried your example but it wouldn't output anything."

The technique I showed should work fine. In his response below, Athanasius has highlighted the issue with your original premise (i.e. parent vs. current directory). You can still use the technique I provided, you'll just need to work it into the code fix he's shown.

"If I removed the pattern match string it does work but I'm not sure what it is printing out - the directory listing seems random."

Hashes are unordered: keys %hash_name will return a list of keys in an apparently random order. If you're interested, see the "Hash Algorithm" section of "perlsec: Algorithmic Complexity Attacks" for more details.

sort may provide the ordering you want. If not, you may want to consider an array, or perhaps a more complex data structure, instead of a hash, to store your data. See "perldsc - Perl Data Structures Cookbook".

-- Ken

Replies are listed 'Best First'.
Re^6: File:Find pattern match question
by RockE (Novice) on Nov 02, 2013 at 12:36 UTC

    Thanks again Ken, I have the following code, I do need to work on it a bit, at the moment it's printing out C:\Temp and nothing else. Athanasius code is printing out each of the P00 and I00 directories I made under C:\Temp for testing. I'll check out your example further, thanks 

    #!/usr/bin/perl
# dirpathdupes

use strict;
use warnings;
use File::Find;
use Fcntl;
#*****************Path Variables**********************
our $wellpath = 'N:\\repos\\open\\Wells\\Regulated\\';
our $surveypath = 'N:\\repos\\open\\Surveys\\Regulated\\';
our $testpath = 'C:\\Temp\\';
#******************************************************* 

my %dirs;
find(\&dir_names, $testpath);
my @dup_dirs = grep { $dirs{$_} > 1 } keys %dirs;
foreach my $l (@dup_dirs) {
    print "$l\n";
}

sub dir_names
{
    return unless -d;
    return unless /[IPD]\d{8}$/;
    ++$dirs{$File::Find::dir};

    [download]

[reply]
[d/l]

      You originally had this to flag occurences:

      $dirs{$File::Find::dir} = 1;

      [download]

      and this to count occurences:

      ++$dirs{$File::Find::dir};

      [download]

      Because you weren't flagging the right thing, the code for that (which, as you say below, "Works perfectly! :-) Thank you very much! Cheers"), has been changed to: 

      $dirs{$File::Find::name} = 1;

      [download]

      Can you work out what you need to do so that you'd now be counting the right thing?

      -- Ken

[reply]
[d/l]
[select]

        Hi Ken Thanks for your reply. Changing the sub routine to this 

        sub dir_names
{
    return unless -d;
    return unless /[IPD]\d{8}$/;
    $dirs{$File::Find::name} = 1;
    ++$dirs{$File::Find::name};
}

        [download]
        Gives me this 
        C:\Temp\hddzip>perl dirpathdupes.pl
C:\Temp/Alcohol/P12345678
C:\Temp/I12345678
C:\Temp/P12345678
C:\Temp/harddrives/P12345678
C:\Temp/hddzip/P12345678

        [download]
        Which seems fine as its showing all instances of the P00# but I only have one directory starting with I00#, so by all rights it should not display it if I'm seaching for dupes. Adding another P00# directory P12345677 also displays, so it seems it is still just showing directories matching "return unless /IPD\d{8}$/;"

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom