Not sure whats wrong capture stdout

[perlnewbie9292]

Hello all I am not sure what the heck I am doing wrong. I've been looking at this for a few hours now and I think I need help figuring out what it is I am doing wrong. I am trying to capture the output (stdout) that is produced when I rum/call a java script within Perl. Right now when I run my Perl script all runs fine, except that the stdout goes to the screen and I want to save it to an array so I mail the results to myself. Can someone please give me an example either with the code that I have below or how do capture stdout.

Right now print "$_\n", for @cmd; just captures the actual @cmd command line argument that is being run the the output of the java script.

thanks for the help in advanced.

my @cmd = sprinf( "java -classpath '%s' %s '%s' '%s' %s 2>&1", $class, $mainC, $stepP, $dpah, $next );
system(@cmd) == 0 or die "system @cmd failed $?\n";

print "$_\n", for @cmd;

 

[Kirsle]

system() returns the exit code of the program you're running (usually 0, or nonzero on error).

Use backticks instead.

my $output = `ls -hal /`;
print "output: $output\n";

If the output goes to STDERR instead of STDOUT, it won't be captured. You can redirect it to STDOUT in this case.

my $output = `ls -hal 2>>&1';

Cuvou.com | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'

 

[perlnewbie9292]

Thanks for the reply, but by changing the code the way you've shown only gets me the STDOUT output which is what I wanted. However I can no longer check the exit status as that is not being saved. Since before running the system command got me a result of 0 or whatever that exit status was.

Or using your example how do I:
1) capture stdout
2) capture the exit status code 0, 127, 128 etc and for error checking purposes?

Thanks again for the help I really appreciate it.

 

[feherke]

Hi

However I can no longer check the exit status as that is not being saved.

You can.

[b]my[/b] [navy]$output[/navy] [teal]=[/teal] `ls [teal]-[/teal]hal [teal]/[/teal]`[teal];[/teal]
[b]die[/b] [green][i]'external command failed'[/i][/green] [b]unless[/b] $[teal]?==[/teal][purple]0[/purple][teal];[/teal]
[b]print[/b] [green][i]"output: $output\n"[/i][/green][teal];[/teal]

See [tt]man perlvar[/tt] for more.

Feherke.

http://rootshell.be/~feherke/

 

[feherke]

Hi

By the way, if you want more control, take a look at [tt]IPC::Open2[/tt] and/or [tt]IPC::Open3[/tt] and read perlipc | Bidirectional Communication with Another Process

Feherke.

http://rootshell.be/~feherke/