语法错误：`（'在shell脚本中意外[重复]

Question

我有一个 shell 脚本，其中包含一些函数。其中一个功能必须通过 perl 执行。 perl 函数检查端口是否在远程服务器上打开。

#!/usr/bin/ksh

function1
function2
telnet_check()
{

#!/usr/bin/perl -w

use IO::Socket;
use IO::Socket::INET;

my ($host,$port);
$host=Ip address ;
$port=9443;
my $sock=IO::Socket::INET->new("Ip address:$port") or die "" ;

}

some shell commands

在执行上述脚本时，出现错误

 syntax error at line: `(' unexpected [which falls in the line my ($host,$port); under the Perl function]

任何人都可以帮助解决上述错误。

提前干杯:)

Answer 1

你不能轻易地从 ksh 切换到 Perl。或者，引用脚本并将其作为参数传递给 perl 的 -e:

perl -MIO::Socket -MIO::Socket::INET -we 'my ($host, $port) = qw( host.name 9443 ); ...'

或者，将 perl 脚本存储在自己的文件中，然后运行它：

perl /path/to/the/script.pl

或者，将脚本发送到 perl 的标准输入 - 仅当您不需要从脚本中读取输入时才有效。

cat <<'EOF' | perl
use IO::Socket;
use IO::Socket::INET;
...
EOF