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

Dear Monks, Is there more elegant perl way to call perl script within perl script than described bellow, Thanks 

#!perl

$LocationOfTheScriptsDirectory='D:\TEST';
print "Hello";

#Test1.pl is
#print " World\n";
system("$LocationOfTheScriptsDirectory\\Test1.pl");

[download]
(: Life is short enjoy it :)

Replies are listed 'Best First'.
Re: How to call perl script within perl script ?
by jettero (Monsignor) on Nov 19, 2007 at 16:42 UTC

    I believe you can require them in. Personally I tend to read the code into a variable and eval it. 

    sub run_it { 
    my $filename = shift;

    open my $in, $filename or die $!;
    local $/ = undef;
    my $entire_script = <$in>;
    close $in;

    eval $entire_script; die $@ if $@;
}

    [download]

    -Paul

[reply]
[d/l]
Re: How to call perl script within perl script ?
by Anonymous Monk on Nov 19, 2007 at 16:45 UTC 
    push @INC, 'D:\TEST';
require 'Test1.pl';

    [download]
[reply]
[d/l]
      use
      do(perl script name/);
[reply]
Re: How to call perl script within perl script ?
by sgt (Deacon) on Nov 19, 2007 at 22:22 UTC

    Besides all the excellent advice already given there is one important aspect: processes!

    For example on unix-like the question would be

  • Do you want to start another process and wait till it finishes?: system or even system with time-out (if you shell supports it). Still you'll need to record the status carefully to know if the execution went OK or no.
  • Do you want to run some more code in the same process?: do, require or eval "string".
  • Do you need to fire one or more processes and then communicate with them to hand out tasks or queries (worker or co-process view)?: then you have the whole spectrum of IPC.

    All of those have their use. The firing of an external process is often neglected these days but lets the OS do the safety net (restarting yourself can be a useful trick even). Choose wisely ;)

    cheers --stephan
[reply]
Re: How to call perl script within perl script ?
by perlfan (Parson) on Nov 19, 2007 at 20:16 UTC
    For maximum elegence, you should wrap it up in a *.pm.
[reply]
Re: How to call perl script within perl script ?
by abachus (Monk) on Nov 19, 2007 at 19:23 UTC
    You could take a look at IPC::Open2 or IPC::Open3...
[reply]

Back to Seekers of Perl Wisdom