Здравствуйте, есть сторонний скрипт 1 и в его настройках выставляется база:
server=base.db
Так вот, хотел бы узнать как можно с помощью perl симулировать файл db
Писал внутри файла так:
PHP:
скопировать код в буфер обмена
#!/usr/bin/perl -w use DBI; my $host = "localhost"; # вымышленный MySQL-сервер my $port = "3306"; # порт, на который открываем соединение my $user = "test"; # имя пользователя (вымышленное) my $pass = "123456"; # пароль my $db = $user; # имя базы данных -по умолчанию равно имени пользователя print "Content-type: text/html\n\n"; $dbh = DBI->connect("DBI:mysql:$db:$host:$port",$user,$pass); $sth = $dbh->prepare("select * from test");# готовим запрос $sth->execute; # исполняем запрос while ($ref = $sth->fetchrow_arrayref) { if($$ref[3]) { print "[info/$$ref[1]:$$ref[2]]\n"; # печатаем результат } } $rc = $sth->finish; # закрываем $rc = $dbh->disconnect; # соединение
Сам скрипт base.db работает корректно, но при запуске самого скрипта 1 показывает ошибку:
CODE ( htmlphp):
скопировать код в буфер обмена
ERROR : [DB .08381AC8 ] Error 26 executing sql query : file is encrypted or is not a database ERROR : DBException (26 ) : Error executing sql query : file is encrypted or is not a database ^Z
(Отредактировано автором: 08 Марта, 2013 - 18:49:08)
|