出错部分脚本如下:
#######################################
# 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";"作者: 兰花仙子 时间: 2009-12-16 19:29
报错已经说明了syswrite参数不够。
IIRC低版本的perl使用三参数的syswrite。