Grab output of file called by system() 1

[edpatterson]

I need to capture the output of a DOS executable into a perl script.

'executable' could be any valid DOC exe|com file that writes to the screen.

I tried $response = system('executable'); but only recived the errorlevel of the apps.

my $response
$servers = qw(one two three four five);
foreach($servers){
  $response = system('executable');
  if($response == 'string'){
    do_someting();
  }else{
    do_something_else();
}

Thanks,

 

[rharsh]

$responce = `executable`;

OR

$responce = qx/executable/;

 

[mikevh]

Use backticks or qx() if you want to capture the output.

Also, the string comparison operator is eq, not ==. The latter is for comparing numbers, not strings.

 

[edpatterson]

<thunk> Sound of someone hitting them selves in the forehead.

Thanks, I knew that, why couldn't I *remember* it is the question?

I must be getting senile.

Ed