On Wed, 28 Nov 2001 [EMAIL PROTECTED] wrote:
> I am looking to run a command using perl and get its return value as well as
> its STDOUT. Currently I am doing is
>
> $result = system("$myCommand >out.txt");
> open(FILE,"< out.txt");
>
> and then processing the data from the file. This is terribly slow for my
> application. Is there some way where I can redirect the output directly to a
> variable and not have to do the file thing.
Certainly. Use the backtick operator to slurp all of the output at once,
use a scalar to store it all in one string, or put it into list context
and dump each line into an array.
my $result = `$myCommand`;
my @result = `$myCommand`;
If you think the output is going to be big, or you want to process each
line of output as it occurs, you can do this:
open CMD, "$myCommand |" or die "couldn't fork: $!\n";
while(<CMD>) {
do something if /some pattern to match/;
}
close CMD;
-- Brett
http://www.chapelperilous.net/
------------------------------------------------------------------------
The finest eloquence is that which gets things done.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
