running perl scripts from other perl scripts.

fmogavero has asked for the wisdom of the Perl Monks concerning the following question:

Bretheren and Cistern,

I have been charged with rewriting a batch file. I discerned that this batch file would serve better as a perl script. I have been trying to get around system("program to call") on Win32.

Can anyone enlighten me on converting these two lines to something more "perl controllable"? In other words, I need to be able to monitor the processes so that if errors occur, I can log them, e-mail them, try again...etc
system("pgp.exe $DECRYPT_WORK_PATH$ENCRYPTED_FILENAME -o $DECRYPT_WORK_PATH$PLAINTEXT_FILENAME"); and system("somescript.pl $DECRYPT_WORK_PATH$PLAINTEXT_FILENAME")

I have tried using WIN32::Process::Create with no luck. I don't want to use WIN32::Console because there is already enough garbage on the screen.

Thanks in advance,
fmogavero

Comment on running perl scripts from other perl scripts. Select or Download Code

Replies are listed 'Best First'.
Re: running perl scripts from other perl scripts. by arturo (Vicar) on Sep 14, 2001 at 00:34 UTC
Read How can I capture STDERR from an external command?. HTH. `perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); +$rose = "smells sweet to degree $n"; other_name = rose; print "$oth +er_name\n"'` [download]	[reply] [d/l]
(tye)Re: running perl scripts from other perl scripts. by tye (Sage) on Sep 14, 2001 at 00:58 UTC
If the original poster wants to include Win9x in their definition of Win32, then the methods you link to won't work for them. The most portable way I know to do this is: `use IPC::Open3; my $pid= open3( "<&STDIN", OUT, OUT, "command" ); my @errors= <OUT>; close OUT; my $status= waitpid $pid, 0;` [download] - tye (but my friends call me "Tye")	[reply] [d/l]
Re: running perl scripts from other perl scripts. by derby (Abbot) on Sep 14, 2001 at 02:01 UTC
fmogavero, For the pgp, try looking at the several pgp modules. For the other system call, you could do something like this: <bold>note: untested code</bold> `$/ = undef; open( FILE, "somescript.pl" ) \|\| die "can't open: $!" $script = <FILE> close( FILE ); $ARGV[0] = "Whatever $DECRYPT_WORK_PATH$PLAINTEXT_FILENAME IS"; eval $script; if( $@ ) { print STDERR "Error: yada yada\n"; }` [download] or maybe even simpler `$ARGV[0] = "whatever"; do 'somescript.pl'` [download] -derby	[reply] [d/l] [select]