perl - 从命令行调用 perl 子例程

Question

好的，所以我想知道如何从命令行调用 perl 子例程。因此，如果我的程序被称为测试，并且子程序被称为字段，我想从命令行调用它。

测试领​​域

Answer 1

查看 brian d foy's modulino pattern用于将 Perl 文件视为可以被其他脚本使用的模块或独立程序。这是一个简单的例子:

# Some/Package.pm
package Some::Package;
sub foo { 19 }
sub bar { 42 }
sub sum { my $sum=0; $sum+=$_ for @_; $sum }
unless (caller) {
    print shift->(@ARGV);
}
1;

输出:

$ perl Some/Package.pm bar
42
$ perl Some/Package.pm sum 1 3 5 7
16