vickycanada has asked for the wisdom of the Perl Monks concerning the following question:
Appreciate your help.#!/usr/bin/perl $inputFileName = $ARGV[0]; $inputFilewithPath = $ARGV[1]; $destinationFileName = ""; $inputFileSubstring = substr $inputFileName, 0, 6; $inputFileSubstring1 = substr $inputFileName, 0, 8; $inputFileSubstring2 = substr $inputFileName, 0, 7; $destinationFilePath = "\\\\sharepath\\Test\\customoutput\\Test1\\"; $triggerFilePath = "\\\\sharepath\\cpa\\customoutput\\hubidp\\"; $triggerFileName = ""; $returnVal = 0; if( $inputFileSubstring eq alphat.*\.zip$/i && $inputFileSubstring1 eq + numerict.*\.zip$/i && $inputFileSubstring2 eq updatet.*\.zip$/i ) { $destinationFileName = sprintf("%s%s%s", $destinationFilePath, $in +putFileName); $triggerFileName = sprintf("%s%s%s", $triggerFilePath, "cpa_trigge +r.done"); } else{ printf "WARNING: EXPECTED FILES NOT FOUND. INVESTIGATION REQUI +RED"; exit ; } $returnVal = system("ftmscmd /tcp /send /file /node:XXX /DT:E /CrLf:Y +/ppa1:S,L,COMMAND,\"echo > $triggerFileName\" /TC:3 $inputFilewithPat +h $destinationFileName");
|
|---|