Werkzeug zum Füllen von Datenbanken

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]

filldb.pl
#!/usr/local/bin/perl -w

use Getopt::Std;
use DBI;
use Mysql::Admin qw(dbi_connect);
use strict;

my $cmdname = $0; $cmdname =~ s{.*/}{};
my $usage = "Usage: $cmdname [-c] [-d delim] " .
            "dbdir table #rows {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 $rows = 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.
 

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000