Perl DBI 高级属性

1, NUM_OF_FIELDS — 查询返回的字段个数
在执行之后, 就可以用这个属性获得SELECT语句返回的字段数了, 如下所示:

$sth->execute();
 print("Number of fields: $sth->{NUM_OF_FIELDS}\n");

2, NAME, NAME_UC, NAME_LC — 取得字段名
这些属性是一个数组, NAME返回的是大小写混合的列名, NAME_UC是大写, NAME_LC是小写. 使用方法如下所示:

$sth = $dbh->prepare( "SELECT * FROM megaliths" );
 $sth->execute();
 for ( $i = 1 ; $i {NUM_OF_FIELDS} ; $i++ ) {
   print "Column $i is called $sth->{NAME}->[$i-1]\n";
 }

3, NULLABLE — 是否允许为空
使用方法同上, 0表示非空, 1表示可以为空, 2表示未知.
4, TYPE(类型), PRECISION(精度), SCALE(小数点)
使用方法同上.
5, NUM_OF_PARAMS — 需要绑定的变量个数
在Prepare之后可以用这个属性取得需要绑定的变量的个数, 如下所示:

$sth = $dbh->prepare(…);
 print("Bind Count: $sth->{NUM_OF_PARAMS}\n");