Perl

Perl RSS

calling one perl program from within another

•

Join Date: Jun 2005

Posts: 1

Reputation: iblair is an unknown quantity at this point

Solved Threads: 0

iblair

Offline

Newbie Poster

calling one perl program from within another

Jun 27th, 2005

Hi All,

I am currently writing a perl program for linux which needs to run another perl script with a commandline option half way through, 'myscript.pl -h'. If it didn't have the '-h' I would use require. I could use backticks to shell out, but this is slow. Is there a better way to call another perl program with options?

Many thanks in advance,
Ian

•

Join Date: Dec 2004

Posts: 2,413

Reputation: Comatose is a jewel in the rough

Solved Threads: 211

Comatose

Offline

Taboo Programmer

Re: calling one perl program from within another

Jun 27th, 2005

Not that I know of.... You could consider using the open command, and running the script as a thread such as:

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
open (FH, "yourfile.pl -h");
close(FH);
open (FH, "yourfile.pl -h");
close(FH);

You could also use the system command, but it would seem to me that shelling no matter how you do it is going to take a bit of processing time.

•

Join Date: Jun 2005

Posts: 2,039

Reputation: Rashakil Fol is just really nice

Solved Threads: 139

Rashakil Fol Rashakil Fol is offline

Offline

Super Senior Demiposter

Re: calling one perl program from within another

Jun 28th, 2005

You can pass command line arguments by changing @ARGV. It is best to make a local copy.

For example,

inc.pl:

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
#!/usr/bin/perl
use strict; # just for kicks
 
for my $item (@ARGV) {
	print "$item\n"; # print what we think are our command line args!
}
#!/usr/bin/perl
use strict; # just for kicks

for my $item (@ARGV) {
	print "$item\n"; # print what we think are our command line args!
}

tmp.pl:

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
#!/usr/bin/perl
use strict; # just for kicks
 
{
	local @ARGV;
 
	@ARGV = (1, 2, 3, 4, "Hello!"); # set our command line args!
 
	eval { require "inc.pl" };
        # the 'eval' catches the exception that occurs when
        # inc.pl fails to return true (which can also be alleviated
        # by ending "inc.pl" with a true value, such as 1; in a
        # line by itself).
}
 
print "\nOriginal Arguments:\n\n";
 
for my $item (@ARGV) {
	print "$item\n";
}
#!/usr/bin/perl
use strict; # just for kicks

{
	local @ARGV;

	@ARGV = (1, 2, 3, 4, "Hello!"); # set our command line args!

	eval { require "inc.pl" };
        # the 'eval' catches the exception that occurs when
        # inc.pl fails to return true (which can also be alleviated
        # by ending "inc.pl" with a true value, such as 1; in a
        # line by itself).
}

print "\nOriginal Arguments:\n\n";

for my $item (@ARGV) {
	print "$item\n";
}

If you run:
perl tmp.pl arg1 arg2 arg3
you'll see the output

1
2
3
4
Hello!

Original Arguments:

arg1
arg2
arg3

•

Join Date: Oct 2006

Posts: 3

Reputation: Bucchi is an unknown quantity at this point

Solved Threads: 0

Bucchi

Offline

Newbie Poster

Re: calling one perl program from within another

Oct 27th, 2006

•

Originally Posted by Rashakil Fol

You can pass command line arguments by changing @ARGV. It is best to make a local copy.

For example,

inc.pl:
Help with Code Tags

Perl Syntax (Toggle Plain Text)
#!/usr/bin/perl
use strict; # just for kicks
 
for my $item (@ARGV) {
    print "$item\n"; # print what we think are our command line args!
}
#!/usr/bin/perl use strict; # just for kicks for my $item (@ARGV) { print "$item\n"; # print what we think are our command line args! }
tmp.pl:
Help with Code Tags

Perl Syntax (Toggle Plain Text)
#!/usr/bin/perl
use strict; # just for kicks
 
{
    local @ARGV;
 
    @ARGV = (1, 2, 3, 4, "Hello!"); # set our command line args!
 
    eval { require "inc.pl" };
        # the 'eval' catches the exception that occurs when
        # inc.pl fails to return true (which can also be alleviated
        # by ending "inc.pl" with a true value, such as 1; in a
        # line by itself).
}
 
print "\nOriginal Arguments:\n\n";
 
for my $item (@ARGV) {
    print "$item\n";
}
#!/usr/bin/perl use strict; # just for kicks { local @ARGV; @ARGV = (1, 2, 3, 4, "Hello!"); # set our command line args! eval { require "inc.pl" }; # the 'eval' catches the exception that occurs when # inc.pl fails to return true (which can also be alleviated # by ending "inc.pl" with a true value, such as 1; in a # line by itself). } print "\nOriginal Arguments:\n\n"; for my $item (@ARGV) { print "$item\n"; }
If you run:
perl tmp.pl arg1 arg2 arg3
you'll see the output

1
2
3
4
Hello!

Original Arguments:

arg1
arg2
arg3

But would this take care of the option with which we need to call the perl script?? I too have the same task and I figure out how to call another script with options?