Werner Otto wrote:
>
> Hi there,
Hello,
> I am trying to do the following:
>
> $string = system ("ping -a $hostname | cut -c20-30");
Use the Net::Ping module instead.
http://search.cpan.org/~bbb/Net-Ping-2.31/
> This result returns 0 which is suppose to indicate success. But it never
> proves me wrong it always stays un-changed at 0.
>
> More to the point. I am trying to store the value returned, which would be
> "is alive" in a string variable. How would I go about it.
>
> I've tried $string = " ";
> and then
> $string .= $string + system ("ping -a $hostname | cut -c20-30");
If you want to get the standard output of the command as well as the return
value then this should work:
my $string = join '', map substr( $_, 19, 11 ), qx/ping -a $hostname/;
my $result = $? >> 8;
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
