在 shell 脚本中调用 perl 子例程

Question

我创建了一个 Perl 模块 MyModule.pm 它有一些子程序 getText 我想在 shell 脚本中调用它们。 我尝试了以下方式，但它给出了错误；

SEC_DIR=`perl -MMyModule -e 'getText'`; # line 1
echo $SEC_DIR
exit 0

返回错误；

Can't locate MyModule.pm in @INC (@INC contains: /usr/lib/perl5/5.10.0/x86_64-linux-thread-multi /usr/lib/perl5/5.10.0 /usr/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi /usr/lib/perl5/site_perl/5.10.0 /usr/lib/perl5/vendor_perl/5.10.0/x86_64-linux-thread-multi /usr/lib/perl5/vendor_perl/5.10.0 /usr/lib/perl5/vendor_perl .).

BEGIN 失败--编译中止。

PS：.pm 文件和 .sh 位于同一位置。 我尝试了其他一些选项；

第 1 行：

SEC_DIR=`perl -MMyModule -e '&getText'`;
SEC_DIR=`perl -MMyModule -e 'use MyModule; getText'`;
SEC_DIR=`perl -e 'use MyModule; getText'`;

Answer 1

如果不知道MyModule.pm 中的内容，很难说出了什么问题。

@INC 看起来没问题（. 在列表中，所以在当前目录中定位 MyModule.pm 应该没有问题。

这是一个按照您描述的方式工作的最小示例。希望对您有所帮助。

$ cat SomeModule.pm 
package SomeModule;

sub testsub
{
  return "it works\n";
}

1;
$ VAL=`perl -I. -MSomeModule -e 'print SomeModule::testsub'`
$ echo $VAL
it works

另一种加载模块的方法是：

$ perl -e 'require "./SomeModule.pm"; print SomeModule::testsub()'
it works