Help to solve perl run shell script

lamletoi · 04-28-2012, 05:29 AM

Hello all,
I have a problem when i try to run a script from perl script.
my perlscript:

PHP Code:



#/usr/bin/perl 
print "Content-type: text/html\n\n"; 
system("sh myshell.sh");

my shellscript

PHP Code:



#!/bin/bash 
lsof -i -n -P |sort >/tmp/tofile.txt

perl and shell script can run ok but no output send to my file.
I do know what is problem?
i can run only shell script and its ok.
How do i solve this

ButterflyMelissa · 04-28-2012, 03:10 PM

What are the execute rights, and the feedback of either script, please.
If you want to send something to a file from Perl, you'll need to define an output stream...

Thor

lamletoi · 04-30-2012, 01:13 AM

i set permission of myshell.sh to 777.
tofile.txt to 777.
i changed lsof->/usr/sbin/lsof too

i run ./ myshell.sh only.(below code) and its ok.the data show in /tmp/tofile.txt

PHP Code:



#!/bin/bash
lsof -i -n -P |sort >/tmp/tofile.txt

and i run perl script

PHP Code:



#/usr/bin/perl
print "Content-type: text/html\n\n";
system("sh myshell.sh");

with myshell.sh

PHP Code:



#!/bin/bash
/usr/sbin/lsof >/tmp/tofile.txt

Its ok too.

But when i try to add 1 or more options( -i -n -P) or

PHP Code:



#!/bin/bash
/usr/sbin/lsof |sort >/tmp/tofile.txt

it did not do anything.
Nothing in /tmp/tofile.txt

ButterflyMelissa · 05-01-2012, 07:56 AM

Quote:

But when i try to add 1 or more options( -i -n -P) or

...I dont see the code that has to interpret the parameters, is there any of that? If so, try to set some feedback points in the code to see up to what point the code reaches. I suspect something to go wrong as you feed parameters, and the code crashes before reaching the point where it needs to write something to a file...

Thor