Help for this page

Select Code to Download


  1. or download this
    sub Get_FileList{
    @files=();
...
    $proccount = scalar(@files);
    $logger->info("Found $proccount new files since last run.");
    }
  2. or download this
    04-12-2017 04:06:56:570  INFO  TRACE1 at perl.pl line 85.
04-12-2017 04:06:56:577  DEBUG  Reached Z:/  
...
    File::Find::find(CODE(0x4e8b7b8), "Z:/") called at perl.pl line 11
+8
    main::Get_FileList() called at perl.pl line 85