#!/usr/local/bin/perl
use strict;
use Getopt::Long;
my $fields = '';
my $delimiter = "\t";
my $newline;
my $pred;
my @pre = ();
my @th;
my $border = 0;
my $tharg = "";
my $tdarg = "";
my $tblclass = "sortable";
my $tblid = "stats_table";
my $title = "OBO Ontology Statistics";
GetOptions("th|t=s@"=>\@th,
"delimiter|d=s"=>\$delimiter,
"newline=s"=>\$newline,
"predicate|p=s"=>\$pred,
"pre=s@"=>\@pre,
"border=s"=>\$border,
"tharg=s"=>\$tharg,
"tdarg=s"=>\$tdarg,
"tblclass|c=s"=>\$tblclass,
);
if ($newline) {
$/ = $newline;
}
else {
$newline = "\n";
}
$tharg = " $tharg" if $tharg;
$tdarg = " $tdarg" if $tdarg;
$delimiter = '\s+' if $delimiter eq 'ws';
print "\n";
print "\n";
print '',"\n";
print "$title\n";
print "