Help for this page

Select Code to Download

Select or download this

@ARGV = <$responseDir/*>;
   while (<>)
...
         $newFile = $ARGV, last if /^"$commonField"$/;
    }

Select or download this

# replace from @ARGV = <$responseDir/*>;

...
    print "moved $sourceDir/$arrFileList to $processed\n";
}