#!/usr/bin/perl
print "\n";
print "\n";
$tables=`echo 'show tables' | mysql hepdata5test`;
@table=split/\n/,$tables;
print "\n";
print "| Tables |
|---|
\n";
foreach $n (1...$#table){
print "";
@field=split/\t/,$table[$n];
foreach $f (0...$#field){
if($field[$f] eq ''){$field[$f] = "-";}
print "| $field[$f] | ";
}
print "
\n";
}
print "
\n";
#print $tables;
foreach $n (1...$#table){
print "\n";
print " \n";
print "| $table[$n] |
|---|
\n";
$desc = `echo 'desc $table[$n]' | mysql hepdata5test`;
@desc = split/\n/,$desc;
foreach $n (0...$#desc){
print "";
@field=split/\t/,$desc[$n];
foreach $f (0...$#field){
if($field[$f] eq ''){$field[$f] = "-";}
print "| $field[$f] | ";
}
if($#field==4) {
print "- | ";
}
print "
\n";
}
# print "$desc";
# print "
\n";
}
print "\n";
print "\n";
exit 0;