Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: using Backtick inside perl gives different output

by johngg (Abbot)
on Oct 07, 2013 at 18:01 UTC ( #1057291=note: print w/replies, xml ) Need Help??

in reply to using Backtick inside perl gives different output

As Laurent_R points out, this can be much more simply done in Perl. Taking your raw output as my input, I grep any lines of interest then pass them through a map. Split breaks each line up and I pull out the 9th element (subscript 8 as subscripts are zero-based) from the map and print it.

$ perl -Mstrict -Mwarnings -E ' open my $ntpqFH, q{<}, \ <<EOD or die $!; remote refid st t when poll reach delay offset + disp ====================================================================== +======== LOCAL(0) LOCAL(0) 10 l 34 64 377 0.00 0.000 + 10.01 *gpstime.domain.l .PPS. 1 u 879 1024 377 1.85 -0.02 +5 0.03 hitman.domain.lo 16 - - 1024 0 0.00 0.00 +0 16000.0 EOD my @asteriskLines = grep m{^\*}, <$ntpqFH>; say for map { ( split )[ 8 ] } @asteriskLines;' -0.025 $

I hope this is of interest.



Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1057291]
[1nickt]: The best way is to scope it tightly so it just goes away when you are finished with it.
[perldigious]: but... but... perldigious is the unvirtuous kind of lazy in this case. :-)
[perldigious]: Just kidding. Thanks 1nickt, I'll go ahead and do it the right way. An extra set of brackets and a little extra indentation isn't too much to ask.
[karlgoethebier]: perldigious: perhaps a block if you are paranoid ;-)
[choroba]: but undef %hash and %hash = () both work, too, but the first one keeps the memory allocated, while the latter makes it available for other parts of the program.
[choroba]: iirc
[perldigious]: karlgoethebier: Well it is a pretty old and complicated (for me) bit of code I wrote (poorly by my current standards), so I'm expecting everything to break when I add the scoping and find out what else is undesireably scope changed. :-)

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (7)
As of 2017-07-21 19:49 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (335 votes). Check out past polls.