Re^5: 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;
[download]

Comment on Re^5: How to compare 3 lists Download Code

Replies are listed 'Best First'.
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` [download] 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	[reply] [d/l]
Re^7: How to compare 3 lists by grizzley (Chaplain) on Oct 26, 2012 at 13:56 UTC
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.	[reply]
Re^8: How to compare 3 lists by shammow (Novice) on Oct 26, 2012 at 14:51 UTC
Thanks for your time, I'll go ahead with the other solution, and feed back if that would be useful.	[reply]


Do you know where your variables are?
	PerlMonks