Werkzeug zum Füllen von Datenbanken

filldb.pl

#!/usr/local/bin/perl use strict; use warnings; use DBI; use Getopt::Std; use Mysql::Admin qw(dbi_connect); my $cmdname = $0; $cmdname =~ s{.*/}{}; my $usage = "Usage: $cmdname [-c] [-d delim] " . "dbdir table #cols {file}\n"; my %opts = (); getopts('cd:', \%opts); my $delim = '\s+'; $delim = $opts{d} if defined($opts{d}); my $strip_comments = defined($opts{c}); die $usage unless @ARGV >= 3; my $dbdir = shift; my $table = shift; my $cols = shift; my $db = DBI->connect(dbi_connect($dbdir), "", ""); die "$cmdname: unable to connect to db: $DBI::errstr\n" unless defined $db; $db->{RaiseError} = 1;

Mit Mysql::Admin können sehr bequem MySQL-Datenbanken eröffnet werden, die nach unserem Schema kreiert worden sind.