Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re^3: designing a program - your wisdom needed

by SpaceCowboy (Acolyte)
on Jan 20, 2022 at 21:40 UTC ( #11140660=note: print w/replies, xml ) Need Help??


in reply to Re^2: designing a program - your wisdom needed
in thread designing a program - your wisdom needed

To have some readability, as the queries are very long but you are right, it can be done with one program. Serial execution will remain a concern though - executing a program only after the previous step is completed successfully
  • Comment on Re^3: designing a program - your wisdom needed

Replies are listed 'Best First'.
Re^4: designing a program - your wisdom needed
by Marshall (Canon) on Jan 21, 2022 at 20:16 UTC
    As I mentioned before, all programs provide the shell with an exit status. No errors is indicated by 0. The simple thing is to make a batch file and stop executing Perl programs when you get a non zero status code (no matter if negative or positive).

    You don't mention your OS. For Windows command line:
    test.bat

    ECHO test.bat file starting.... perltest1.pl IF %ERRORLEVEL% NEQ 0 EXIT /B %ERRORLEVEL% perltest2.pl
    perltest1.pl
    use strict; use warnings; open my $fh, "<", "bogus file" or die "unable to open file $!";
    perltest2.pl
    use strict; use warnings; print "this is test2";
    running test.bat yields:
    C:....PerlProjects>perltest1.pl unable to open file No such file or directory at C:......\PerlProject +s\perltest1.pl line 4. C:....PerlProjects>IF 2 NEQ 0 EXIT /B 2
    So testperl1.pl returns code of 2. testperl2.pl never runs.

    There are all sorts of fancy things that can be done with shell scripts. My advice is to keep things simple. Just automate the running of separate commands for each Perl program. Don't use Perl to run Perl programs. And avoid other tricky module oriented syntax. If you have a bash shell on Unix, then there is an equivalent set of statements which will do the same thing.

    Update:
    Now if you want to cause a non-zero exit, then "exit(2345);" in your Perl program will return code 2345.

    Since you are using an Oracle DB, I would just use one of the many INI modules on CPAN to read an INI file with account and password. You will have a small amount of "boiler plate" code to add to each of your programs, but I don't see a problem with that.

    And I guess you could pass the account and password to each of the programs from the command line. But overall, I think using an INI module is the least complicated way to do what you want.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (6)
As of 2022-05-23 17:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you prefer to work remotely?



    Results (82 votes). Check out past polls.

    Notices?