为getting type info文档包括这块建议代码获取代码和整数之间的映射:Perl DBI常量 - 如何访问?
foreach (@{ $DBI::EXPORT_TAGS{sql_types} }) {
printf "%s=%d\n", $_, &{"DBI::$_"};
}
但Perl的5.16.2不会允许它:
Can't use string ("DBI::SQL_GUID") as a subroutine ref while "strict refs" in use
我不知道如何关闭strict refs,我怀疑这不是作者的意图,任何人都这样做。这个子程序如何完成?