http://www.perlmonks.org?node_id=149974


in reply to dump_mysql.pl - when you don't have mysqldump

Nice job.
Some comments on the implementation:
The table structure can be created by adding this snippet:
# after printing the initial table comments print $dbh->selectall_arrayref("SHOW CREATE TABLE $table")->[0][1],"\n +";
Adding some parameters to let the user decide whether or not having this creation statement and maybe a DROP TABLE before it should be straightforward. Check Getopt::Long for some help.
 _  _ _  _  
(_|| | |(_|><
 _|