Синтаксическая ошибка: `('неожиданно в сценарии оболочки

Question

У меня есть сценарий оболочки, который содержит некоторые функции в нем. Одна из этих функций должна выполняться через 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 

или отправить сценарий для stdin perl - работает только в том случае, если вам не нужно читать ввод внутри скрипта.

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