Re^7: File:Find pattern match question

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

Comment on Re^7: File:Find pattern match question Select or Download Code

Replies are listed 'Best First'.
Re^8: File:Find pattern match question by RockE (Novice) on Nov 03, 2013 at 11:52 UTC
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]
Re^9: File:Find pattern match question by kcott (Archbishop) on Nov 13, 2013 at 16:44 UTC
Every time you call `dir_names()`, you set `$dirs{$File::Find::name}` to `1`, then you increment it. `$dirs{$File::Find::name}` will equal `2` after every call to `dir_names()`! -- Ken	[reply] [d/l] [select]