ctlinnd renumber '' catch 22

[David L. Nicol]

Karl Kleinpaste wrote:
  (I
> ought to perlify this, but I Don't Do Perl [much].)  Finally, restart
> INN so that it doesn't get the -r flag.


here you go...

#!/usr/bin/perl -n

	($gr,$hi,$lo,$md) = split;
	( $d = $gr ) =~ tr#\.#/#;
	opendir DIR, $d;
	@list = sort (grep /^\d+$/, (DIR));
        $last=shift @list;
        printf "%s %010d %010d %s\n", $gr, $last, $lo, $md;

__END__


-- 
                      David Nicol 816.235.1187 dnicol at cstp.umkc.edu
                                    "Described as awesome by users"