#!/usr/bin/perl
# The Missing Textutils, Ondrej Bojar, obo@cuni.cz
# http://www.cuni.cz/~obo/textutils
#
# 'seqcheck' checks if the stdin contains a non-interrupted sequence of rising
# integers.
#
# $Id: seqcheck,v 1.3 2006/04/11 12:54:04 bojar Exp $

while (<>) {
  chomp;
  if ($last +1 != $_) {
    print STDERR "Gap after $last, skipped to $_\n" if defined $last;
  }
  $last = $_;
}