错误的解释器：perl 脚本中没有这样的文件或目录（适用于 perl 脚本初学者）

Question

我们创建了 1 个 perl 脚本，它将从一台远程服务器运行并访问该服务器，并将通过运行特定进程的 top 命令来获取数据。 但是，每当我尝试运行脚本时，都会出现以下错误。

./script_GS.pl -bash: ./script_GS.pl: /usr/local/share/perl^M: bad interpreter: No such file or directory我们创建的脚本如下。

#!/usr/bin/perl
use lib "/usr/CSV-2/lib";
use lib "/usr/share/lib";
use lib "/usr/local/lib/perl/5.10.1/auto/"; 
use lib "/usr/share/man/man3/";
use lib "/usr/local/share/man/man3/";

my $username = 'root';
my $password = 'xxxxxxxx';
my $ip = '1.1.1.1';
my $TERM ;
my $ssh = Net::OpenSSH->new("$username:$password\@$ip", timeout => 30);
$ssh->system("echo $TERM");
$ssh->system("export TERM=xterm");
my ($CPU,$stderr) = $ssh->capture("top -b | head -n 8 | grep -w gis | awk '{    
print \$6}' ");

print "CPU:".$CPU." ";

能不能请前辈帮忙。

我得到的错误是

 ./Script_GS.pl
 Can't locate object method "new" via package "Net::OpenSSH" (perhaps you   
 forgot to load "Net::OpenSSH"?) at ./Script_GS.pl line 12.

Answer 1

您有 Windows 行结尾，但您在 Unix 系统上运行脚本。

要解决此问题，您可以使用dos2unix script_GS.pl ，或者如果它不可用，则使用vi script_GS.pl ，然后在编辑器中键入:set ff=unix ，然后按 ENTER，然后按:wq ，然后再次按 ENTER。

Answer 2

显然您不是在导入 NET::SSH 而是在使用它。 就像在java中使用JDBC conn而不导入java.sql.*包一样。

像使用 Net::OpenSSH; 在脚本的顶部应该修复这个错误，但如果你真的是新手，准备好得到像在@INC 中找不到或类似的错误。 因此，在使用高级 perl 包 NET::OpenSSH 之前，您可能需要先获得基本的 perl 课程。

Answer 3

您已将文件从 Windows 传输到 Unix/Linux，而没有更改换行符。 （ftp 中的 ascii 模式）

之后有很多工具和方法可以做到这一点。

在vi中：

:%s/^M//g

要输入 ^M：键入

Ctrl-V + 回车

Answer 4

您的 perl 脚本似乎没有检测到 Net::OpenSSH 模块。 重新安装此模块应该会有所帮助。 还包括“使用 Net::OpenSSH；” 在导入库代码上方。