Help for this page

Select Code to Download

Select or download this

sub AllInFilesystemResults {
    my ($class)          = shift;
...
    return %listOfFilesDatabase;
}

Select or download this

    if ( $collectArchive =~ /^archive/ ) {
        @searchLocations = "/vol/$collectArchive/prod/.+";
...
    foreach my $searchLocation (@searchLocations) {
        $searchLocations = qw/$searchLocation/;