Форумы портала PHP.SU :: Версия для печати

1. android - 08 Марта, 2013 - 18:29:55 - перейти к сообщению

Здравствуйте, есть сторонний скрипт 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
 