当我运行Perl脚本时,为什么会出现’use:command not found’?
发布时间:2020-12-15 23:29:36 所属栏目:大数据 来源:网络整理
导读:我是Perl的新手.我已经使用一个论坛中的以下代码连接到其中一个服务器.但抛出错误信息 [root@Cus]# cat tt.pl#!/usr/bin/perluse Net::Telnet;$telnet = new Net::Telnet ( Timeout=2,Errmode='die');$telnet-open('10.0.0.28');$telnet-waitfor('/login:/')
我是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');' 解决方法
我的猜测是你正在使用一种不尊重#的奇怪的unix风格!线,并试图通过shell而不是通过perl运行脚本.
可能发生这种情况的另一个原因是tt.pl以空行开头. #!必须出现在文件的最开头. 尝试运行perl tt.pl并查看会发生什么. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |