in reply to how can I redirect the output of a program and get the exit code too?

Use backticks (or the qx// quoting mechanism) to launch the program and capture its output. You can obtain the exit code in the variable $?. It requires a bit of munging to pull out the three pieces of information it encodes. See perlvar for more information. The following code should help you get started.

#! /usr/bin/perl -w
my @output = `@ARGV`;
print "Error code is $?\nOutput is ", @output, "\n";

[download]

Run it with the name of the command (and its arguments) you want to execute. If the command you want to run requires its own redirections, or if you need to capture both the standard output and error streams, things get considerably trickier. It can be done albeit with a bit more code.

- another intruder with the mooring of the heat of the Perl

  • Comment on Re: how can I redirect the output of a program and get the exit code too?
  • Download Code

Replies are listed 'Best First'.
Re^2: how can I redirect the output of a program and get the exit code too?
by vikee (Sexton) on Jun 22, 2004 at 14:38 UTC 
    Thanks, it works.

and how can I get the output continuously?
it gives me the output after the command has been executed?

like this:

    open (OUTPUT, "command |");
while (<OUTPUT>)
   #do something with output
}

    [download]
    can I use $? here too?
[reply]
[d/l]

      Yes you can, but only if you call close OUTPUT before. The close function will put the return value to $?.

[reply]
[d/l]
[select]

        thanks again,

        everithing works, but i'm writing the output to a textwindow (Tk: Scrolled text) and it refreshes it only after the redirected program ends. It *, is it possible to solve this problem?

        Edited by Chady -- converted pre to p tags.

[reply]

In Section Seekers of Perl Wisdom