Help for this page

Select Code to Download


  1. or download this
    sub AllInFilesystemResults {
        my ($class)          = shift;
    ...
        return %listOfFilesDatabase;
    }
    
  2. or download this
        if ( $collectArchive =~ /^archive/ ) {
            @searchLocations = "/vol/$collectArchive/prod/.+";
    ...
        foreach my $searchLocation (@searchLocations) {
            $searchLocations = qw/$searchLocation/;