Re: using Backtick inside perl gives different output

in reply to using Backtick inside perl gives different output

Another way to do it:

#!/usr/bin/perl
use strict;
use warnings;

open my $cmd, '-|', '/usr/sbin/ntpq', '-p' or die "Cannot open pipe fr
+om ntpq because: $!";

while ( <$cmd> ) {
    my $offset = ( split )[ 8 ];
    print "$offset\n" if /^\*/;
    }

close $cmd or warn $! ? "Error closing ntpq pipe: $!"
                      : "Exit status $? from ntpq";
[download]

Comment on Re: using Backtick inside perl gives different output Download Code

In Section Seekers of Perl Wisdom