如何使用perl DBI检索MySQL函数定义？

Question

$dbh->selectrow_hashref("SHOW CREATE FUNCTION my_func");

返回

0  HASH(0x202fe70)
   'Create Function' => undef
   'Database Collation' => 'latin1_swedish_ci'
   'Function' => 'my_func'
   'character_set_client' => 'cp850'
   'collation_connection' => 'cp850_general_ci'
   'sql_mode' => ''

（缺少函数定义）

相同的代码与SHOW CREATE VIEW完美配合，SHOW CREATE FUNCTION在MySQL命令行上使用相同的凭据。

我想知道数据类型对于属性是否太大，所以我尝试在连接上将LongReadLen设置为一个非常大的数字，但它没有任何区别。

Answer 1

我忘记了用户@ localhost与user @ remote_host不同（MySQL每次都咬我这个： - （

有些奇怪的是user @ remote_host具有所需的权限，而user @ localhost则没有（我在共享托管环境中并且无权访问数据库mysql）