12 my $startOfColumnTypes = 8;
17 my $rowlength = ord substr($dbd, 0, 1);
18 my $numcolumns = ord substr($dbd, 2, 1);
21 ord substr($dbd, 4, 1),
22 ord substr($dbd, 5, 1),
23 ord substr($dbd, 6, 1),
25 my $delimiter = sprintf(
27 ord substr($dbd, 7, 1),
30 my $colnames = substr($dbd, $startOfColumnTypes + 7*$numcolumns - 2);
31 my @col = split(/\x00/, $colnames);
33 #print "Row length: $rowlength\n";
34 #print "Columns: $numcolumns\n";
35 #print "Extra data: $extra\n";
36 #print "Delimiter: $delimiter\n";
38 for (my $i = 1; $i <= $numcolumns; $i++) {
39 my $coltype = substr($dbd, 7*($i-1)+$startOfColumnTypes, 1);
40 my $collength = ord substr($dbd, 7*($i-1)+$startOfColumnTypes+1, 1);
41 printf ("Column %0" . length($numcolumns) . "d: %-8s %s (%d chars)\n", $i, $coltypes{$coltype}, $col[$i-1], $collength);