Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re^2: designing a program - your wisdom needed

by Marshall (Canon)
on Jan 20, 2022 at 12:39 UTC ( [id://11140643]=note: print w/replies, xml ) Need Help??


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

I think the OP and us may be way overthinking the OP's problem.
first.pl and second.pl will create temp table schema and each will run a huge query that loads data into respective temp table schema. third.pl will join the two temp tables from first and second and load it into third.

It could very well be that the OP just needs to log onto a network SQL DB and run just 3 SQL commands!?

I am not sure at all there needs to be 4 Perl programs for this!

It appears that a single Perl program of a couple of pages long will do what the OP is requesting. If not, then I want to know why not? (that's a question for the OP).

  • Comment on Re^2: designing a program - your wisdom needed

Replies are listed 'Best First'.
Re^3: designing a program - your wisdom needed
by SpaceCowboy (Acolyte) on Jan 20, 2022 at 21:40 UTC
    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
      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://11140643]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others pondering the Monastery: (2)
As of 2024-04-26 02:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found