PERL: system and grabbing STDOUT

[Blaqb0x]

Hi,

If I use the system command in perl

system('/usr/bin/perl', 'pc.somedomain.com');

it returns 0 if successful and prints the pings to STDOUT(commandline)

how can I get all the info that is printed to STDOUT(the commandline?)

thanx,

[mcdougrs]

[quote author=Blaqb0x link=board=9;threadid=7006;start=0#65043 date=1052764046]
...
system('/usr/bin/perl', 'pc.somedomain.com');
...
[/quote]
Can't you just do this:

$info=system('usr/bin/perl', 'pc.somedomain.com');

[Blaqb0x]

I wish.

No, the system function returns 0 if it is successful.

[mcdougrs]

Can you pipe it to something else or append it to a file?

system('/usr/bin/perl', 'pc.domain.com') > $file;

Then just read the file into a variable, close and delete it?

[Blaqb0x]

No that doesn't work but I figured out that this does.


$output = `ping somemachine`;

print $output;


>> this prints out the ping