Help for this page

Select Code to Download

Select or download this

sub dir_names
{
...
    $dirs{$File::Find::name} = 1;
    ++$dirs{$File::Find::name};
}

Select or download this

C:\Temp\hddzip>perl dirpathdupes.pl
C:\Temp/Alcohol/P12345678
...
C:\Temp/P12345678
C:\Temp/harddrives/P12345678
C:\Temp/hddzip/P12345678