view release on metacpan or  search on metacpan

scripts/FINANCE_QUANT_CACHE  view on Meta::CPAN

  #@results,
  return  $orders;
}


sub tildeexp {
  my $path = shift;
  $path =~ s{^~([^/]*)} {  
          $1 
                ? (getpwnam($1))[7] 
                : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7])
          }ex;
  return $path;
}


END{

    my @fields =("changedDate","symbol","shares","avgFillPrice");

    my $meta = {"tablename"=>"orders"};