Diff of /Sprout/ERDB.pm

-revision 1.47, Sun Jun 18 05:14:56 2006 UTC
+revision 1.48, Wed Jun 21 03:12:20 2006 UTC
 Line 2072
      return $objectData->{Fields};
  }
+ =head2 Data Mining Methods
  =head3 GetUsefulCrossValues
  C<< my @attrNames = $sprout->GetUsefulCrossValues($sourceEntity, $relationship); >>
-Line 2133
+Line 2135
      return @retVal;
  }
+ =head3 FindColumn
+ C<< my $colIndex = ERDB::FindColumn($headerLine, $columnIdentifier); >>
+ Return the location a desired column in a data mining header line. The data
+ mining header line is a tab-separated list of column names. The column
+ identifier is either the numerical index of a column or the actual column
+ name.
+ =over 4
+ =item headerLine
+ The header line from a data mining command, which consists of a tab-separated
+ list of column names.
+ =item columnIdentifier
+ Either the ordinal number of the desired column (1-based), or the name of the
+ desired column.
+ =item RETURN
+ Returns the array index (0-based) of the desired column.
+ =back
+ =cut
+ sub FindColumn {
+     # Get the parameters.
+     my ($headerLine, $columnIdentifier) = @_;
+     # Declare the return variable.
+     my $retVal;
+     # Split the header line into column names.
+     my @headers = ParseColumns($headerLine);
+     # Determine whether we have a number or a name.
+     if ($columnIdentifier =~ /^\d+$/) {
+         # Here we have a number. Subtract 1 and validate the result.
+         $retVal = $columnIdentifier - 1;
+         if ($retVal < 0 || $retVal > $#headers) {
+             Confess("Invalid column identifer \"$columnIdentifier\": value out of range.");
+         }
+     } else {
+         # Here we have a name. We need to find it in the list.
+         for (my $i = 0; $i <= $#headers && ! defined($retVal); $i++) {
+             if ($headers[$i] eq $columnIdentifier) {
+                 $retVal = $i;
+             }
+         }
+         if (! defined($retVal)) {
+             Confess("Invalid column identifier \"$columnIdentifier\": value not found.");
+         }
+     }
+     # Return the result.
+     return $retVal;
+ }
+ =head3 ParseColumns
+ C<< my @columns = ERDB->ParseColumns($line); >>
+ Convert the specified data line to a list of columns.
+ =over 4
+ =item line
+ A data mining input, consisting of a tab-separated list of columns terminated by a
+ new-line.
+ =item RETURN
+ Returns a list consisting of the column values.
+ =back
+ =cut
+ sub ParseColumns {
+     # Get the parameters.
+     my ($self, $line) = @_;
+     # Chop off the line-end.
+     chomp $line;
+     # Split it into a list.
+     my @retVal = split(/\t/, $line);
+     # Return the result.
+     return @retVal;
+ }
  =head2 Internal Utility Methods
  =head3 SetupSQL

 Legend:



Removed from v.1.47
 


changed lines


 
Added in v.1.48
 Legend:



Removed from v.1.47
 


changed lines


 
Added in v.1.48
-Removed from v.1.47
+Added in v.1.48

MCS Webmaster	ViewVC Help
Powered by ViewVC 1.0.3