in reply to Capturing output from a "moving" system call

Try it like this:

#!/usr/bin/perl

use warnings;
use strict;

my $cmd = 'top';

open(TOP, "-|", "$cmd");

while (<TOP>)
{
print "$_";
}
close (TOP);

:)

Respectfully,

Brother Hippsta
  • Comment on Re: Capturing output from a "moving" system call

In Section Seekers of Perl Wisdom