VPF::при компиляции прграммы выдается ошибка

izver84

Дата 18.11.2009, 14:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 302
Регистрация: 5.11.2007

Репутация: нет
Всего: 1

Есть рабочая прога(выполняет перенос данных из дбф в постгресс)

Код


use DBD::Xbase;
use DBI;
use Encode qw /from_to/;
# имя базы данных
$dbname = name;
# имя пользователя
$username = "postgres";
# пароль
$password = "***";
# имя или IP адрес сервера
$dbhost = ip;


my $dir = "s://molds//copy";
my $xbase_dbh = DBI->connect("DBI:XBase:$dir", undef, undef, {RaiseError =>1});
$dbh = DBI->connect("dbi:PgPP:dbname=$dbname;host=$dbhost","$username","$password",
            {PrintError => 0});

if ($DBI::err != 0) {
  print $DBI::errstr . "\n";
  exit($DBI::err);
}

my $sel = "SELECT apl,datd,...,zapret FROM sl215.dbf order by kpl";
my $sel_csr = $xbase_dbh->prepare($sel);
$sel_csr->execute();

@st=();
while ( @row = $sel_csr->fetchrow_array )
{
 foreach $st(@row)
{push(@st,$st."\t");}

$qw="Insert into s_plat1 (apl,datd,...,zapret) values(substr('$st[-24]',1,20),substr('$st[-23]',1,6),...,$st[-1])";
Encode::from_to ($qw, 'cp866', 'utf8');
$pgb = $dbh->prepare($qw) or die "Prepare: $qw", $dbh->errstr;
$pgb->execute or die "Executing: $qw", $pgb->errstr;
}

хотел сделать экзешник.
Делаю через aktive state perl kit 7.2.

выдает ошибку

Код


DBD\Xbase.pm:
    error: Case mismatch between module and file name
    refby: imports215.pl line 1
    file: C:\Perl\site\lib\DBD\XBase.pm

line 1-

Код


use DBD::Xbase;

В чем прорблема?

--------------------

Если новая программа с первого раза компилируется без ошибок, значит, она написана принципиально неправильно.

shamber

Дата 18.11.2009, 15:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: 17
Всего: 18

Cava Packager?

izver84

Дата 18.11.2009, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 302
Регистрация: 5.11.2007

Репутация: нет
Всего: 1

shamber, не понял?
В смысле?

Это сообщение отредактировал(а) izver84 - 18.11.2009, 15:16

--------------------

shamber

Дата 18.11.2009, 15:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: 17
Всего: 18

izver84,в смысле пропробовать Cava Packager

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »