Shell Programming and Scripting

$ mkdir missing
$ cd missing
$ touch OOOAAAALOGS00001.txt OOOAAAALOGS00002.txt OOOAAAALOGS00003.txt OOOBBBBLOGS00005.txt OOOBBBBLOGS00006.txt OOOBBBBLOGS00007.txt OOOCCCCLOGS00007.txt OOOCCCCLOGS00008.txt OOOCCCCLOGS00010.txt
$ ls 
OOOAAAALOGS00001.txt	OOOAAAALOGS00003.txt	OOOBBBBLOGS00006.txt	OOOCCCCLOGS00007.txt	OOOCCCCLOGS00010.txt
OOOAAAALOGS00002.txt	OOOBBBBLOGS00005.txt	OOOBBBBLOGS00007.txt	OOOCCCCLOGS00008.txt

$ printf "%s\n" *.txt | awk -FLOGS '$1==P[1]{for(i=P[2]+1; i<$2+0; i++) printf "%s%05d\n", $1 FS, i} {split($0,P)}'
OOOCCCCLOGS00009

unset f1last
while read f
do
  f1=${f%LOG*}
  f2=${f#*LOG}
  f2=${f2%.txt}
  if [ $f1 = "$f1last" ]
  then
    if (( f2 != ( f2last + 1 ) ))
    then
     echo "Gap in $f1 between $f2last and $f2."
    fi
  fi
  f1last=f1
  f2last=f2
done < fn_list

#!/usr/bin/perl
# find_missing.pl
#
use strict;
use warnings;

sub missing {

    my $group = shift;
    my @inventory = sort { $a <=> $b } @$group;

    my $last_seen = $inventory[0];
    my @missing;

    for my $vector (@inventory) {

        # detect missing numbers in the sequence
        if ( $vector - $last_seen > 1 ) {
	    # keep record of missing numbers so far
            push @missing, ( $last_seen + 1 .. $vector - 1 );
        }
	# move the head point of the search
        $last_seen = $vector;
    }
    return \@missing;
}

my %file_groups;
# index file name root into groups
while ( my $line = <> ) {
	chomp $line;
	# separate root of filename from serial and extention
	my ($group, $serial) = $line =~ /(\S+LOGS)(\d+)\.txt/;
	push @{$file_groups{$group}}, $serial;
}

# identify missing serials, if any, for each group
for my $group (keys %file_groups) {
	my $vacancies = missing($file_groups{$group});
	# found any?
	if (@$vacancies) {
		print "Missing files for group $group:\n";
		foreach (@$vacancies) {
			print "$group$_.txt\n";
		}
	}
}

cat file.list
OOOAAAALOGS400001.txt
OOOAAAALOGS400002.txt
OOOAAAALOGS400003.txt
OOOBBBBLOGS400001.txt
OOOBBBBLOGS400002.txt
OOOBBBBLOGS400003.txt
OOOCCCCLOGS400001.txt
OOOCCCCLOGS400002.txt
OOOCCCCLOGS400004.txt
OOOABCDELOGS40003.txt
OOOABCDELOGS40005.txt
OOOABCDELOGS40008.txt

perl find_missing.pl file.list
Missing files for group OOOCCCCLOGS:
OOOCCCCLOGS400003.txt
Missing files for group OOOABCDELOGS:
OOOABCDELOGS40004.txt
OOOABCDELOGS40006.txt
OOOABCDELOGS40007.txt

awk '{T=substr($0,4,4); C=substr($0,13,6); if (T != TA) {CA=C;TA=T}; while (CA<=C) print "OOO"T"LOGS"CA++".txt"}' file

unset f1last ; while read f
do
  f1=${f%LOGS*}
  f2=${f#*LOGS}
  f2=${f2%.txt}
  if [ $f1 = "$f1last" ]
  then
    if (( f2 != ( f2last + 1 ) ))
    then
     echo "Gap in $f1 between $f2last and $f2."
    fi
  fi
  f1last=$f1
  f2last=$f2
done <<!
OOOAAAALOGS400001.txt
OOOAAAALOGS400002.txt
OOOAAAALOGS400003.txt
OOOBBBBLOGS400001.txt
OOOBBBBLOGS400002.txt
OOOBBBBLOGS400003.txt
OOOCCCCLOGS400001.txt
OOOCCCCLOGS400002.txt
OOOCCCCLOGS400004.txt
OOOABCDELOGS40003.txt
OOOABCDELOGS40005.txt
OOOABCDELOGS40008.txt
!
Gap in OOOCCCC between 400002 and 400004.
Gap in OOOABCDE between 40003 and 40005.
Gap in OOOABCDE between 40005 and 40008.