Shell Programming and Scripting

Per version  : /opt/acc_perl/lib/site_perl/5.14.2
 
Read in 54973 total records
Read in 54973 table records from table.
Out of memory!

{
Function () :

#####################################################################
  # Return a sorted list of hash references for the dimension
  # May be scoped to certain types
  #####################################################################
  my $self = shift;
  my ($ret, $scope);
            $scope  = 'prod'    unless @_;
            $scope  = $_[0]     if (@_ == 1);
     ($ret, $scope) = @_        if (@_ == 2);
  return @{$self->{NEW_ITEM}}   if ($scope =~ /^new_?items?$/i);
  return @{$self->{GEOG_NO}}    if ($scope =~ /^geog_?no$/i);
  return @{$self->{PRODBYLVL}}  if ($scope =~ /^prodbylvl/i);