perl - 如何调用在另一个包中声明的子例程，而不在子例程名称前加上其包名？

Question

我不完全确定这是可能的，但我想通过省略包名来简单地缩短我在另一个包中声明的调用的子例程的名称。

例如，我定义了一个模块：

package Package1;

use strict;
use warnings;

BEGIN 
{
  require Exporter;
  our @ISA = qw( Exporter );
  our @EXPORT_OK = qw( subroutine1 );
}

sub subroutine1
{
  print "Hello!$/";
}

return 1;

我定义了一个驱动程序应用程序：

use strict;
use warnings;

use Package1;

&Package1::subroutine1;

我似乎可以缩短调用的唯一方法subroutine1是制作如下别名：

*s1 = \&Package1::subroutine1;
&s1;

我肯定是个傻瓜，在这里遗漏了一些东西。有没有更清洁的方法来实现这一目标？

Answer 1

改变

use Package1;

到

use Package1 qw( subroutine1 );

或改变

our @EXPORT_OK = qw( subroutine1 );

到

our @EXPORT = qw( subroutine1 );

我建议第一次更改。

Answer 2

您已经在使用Exporter，这就是您实现此目的的方式。您需要做的就是将您的驱动程序应用程序代码更改为

use Package1 'subroutine1';

为了告诉import提供的方法Exporter将您的符号导出到调用包。