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

Re^5: How to compare 3 lists

by grizzley (Chaplain)
on Oct 26, 2012 at 11:07 UTC ( #1001048=note: print w/ replies, xml ) Need Help??


in reply to Re^4: How to compare 3 lists
in thread How to compare 3 lists

So that makes your problem really easy (untested code):

$isok = 1; for $logname("logfile1", "logfile2", "logfile3") { open FH, $logname ...; @isthisfileok=(0)x 6; while(<FH>) { $isthisfileok[$1]++ if /^snapshot([1-6])/; # last if /^snapshot([7-9]|\d{2,})/; # are snapshots sorted numeri +cally? then you don't have to search whole file if found snapshot7 or + other } close FH; $somesnapshotnotfound = grep $_ == 0, @isthisfileok; $isok = 0 if !$somesnapshotnotfound; last if !$isok; # don't scan another file if already not ok } print "everything ok" if $isok;


Comment on Re^5: How to compare 3 lists
Download Code
Re^6: How to compare 3 lists
by shammow (Novice) on Oct 26, 2012 at 13:13 UTC

    The actual output looks like -

    NAME tank/filesystem@hourly-1348093078_2012.10.24.13.30.03 tank/filesystem@hourly-1348093078_2012.10.24.14.30.01 tank/filesystem@hourly-1348093078_2012.10.24.15.30.03 tank/filesystem@hourly-1348093078_2012.10.24.16.30.01 tank/filesystem@hourly-1348093078_2012.10.24.17.30.02

    They are auto-created every hour and the command outputs them in date order (I can choose earliest or latest first), so using your example I would need to split on the '.' and pick up the date and hour I think

      Ok, then my approach is of no use in your case. Please use roboticus solution. I don't understand now how do you find snapshots 1-6. Are those the first 6 entries on master? So you could think about not scanning whole files, only 6 entries of master and as many from slaves as needed (date check) - in case the files are huge.

        Thanks for your time, I'll go ahead with the other solution, and feed back if that would be useful.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (9)
As of 2014-11-20 21:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (101 votes), past polls