我如何'需要'由子例程返回的路径寻址的Perl库？

Question

我可以用它来包含一个文件a.pl:

require 'a.pl';

或者我可以用这个:

$fn = 'a.pl';
require $fn;

但是,子程序不起作用:

sub fn { return 'a.pl'; }
require fn(); # This is a syntax error

是否有允许这样的语法？我注意到我可以解决这个问题

sub fn { return 'a.pl'; }
require eval("fn()");

......但那并不是非常漂亮.

Answer 1

require(fn());

多么奇怪的语法错误!添加额外的括号以消除歧义优先级可以解决问题.似乎否则require PACKAGE表单将优先于表单,即将require EXPR其fn解析为指定要加载的模块的bareword.