Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

Re: Shell script with PERL

by blackle (Beadle)
on Nov 21, 2012 at 15:08 UTC ( #1004938=note: print w/replies, xml ) Need Help??

in reply to Shell script with PERL

That really depends on what you mean by using a shell script with perl. If you want to launch a perl script from a shell script, simply use the syntax perl path/to/ arg1 arg2 arg3 etc. If you want to launch a shell script within perl, there are a few options. The first one to look at is system as tobyink mentioned. This function returns the exit status of the shell script, which is useful if all you need to know is if the script failed or not.

If you instead want to capture the standard output of the script (i.e. the ouput one would see when running it in a terminal) you want to use backticks or qx//. The syntax for this is as follows:

my $stdout_one = `sh`; my $stdout_two = qx/sh; print "This never happens" if ($stdout_one ne $stdout_two); print "This always happens" if ($stdout_one eq $stdout_two);

Be advised that running shell commands directly introduces a security risk. Suppose you want to run your script with an argument from a variable, you might write my $out = `sh $param1`. If for any reason $param1 = "1; rm -rf *" your perl script will start deleting everything it can.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1004938]
[LanX]: obscure facts: only naturally born monks can become president here!
[cbeckley]: I have a functioning module I use to spawn sets of commands across multiple servers.
[cbeckley]: It's nascent, and probably looks like baby Perl to the veterans.
[cbeckley]: I have several questions about it's future development. But it seems like a lot of code to put in a sopw.
[cbeckley]: Should I put the module and example calling code in cufp, and then ask questions in sopw?

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (12)
As of 2017-03-24 14:58 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (304 votes). Check out past polls.