Subversion Repositories camp_sysinfo_client_3

# 20200224 RWR v1.4.2

# Added tableToHash

# parameters

# $report - a reference to a report array (one line per row) 

# $headerRegex - optional regex to locate the first (header) line.

# $delimiter - optional delimiter used between header columns

# if $headerRegex is not defined, assumes first line is the headers

# if delimiter is not defined, assumes space is the delimitere

#

# Determines the field widths based on the header line

# processes each line in turn, returning an array ref, where each

# row is a hash ref. The hash ref has the key from the header, and

# the value found in the row.

sub tableToHash {

   my ($report, $headerRegex, $delimiter) = @_;

   my @return;

   my %headers;

   # get rid of any line returns at the end.

   chomp @{$report};

   my $lineNum = 0;

   # bypass all the header information, if $headerRegex is defined

   if ( $headerRegex ) {

      for ( $lineNum = 0; $lineNum < @{$report} && ${$report}[$lineNum] !~ m/$headerRegex/; $lineNum++ ) {}

   }

   if ( $lineNum < @{$report} ) { # did we get an actual report? some drives will not give us one

      # first, process the header line and get the start position and the length

      my $char = 0;

      while ( $char < length(${$report}[$lineNum]) ) {

         substr( ${$report}[$lineNum],$char ) =~ m/^([^ ]+\s*)/;

         my $header = $1;

         my $start = $char;

         my $length = length($header);

         if ( $header = &trim( $header ) ) {

            $headers{$header}{'start'} = $start;

            # note that if this is the last header, we do NOT want a lenght attribute

            $headers{$header}{'length'} = $length-1 if $length + $char < length(${$report}[$lineNum]);

         }

         $char += $length;

      }

      # now, get the data from all the following lines

      while ( ++$lineNum < @{$report} ) {

         last unless ${$report}[$lineNum]; # first blank line bails

         my %thisLine;

         foreach my $thisHeader (keys %headers) {

            $thisLine{$thisHeader} = &trim( 

               defined( $headers{$thisHeader}{'length'} ) ? 

                  substr( ${$report}[$lineNum], $headers{$thisHeader}{'start'}, $headers{$thisHeader}{'length'} )

                  : # if no length defined, grab everything to the end of the line

                  substr( ${$report}[$lineNum], $headers{$thisHeader}{'start'} )

               );

         }

         push @return, \%thisLine;

      }

   }

   return \@return;

}