Общие > Базы данных

Экспорт БД (*.sql) на сервер

<< < (2/3) > >>

Chs:
Файл - *.sql большой?

Chs:

--- Код: ---
#!/usr/bin/perl
#########################
# Chs [url]http://chs.now.at[/url] #
# loadmsql.cgi                             #
#########################
use strict;
use CGI qw(param);
use CGI::Carp qw(fatalsToBrowser);
use DBI;

sub DBconnect()
{
my $db_host = "localhost";
my $db_name = "wakka";
my $db_user = "root";
my $db_pass = "";
my $dbh;

if ($db_user ne \'\')
{
$dbh = DBI-> connect("DBI:mysql:database=$db_name;host=$db_host",$db_user,$db_pass,{RaiseError=>1});
}
else
{     $dbh = DBI-> connect("DBI:mysql:database=$db_name;host=$db_host",{RaiseError=>1});
}

return $dbh;
}

$| = 1;

print "Content-type:text/plain\\n\\n";
my $file = param(\'file\');
open(INP, "< ".$file) || die($!);

my $dbh = DBconnect();

my $cmd = "";


while()
{
next if (m/^#/);
if (m/;/)
{
my @parts = split(/;/);
$cmd .= shift @parts;
#exec sql
print "Executed:".$cmd."\\n" if ($dbh-> do($cmd));
$cmd = shift(@parts) || "";
}
else
{
$cmd .= $_;
}
}
close INP;

print "Done.\\n";

--- Конец кода ---


Значит так - вот скрипт, который закачает базу.
В нем нужно поменять настройки в DBconnect:
   my $db_host = "localhost";
   my $db_name = "wakka";
   my $db_user = "root";
   my $db_pass   = "";
Хост, имя базы, пользователь, пароль.
Файл закачать вместе со скриптом на сервер
и вызвать скрипт http://myhost/cgi-bin/loadmsql.cgi?file=out.sql

Foshvad:
ух-ты, а на PHP такое сть?

AZone:
Великолепно, но на хостинге запрещено использование CGI скриптов для меня... Может, и правда на PHP есть?

Кстати, файл = 1MB

Chs:
На PHP - это к PHP-стам.:))
Может напишет кто.:)

Навигация

[0] Главная страница сообщений

[#] Следующая страница

[*] Предыдущая страница