#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my $ocekavany = {
		  1 => [37..39],
		  2 => [31..33, 36..39],
		  3 => [30..33, 36..40],
		  4 => [30..45],
		  5 => [29..47],
		  6 => [26..50],
		  7 => [25..54],
		  8 => [22..58],
		  9 => [21..58],
		 10 => [22..57],
		 11 => [18,23..57],
		 12 => [15..18,22..57],
		 13 => [14..18,22..55],
		 14 => [11..18,21..56],
		 15 => [11..57],
                 16 => [12..56],
                 17 => [9,11..56],
		 18 => [7..55],
		 19 => [5..55],
		 20 => [4..55],
		 21 => [4..54],
		 22 => [4..53],
		 23 => [3..52],
		 24 => [3..52],
		 25 => [2..51],
		 26 => [5..50],
		 27 => [6..50],
		 28 => [8..48],
		 29 => [9..47],
		 30 => [9..32],
		 31 => [10..31],
		 32 => [11..28,38..45],
		 33 => [13..27,39..44],
		 34 => [19..22],
		 35 => [20],
		};

foreach my $x (sort {$a <=> $b} keys %{$ocekavany}) {
  foreach my $y (sort {$a <=> $b} @{$ocekavany->{$x}}) {
    my $file = sprintf("OZFX3/%.2d-%.2d", $x, $y);

    my $cnt = `ls -1 $file*| wc -l `; chomp($cnt);

    unless ($cnt eq 3) {
      warn "$file is missing!\n";
      my $g = sprintf("%.2d-%.2d", $x, $y);
      warn `grep $g /tmp/p?`;
    };


  };
};



#warn Dumper($ocekavany);