ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Eugene Bodin                         2:5020/400     15 Jul 2001  11:07:05
 To : All
 Subject : Re: Как создать базу MySQL из Perl
 -------------------------------------------------------------------------------- 
 

 Hello, Pankov Andrey <andries@krm.net.ua>! You wrote:
 AP> Как создать базу данных MySQL из Perl'a?
 AP>
 AP> Пробовал так:
 AP>
 AP> $dbh = DBI->connect("DBI:mysql", "admin", "admin");
 AP> $dbh->do("CREATE DATABASE $db_name");
 AP>                 или
 AP> $rc = $dbh->func('createdb', $db_name, 'admin');
 AP>
 AP> Пробовал и так:
 AP>
 AP> $drh = DBI->install_driver("mysql");
 AP> $rc = $drh->func('createdb', $db_name, 'localhost', $user_name,
 
 $password,
 
 AP> 'admin');
 
 А как оно не работает - в смысле - что говорит?
 
 У меня получилось так:
 
 #!/usr/bin/perl
 use strict;
 use DBI;
 $|= 1;              # Autoflush
 
 my $new_db      = "new_test_base";
 my $db_host     = "localhost";
 my $db_user     = "user";
 my $db_password = "password";
 
     print "INSTALL DRIVER\n";
     my $drh = DBI->install_driver('mysql') || die "$DBI::errstr\n";
     print " CREATE DB\n";
     my $rc = $drh->func("createdb", $new_db, 'admin') || die
 "$DBI::errstr\n";
 
 # и так:
 
     print "INSTALL DRIVER2\n";
     my $drh2 = DBI->install_driver('mysql')  || die "$DBI::errstr\n";
     print " CREATE DB2\n";
     my $rc2 = $drh2->func("createdb", $new_db . "2",
                          $db_host, $db_user, $db_password,
                          'admin') || die "$DBI::errstr\n";
 
 __END__
 
 А MySQLd запущен? ;-)
 А DBI и DBD::MySQL установлены?
 
 Best regards,
                  Eugene
 --- ifmail v.2.15dev5
  * Origin: Fidolook Express 2.000  www.fidolook.da.ru (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Как создать базу MySQL из Perl   Pankov Andrey   15 Jul 2001 07:28:00   Re: Как создать базу MySQL из Perl   Eugene Bodin   15 Jul 2001 11:07:05   Re: Как создать базу MySQL из Perl   Pankov Andrey   17 Jul 2001 08:26:17