如何从shell脚本调用Perl函数？

Question

我已经用Perl编写了一个库，它包含一个特定的函数，它将有关服务器的信息作为字符串返回。我可以直接从shell调用这个函数吗？

我的老板问：“你能暂时从shell直接调用它吗？”因为他说，我认为我应该可以做到，但我该怎么做呢？

Answer 1

由于perl的命令行参数有点难以理解，我会将它封装在一个简单的perl脚本中，该脚本调用该函数。例如，创建一个脚本serverinfo其中包含：

#!/usr/bin/perl 

require 'library.pl'; 
say library::getServerInformation(); 

然后运行：

chmod u+x serverinfo 

这样做的好处是，如果函数本身的变化脚本的输出参数可以被纠正。像这样的命令行脚本可以被认为是一个API，当实现改变时它不应该改变。

Answer 2

perl -MServerlib=server_information -e 'print server_information()' 

是另一种方式来做到这一点，但只有当Serverlib出口server_information分。如果没有，你需要做下面的代替：

perl -MServerlib -e 'print MServerlib::server_information()'