sql - Perl DBI 常量 - 如何访问？

Question

getting type info 的文档包括这段用于获取代码和整数之间映射的建议代码:

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，而且我怀疑有人这样做并不是作者的本意。这个子程序调用如何完成？

Answer 1

你可以通过这样做关闭严格的'refs'

{
    no strict 'refs';
    foreach (@{ $DBI::EXPORT_TAGS{sql_types} }) {
        printf "%s=%d\n", $_, &{"DBI::$_"};
    }   
}