perl脚本运行出错

dakangle

在不同的perl环境运行结果不一样

出错部分脚本如下:
#######################################
# Houskeeping                         #
#######################################
sub disconnect {
        my $this = shift;
    syswrite $this->{SOCK}, "//END-DP-INPUT\n";
     close $this->{SOCK};
     $this->{STATE} = 'disconnected';
}


报错信息如下：
not enough arguments for syswrite at UaSocket line 120 , near ""//END-DP-INPUT\n";"

兰花仙子

报错已经说明了syswrite参数不够。
IIRC低版本的perl使用三参数的syswrite。