#!/usr/bin/env perl
#######################################################################
# routine: linesize
#
# purpose: Count the size of a line
#
# inputs:  Input file
#
# returns: -1 = linesize: Failed to open input file
#           N = maximum line size of input file
#
# modification history:
#
#   date    opr     who     reason
# -------- -----  --------  --------------------------------------
# 10/10/01 44343  Sherbert  have a subroutine count line sizes
# 05/03/02 45707  Sherbert  make subroutine available to any perl script
# 
#######################################################################

sub linesize {
   my ($inputfile) = @_;
   my ($line, $size);
   my $quit_this_dataset = -1;
   unless (open (DATAFILE, "<$inputfile")) {    ## dying is bad so do this:
      return $quit_this_dataset;
   }

   my $maxsize = 0;
   while (defined ($line = <DATAFILE>)) {
      $size = length $line;
      if ( $size > $maxsize ) { $maxsize = $size }
   }
   close (DATAFILE);
   return $maxsize;
}
1;