
skr302
Novice
Oct 14, 2015, 10:03 PM
Views: 12255
|
Re: [skr302] To print the file in spool with the new format of input file also
|
|
|
Can some one please explain me what is happening here?
# # Care needs to be taken as the full file name (containing the path) is # sent to the RPM server. # # Validate Filename Structure unless ($basename =~ /^(.{4}|.{10})_(.{10})_(.{8})_(.{6})_(.{10})_(.{8})\.(.{3})(\.gz)?$/) { if ((system @COPY, $filename, sprintf "%s%s%s%s", $UNHANDLED, $delimiter, $basename, $dupe_extn) == 0) { abort __LINE__,"bad filename '$filename', moved to unhandled directory"; } else { abort __LINE__,"failed to move unhandled file '$filename'!"; } } else { # # File Name Format Fits # ($issuercode, $outputname, $date, $time, $userid, $sequenceno, $filetype) = ($1, $2, $3, $4, $5, $6, $7); } what unless ($basename= .............is doing?
(This post was edited by FishMonger on Oct 15, 2015, 6:29 AM)
|