Question about perl Xbase module

[Ted Yu]

Xbase module occassionally cuts off the last letter of the dbf fields.  Am I the only one who gets this problem?  Here is my code:

 

  $database = new Xbase;
  $database->open_dbf("$upload_file_path_name$filename");
  $database->go_top;
 
  open(STDOUT, ">dbf_fields.txt");
  $database->dbf_stat;
  close(STDOUT);

  open(VARS, "dbf_fields.txt");
  @vars = <VARS>;
  close(VARS);

 

Here is the result of opening dbf_fields.txt.  Not sure what's wrong.

 

No. Field     Type  Disp  Len  Dec
  1 COS          N     1   10    2
  2 CO_I         C    11    7    0
  3 DEPOSIT_N    C    18    7    0
  4 EVEN         C    25   50    0
  5 EVENT_DAT    D    75    8    0
  6 GROUP_N      C    83    7    0
  7 LAYOU        C    90    1    0
  8 NU           N  !   91    3    0
  9 ON_HOL       L    94    1    0
 10 CONSIG       L    95    1    0
 11 CONSIGN_C    C    96    7    0
 12 OFFIC        C   103    1    0
 13 PO_N         C   104    7    0
 14 PRIC         N   111   10    2
 15 RO           C   121    3    0
 16 SEAT_        C   124    3    0
 17 SEAT_        C   127    3    0
 18 SE           C   130    8    0
 19 SELECTE      C   138    1    0
 20 SINC         D   139    8    0
 21 SRC_COD      C   147   15    0
 22 VENU         C   162  100    0
 23 USE          C   262    8    0
 24 NOT          C   270   50    0
 25 FACE_VALU  &nbs! p; N   320   10    2
 26 TAXABL       C   330    1    0
 27 UNTIL_DAT    D   331    8    0
 28 UNTIL_TIM    C   339    5    0
 29 HELDB        C   344    8    0
 30 OPPONEN      C   352   50    0
 31 TIM          C   402    5    0
 32 TXCR_T       L   407    1    0
 33 TRADER_I     N   408   10    0
 34 I            C   418   10    0
 35 XREF_I       C   428   10    0
 36 XCHANG       L   438    1    0
 37 XPRIC        N   439   10    2
 38 EVTYP        C   449    8    0
 39 REGIO        C   457   10    0
 40 MBE_NOT      C   467   50    0
 41 MASKSEA      L   517    1    0
 42 MASKSE       L   518    1    0
 43 MASKRO       L   519    1    0
 44 MAP_I        C   520   10    0
 45 MERGE        L   530    1    0
 46 MODIFIE      L   531    1    0
 47 TOBEFILLE    L   532    1    0
 48 S            C   533    2    0
 49 TBA_TEX      C   535    8    0
 50 WE           L   543    1    0
 51 WEBPRIC      N   544   10    2

_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs