perl - 为什么在运行 Perl 脚本时会得到 'use: command not found'？

Question

我是 Perl 的新手。我已经使用来自一个论坛的以下代码连接到其中一台服务器。但抛出错误消息

[root@Cus]# cat tt.pl
#!/usr/bin/perl
use Net::Telnet;
$telnet = new Net::Telnet ( Timeout=>2, Errmode=>'die');
$telnet->open('10.0.0.28');
$telnet->waitfor('/login:/');
$telnet->print('administrator');
$telnet->waitfor('/Password:/');
$telnet->print('test');
$telnet->waitfor('/switch8-12>/');
$telnet->print('whoamI');
$output=$telnet->waitfor('/switch8-12>/');
print $output;

但是抛出以下错误消息。

[root@Cus]# ./tt.pl
./tt.pl: line 3: use: command not found
./tt.pl: line 4: syntax error near unexpected token `('
./tt.pl: line 4: `$telnet = new Net::Telnet ( Timeout=>2, Errmode=>'die');'

Answer 1

我的猜测是你使用了一种奇怪的 unix 风格，它不尊重 #!行，并试图通过 shell 而不是通过 perl 运行脚本。

可能发生这种情况的另一个原因是如果 tt.pl以空行开头。 #!必须出现在文件的最开始。

尝试运行 perl tt.pl看看会发生什么。