running a shell script from perl

[rashmi R]

I want to capture the output of a shell script in my perl program on HP UX 11.11.
I cannot use FTP.

[Muthukumar_5]

Yes more ways.

# cat test.sh
ls muthu # error
hostname # log

# chmod u+x test.sh

# cat test.pl
#!/usr/bin/perl
system("./test.sh 1>/tmp/out.log 2>/tmp/err.log");

# perl test.pl

That is it. Change the test.sh to your our script.

--
Muthu

[Arunvijai_4]

Hi Rashmi,

You can "system" call that comes with perl.
Redirect STDOUT and STDERR wherever you want, just like,
system(" /tmp/tmp.sh 1>/tmp/out.log 2>/tmp/err.log");

-Arun

[Muthukumar_5]

Use qx[./test.sh 1>/tmp/test.log 2>&1]

or

`./test.sh 1>/tmp/test.log 2>&1`

to complete your requirement.

You can use open() in perl to get output from shell command or script execution as well.

open FD, |./script.sh

See this:
http://www.sunsite.ualberta.ca/Documentation/Misc/perl-5.6.1/pod/perlfunc/open.html

--
Muthu

[Muthukumar_5]

Example thread:

http://forums1.itrc.hp.com/service/forums/questionanswer.do?threadId=1002042

--
Muthu

[Arunvijai_4]

Hi,

Check this as well,

http://www.tldp.org/LDP/abs/html/wrapper.html#BASHANDPERL

-Arun

[Arunvijai_4]

One more discussion,

http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/f1c5b259748c9d8a/f30c5edf4e8f9970?lnk=st&q=using+shell+script+in+perl&rnum=2#f30c5edf4e8f9970

-Arun

[rashmi R]

can u tell me how do i get... this

open FD, |./script.sh

[Muthukumar_5]

Use like,

# cat test.sh
ls muthu
hostname

# perl -e ' open (FD,"|sh test.sh");'
muthu not found
# hostname

PS: You have asked the method which I never used before :). See that link which I sent in prev. thread.

--
Muthu

[Muthukumar_5]

More better, use close (File descriptor) as like,

perl -e ' open (FD,"|sh test.sh");close (FD);'

--
Muthu

[rashmi R]

well, to be more precise. i need the output of a shell script into a array / hash in my perl script

my $sh = Shell->new;
%kp = $sh->(perl -e '\.test.sh') something like this ...

[Muthukumar_5 · Accepted solution]

To store into an array then,

# perl -e '@arr=`./test.sh 2>&1`;print $arr[0] . " " . $arr[1] . "\n";'

2>&1 used to redirect Stand Error mode messages to standard output mode to store those informations into perl array.

--
Muthu

[rashmi R]

thanks a lot muthu kumar and arun.

[Muthukumar_5]

kwel. Use this http://forums1.itrc.hp.com/service/forums/helptips.do?#33 to assign points.

--
Muthu

[James R. Ferguson]

Hi Rashmi:

If you want to run a program within a perl script and capture that program's output, don't use 'system()'. It doesn't provide the program's output.

Instead, a simple choice is to use a backtick syntax:

$output = `/pathto/program`;

You program will run and your perl script will dutifully wait until it's done, placing the program's output in the variable you choose.

Regards!

...JRF...