Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re^2: perl program return error code to ksh

by Anonymous Monk
on Jun 24, 2014 at 18:37 UTC ( #1091087=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
      ${BIN_DIR}/tapeloadListing.pl >> ${LOGS_DIR}/corps.${VERSION_DATE}.l
    +og #2>&1
            if (( $? == 0 )); then
    ...
                    echo "PERL script used to get the tapeload snapshot fa
    +iled, hence aborting the script as the files can't be downloaded" | m
    +ailx -s "CORP V2 BUILD ERROR - ${VERSION_DATE}" ${MAIL_ADMIN}
                    exit 1;
            fi
    
  2. or download this
    $fh  =  new FileHandle;
    $fh -> open("< /export/home/$ADMIN/pwds/ftp_pass.txt") or die "Error o
    +pening FTP password file, $!";
    ...
    $fh -> close;
    print $TAPELOAD_PWD
    chomp($TAPELOAD_PWD);
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1091087]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (3)
As of 2021-11-30 12:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?