Help for this page

Select Code to Download

Select or download this

    $File::Find::prune = @{$dirs{$_}} > 1;

Select or download this

sub dir_names {
    return if ! -d || ! /[IPD]\d{8}$/;
    push @{$dirs{$_}}, $File::Find::name;
    $File::Find::prune = @{$dirs{$_}} > 1;
}