3 # -------------------------------------------------------------------
4 # $Id: sqlt-dumper,v 1.5 2004-03-09 19:33:20 kycl4rk Exp $
5 # -------------------------------------------------------------------
6 # Copyright (C) 2002-4 SQLFairy Authors
8 # This program is free software; you can redistribute it and/or
9 # modify it under the terms of the GNU General Public License as
10 # published by the Free Software Foundation; version 2.
12 # This program is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 # General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with this program; if not, write to the Free Software
19 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
21 # -------------------------------------------------------------------
25 sqlt-dumper - create a dumper script from a schema
29 sqlt-dumper -d Oracle [options] schema.sql > dumper.pl
31 ./dumper.pl > data.sql
35 -h|--help Show help and exit
36 --skip=t1[,t2] Skip tables in comma-separated list
37 --skiplike=regex Skip tables matching the regular expression
38 -u|--user Database username
39 -p|--password Database password
44 This script uses SQL::Translator to parse the SQL schema and create a
45 Perl script that can connect to the database and dump the data as
46 INSERT statements (a la mysqldump) or MySQL's LOAD FILE syntax. You may
47 specify tables to "skip" (also using a "skiplike" regular expression)
48 and the generated dumper script will not have those tables. However,
49 these will also be options in the generated dumper, so you can wait to
50 specify these options when you dump your database. The database
51 username, password, and DSN can be hardcoded into the generated
52 script, or part of the DSN can be intuited from the "database"
57 # -------------------------------------------------------------------
63 use File::Basename qw(basename);
66 $VERSION = sprintf "%d.%02d", q$Revision: 1.5 $ =~ /(\d+)\.(\d+)/;
68 my ( $help, $db, $skip, $skiplike, $db_user, $db_pass, $dsn );
71 'd|f|from|db=s' => \$db,
73 'skiplike:s' => \$skiplike,
74 'u|user:s' => \$db_user,
75 'p|password:s' => \$db_pass,
79 pod2usage(0) if $help;
80 pod2usage( 'No database driver specified' ) unless $db;
81 $db_user ||= 'username';
82 $db_pass ||= 'password';
85 my $file = shift @ARGV or pod2usage( -msg => 'No input file' );
86 my $t = SQL::Translator->new(
91 skiplike => $skiplike,
93 db_password => $db_pass,
98 print $t->translate( $file );
102 # -------------------------------------------------------------------
108 Ken Y. Clark E<lt>kclark@cpan.orgE<gt>.
112 perl, SQL::Translator, SQL::Translator::Producer::Dumper.