Help for this page

Select Code to Download


  1. or download this
    use File::Find::Rule;
    my @searchLocations = (
    ...
      glob("/vol/archive[0-9][0-9]/prod/system/archive/$collectArchive/*")
    );
    my @files = File::Find::Rule->file->in(@searchLocations);