Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re^2: Parsing a text file to get the location of the latest

by NetWallah (Abbot)
on Nov 03, 2012 at 04:47 UTC ( #1002074=note: print w/ replies, xml ) Need Help??


in reply to Re: Parsing a text file to get the location of the latest
in thread Parsing a text file to get the location of the latest

This one-line does the job (With your current sample data):

perl -000 -ne '($l,$d)=m/Location:\s+(\S+).+BuildDate:\s+(\d.+\d)/s; ( +$lm,$ld)=($l,$d) if $d gt $ld and m/Approved/s}{print qq|$lm\n|' YOUR +-FILE-NAME.txt
Note1 - the Date compare logic is very weak - it simply does a textual compare.
Note2 - "Approved" verification is very weak.
This is a working sample - you can use it to build a more robust program.
Change single-quotes to double, if you use Window$.

Update: Oops - I had intended to respond to the original post - but got OGB's post instead. Sorry.

             "By three methods we may learn wisdom: First, by reflection, which is noblest; Second, by imitation, which is easiest; and third by experience, which is the bitterest."           -Confucius


Comment on Re^2: Parsing a text file to get the location of the latest
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (4)
As of 2015-07-03 22:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (57 votes), past polls