Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re^5: Printing first and last line

by hbm (Hermit)
on Aug 14, 2012 at 14:19 UTC ( #987365=note: print w/ replies, xml ) Need Help??


in reply to Re^4: Printing first and last line
in thread Printing first and last line

This new data format is a good candidate for the "flip-flop" operator:

use strict; use warnings; my ($want, $got); while(<DATA>){ if (/Tracing route to/ .. /Trace complete/) { if (/Tracing route to ((?:\d+\.){3}\d+)/) { $want = $1; } elsif (/((?:\d+\.){3}\d+)/){ $got = $1; } elsif (/Trace complete/) { print "wanted $want, got $got\n"; $want = $got = ""; } } } __DATA__ Traceroute: 20 1291140121 1291140102 1291140102 LocalDNS 4.bp.blogspot +.com 74.125.127.102 Tracing route to 74.125.127.102 over a maximum of 20 hops 1 1 ms * 1 ms 192.168.1.1 2 14 ms 8 ms 9 ms 73.220.38.1 3 9 ms 9 ms 11 ms 68.87.207.65 4 21 ms 13 ms 13 ms 68.85.240.101 5 11 ms 17 ms 12 ms 68.85.240.94 6 15 ms 12 ms 13 ms 68.86.93.109 7 13 ms 14 ms 15 ms 68.86.85.205 8 17 ms 14 ms 13 ms 68.86.85.42 9 14 ms 13 ms 12 ms 75.149.231.90 10 16 ms 15 ms 18 ms 209.85.249.32 11 16 ms 13 ms 14 ms 66.249.94.195 12 23 ms 20 ms 21 ms 216.239.46.200 13 24 ms 23 ms 20 ms 64.233.174.103 14 72 ms 58 ms 22 ms 216.239.46.18 15 23 ms 19 ms 24 ms 74.125.127.102 Trace complete. Query: 11 1291140122 GoogleDNS 52.mgl.skyrock.net 1 True 0.28404291513 +2 0.218060020179 id 43103 opcode QUERY rcode NOERROR flags QR RD RA ;QUESTION 52.mgl.skyrock.net. IN A ;ANSWER 52.mgl.skyrock.net. 562 IN CNAME mgl50.gslb.skyrock.net. mgl50.gslb.skyrock.net. 10 IN A 91.203.186.8 ;AUTHORITY ;ADDITIONAL Query: 11 1291140122 GoogleDNS 52.mgl.skyrock.net 1 True 0.09980143832 +56 0.203481721767 id 37287 opcode QUERY rcode NOERROR flags QR RD RA ;QUESTION 52.mgl.skyrock.net. IN A ;ANSWER 52.mgl.skyrock.net. 562 IN CNAME mgl50.gslb.skyrock.net. mgl50.gslb.skyrock.net. 10 IN A 91.203.186.8 ;AUTHORITY ;ADDITIONAL Query: 13 1291140122 OpenDNS 6.media.collegehumor.com 1 True 0.2016434 +86473 0.0180179321429 id 21546 opcode QUERY rcode NOERROR flags QR RD RA ;QUESTION 6.media.collegehumor.com. IN A ;ANSWER 6.media.collegehumor.com. 600 IN CNAME 6.media.collegehumor.com.edgesu +ite.net. 6.media.collegehumor.com.edgesuite.net. 21600 IN CNAME a1835.g.akamai. +net. a1835.g.akamai.net. 1 IN A 209.107.205.50 a1835.g.akamai.net. 1 IN A 209.107.205.51 ;AUTHORITY ;ADDITIONAL Query: 13 1291140122 OpenDNS 6.media.collegehumor.com 1 True 0.0797040 +345855 0.0161269034938 id 29064 opcode QUERY rcode NOERROR flags QR RD RA ;QUESTION 6.media.collegehumor.com. IN A ;ANSWER 6.media.collegehumor.com. 600 IN CNAME 6.media.collegehumor.com.edgesu +ite.net. 6.media.collegehumor.com.edgesuite.net. 21600 IN CNAME a1835.g.akamai. +net. a1835.g.akamai.net. 1 IN A 209.107.205.50 a1835.g.akamai.net. 1 IN A 209.107.205.51 ;AUTHORITY ;ADDITIONAL Traceroute: 18 1291140122 1291140104 1291140104 GoogleDNS 4.media.coll +egehumor.com 92.122.217.179 Tracing route to 92.122.217.179 over a maximum of 20 hops 1 1 ms * 1 ms 192.168.1.1 2 11 ms 10 ms 8 ms 73.220.38.1 3 8 ms 7 ms 11 ms 68.87.207.65 4 24 ms 10 ms 8 ms 68.85.240.101 5 8 ms 10 ms 9 ms 68.85.240.94 6 21 ms 14 ms 14 ms 68.86.93.109 7 27 ms 27 ms 26 ms 68.86.85.162 8 29 ms 30 ms 32 ms 68.86.85.46 9 34 ms 32 ms 32 ms 68.86.87.6 10 29 ms 31 ms 30 ms 80.156.163.153 11 191 ms 243 ms 257 ms 62.154.5.25 12 186 ms 189 ms 204 ms 80.146.198.54 13 227 ms 193 ms 214 ms 92.122.217.179 Trace complete.

Prints:

wanted 74.125.127.102, got 74.125.127.102 wanted 92.122.217.179, got 92.122.217.179


Comment on Re^5: Printing first and last line
Select or Download Code
Re^6: Printing first and last line
by maheshkumar (Sexton) on Aug 16, 2012 at 13:23 UTC
    I am not sure but it is not working - any ideas?
Re^6: Printing first and last line
by maheshkumar (Sexton) on Aug 16, 2012 at 13:33 UTC
    for example 192.168.2.1 reached to 192.168.2.1 so i dont need that, it is giving me that result as well

      I left a little work for you. Surely you can compare $want and $got, and print only if they differ?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://987365]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (4)
As of 2014-09-23 05:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (210 votes), past polls