如何要求文件并使用其子例程

Question

当子程序必须获取变量时，如何在所需文件中使用子程序：

file.pl：

...
sub func{
  my ($var) = @_;
  ..

}

main.pl：

..
require "file.pl";
func(1);
..

这对我不起作用，我收到错误Undefined subroutine &main::func ..

Answer 1

Perl告诉你不存在main::func（main是默认包），所以 你需要在函数前面加上合格的包名，

require "file.pl";
Naming::func(1);