bin/dump_genotypes.pl

   1
   2 use strict;
   3
   4 use Getopt::Std;
   5 use CXGN::DB::InsertDBH;
   6 use CXGN::Phenome::DumpGenotypes;
   7
   8 our ($opt_H, $opt_D, $opt_f);
   9
  10 getopts('H:D:f:');
  11
  12
  13 my $dbh = CXGN::DB::InsertDBH->new({
  14     dbhost => $opt_H,
  15     dbname => $opt_D,
  16     });
  17
  18 my $file = $opt_f;
  19
  20 print STDERR "Dumping...\n";
  21
  22 CXGN::Phenome::DumpGenotypes::dump_genotypes($dbh, $file);
  23
  24 print STDERR "Done.\n";