perl - 在 Perl 中，如何确定我的文件是作为模块使用还是作为脚本运行？

Question

假设我有一个 Perl 文件，其中的某些部分只有在作为脚本调用时才需要运行。我记得以前读过有关将这些部分包含在 main() 方法中并执行

main() unless(<some condition which tests if I'm being used as a module>);

但我忘记了条件是什么。搜索谷歌并没有取得任何成果。有人可以指出寻找这个的正确位置吗？

Answer 1

如果文件作为脚本调用，则不会有 caller所以你可以使用:

main() unless caller;

见 brian d foy的 explanation .

#!/usr/bin/perl

use strict;
use warnings;

main() unless caller;

sub main {
    my $obj = MyClass->new;
    $obj->hello;
}

package MyClass;

use strict;
use warnings;

sub new { bless {} => shift };

sub hello { print "Hello World\n" }

no warnings 'void';
"MyClass"

输出:

C:\Temp> perl MyClass.pm
Hello World

从另一个脚本使用:

C:\Temp\> cat mytest.pl
#!/usr/bin/perl

use strict;
use warnings;

use MyClass;

my $obj = MyClass->new;
$obj->hello;

输出:

C:\Temp> mytest.pl
Hello World