CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Advanced: Re: [skr302] To print the file in spool with the new format of input file also: Edit Log



skr302
Novice

Oct 14, 2015, 10:03 PM


Views: 9190
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?

Code
# 
# 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)


Edit Log:
Post edited by FishMonger (Veteran) on Oct 15, 2015, 6:29 AM


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives