Jeff Zucker wrote:

I forgot to mention that DBD::AnyData (which also handles CSV and "pipe delimited" formats) returns undef for NULL, so if you use DBD::AnyData or plain AnyData you can get the undefs you want.

Using plain AnyData, this will generate use of unitialized value warning for all NULL fields e.g. "a||b", the second of the three fields is NULL and returns undef.

use AnyData;
my $table = adTie('Pipe',$pipe_file);
while (my $row = each %$table) {
   for (keys %$row) {
       printf "<%s> ", $row->{$_};
   }
   print "\n";
}


-- Jeff

Reply via email to