Hey guys:
Do you think it would be better if I use the XBase
module instead of the Xbase module for this project?
Thanks.
Ted
--- Ted Yu <[EMAIL PROTECTED]> wrote:
> Hi Everyone:
>
> DBF files have this column that is "marked for
> deletion". There is an X in the first column if it
> is
> marked for deletion. I really need a way to
> identify
> this "marked for deletion" column. Appreciate any
> idea on how to identify this column. I am using the
> following method to read .dbf files:
>
>
> use Xbase;
>
> $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);
>
> foreach $temp (@vars)
> {
> $temp =~ s/[\n]$//;
> $temp =~ s/[\s]+/\t/g;
> @temp = split(/\t/, $temp);
> $varlist .= "@temp[2]\t";
> }
>
> chop($varlist);
>
> @varnames = split(/\t/, $varlist);
>
> while (!($database->eof))
> {
>
> @temp = $database->get_record;
>
> $varcount = 0;
> while ($varcount < @varnames)
> {
> [EMAIL PROTECTED] =
> @temp[($varcount
> - 1)];
>
> $varcount++;
> }
>
>
> $database->go_next;
> $count++;
> }
>
>
>
>
> _______________________________________________
> Perl-Win32-Users mailing list
> [email protected]
> To unsubscribe:
> http://listserv.ActiveState.com/mailman/mysubs
>
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
