Модераторы: ginnie, korob2001
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Создание fpt, cdx на perl 
:(
    Опции темы
lionking
Дата 20.8.2012, 09:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Как создать fpt и cdx при создании dbf на perl?
Для создания dbf использую DBD::XBase:
Код

#!/usr/bin/perl -w



use strict;

use XBase;



my $table = XBase->create("name" => "new.dbf",

                "field_names" => [ "NUMERO","NOM","PRENOM","NOMKJ","PRENOMKJ","DATE","SECU","RUE","CODE","VILLE","TEL1","TEL2","INFO","PHOTO","EXTNUM" ],

                "field_types" => [ "C","C","C","C","C","D","C","C","C","C","C","C","M","C","C" ],

                "field_lengths" => [ 8,40,30,16,16,8,31,32,10,25,20,20,10,1,16 ],

                "field_decimals" => [ undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef ]);

$table->set_record(0,"S0000001","\"SAMPLE\"","JOHN","","","19800101","Security Social number","1111 Anystreet","","22222 Anytown","Phone number 1","Phone number 2","Comments ...","B","S0000001");

$table->set_record(1,"S0000002","-PROXIMAL CARIES","DEMO","","","19970107","","","","","","","Logicon Caries Detector Demo","","S0000002");

undef $table;

с этим кодом создаются dbf и dbt.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: Системное программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к системному программированию на Perl
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

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


 




[ Время генерации скрипта: 0.1103 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.