perl - 从严格的 pragma 中免除一段 perl 代码

Question

我有一段遗留的 perl 代码使用了 perl DBI构造如

$db->bind_param(1, $some_blob, {TYPE => SQL_BLOB});

其中 SQL_BLOB 是裸词。我想在同一个文件中使用严格的 pragma，但它会提示裸词。 ('使用“strict subs”时不允许裸词“SQL_BLOB”')我可以以某种方式免除此行的严格检查吗？

Answer 1

虽然您确实可以关闭 strict pragma，但这并不能解决您的问题。您将只是将值“SQL_BLOB”作为类型传递，但 bind_param 不会识别它。

您需要添加一个导入:

use DBI qw(:sql_types);

如果您已经使用DBI，那么将:sql_types 添加到您从中导入的内容。