dmouille has asked for the wisdom of the Perl Monks concerning the following question:

Hello Monks,

Is there a way to redirect the output of a qx command to a logfile. I could write:

print `$doscommand`;,

after redirecting STDOUT. I'd really like to just be able to write something like:

`$doscommand`

Thanks

Replies are listed 'Best First'.
Re: qx command outputs
by dws (Chancellor) on Jan 15, 2002 at 04:55 UTC
    Is there a way to redirect the output of a qx command to a logfile.

    Would   system("$doscommand > $logfile"); work? It's a little less work than 

      open(LOG, ">$logfile") or die "$logfile: $!";
  print LOG `$doscommand`;
  close LOG;

    [download]
[reply]
[d/l]
[select]
      Using the shell to redirect the output could be very bad. It's rather insecure and you are relying upon the shell to parse more. For example, this appears to be M$, if $logfile contains any spaces this will fail, you would need: 
      print system(qq($doscommand > "$logfile"));

      [download]
      Though I think 
      #replace . w/ . if 5.6++
open(LOG, '>>'. $logfile);
print LOG qx($doscommand);

      [download]
      would be better.

      --
      perl -pe "s/\b;([st])/'\1/mg"

[reply]
[d/l]
[select]
Re: qx command outputs
by rbc (Curate) on Jan 15, 2002 at 04:56 UTC
    Why not do ...

    `$doscommand > $logfile`

    --
    Its like a dog that can sing and dance.
    It's remarkable because it can do it.
    Not that it can do it well.
[reply]
      Don't you mean...

      "Sir, a woman's preaching is like a dog's walking on his hind legs.
      It is not done well; but you are surprised to find it done at all."

      -Samuel Johnson
[reply]

Back to Seekers of Perl Wisdom