Как создать 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. |