一个perl的奇怪输出问题

earl808

现在我改了下程序了，不过发现接受数据有问题，为什么大的数据接收数据就会出错。。
这是代码：

my $port = shift || MY_SEG_PORT;    &nbsp;&nbsp;&nbsp;&nbsp;my $protocol= getprotobyname('tcp'); &nbsp;&nbsp;&nbsp;&nbsp;socket(SOCK,AF_INET,SOCK_STREAM,$protocol)or die "socket() failed!"; &nbsp;&nbsp;&nbsp;&nbsp;setsockopt(SOCK,SOL_SOCKET,SO_REUSEADDR,1) or die "can't set SO_REUSEDDR: $!"; &nbsp;&nbsp;&nbsp;&nbsp;my $my_addr = sockaddr_in($port,INADDR_ANY); &nbsp;&nbsp;&nbsp;&nbsp;bind(SOCK,$my_addr) or die "bind() failed!"; &nbsp;&nbsp;&nbsp;&nbsp;listen(SOCK,SOMAXCONN) or die "listen()failed: $!"; &nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;warn "waiting for incoming connections on the segment $port...\n"; &nbsp;&nbsp;&nbsp;&nbsp;while(1) &nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;next unless my $remote_addr = accept(SESSION,SOCK,); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my($port,$hisaddr) = sockaddr_in($remote_addr); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;warn "Connection from {",inet_ntoa($hisaddr),",$port}\n"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SESSION->autoflush(1); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my $lengthStr=0; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my $data=""; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my $senData=""; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my %TF=(); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my $wordNum=0; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my $readLength=2048; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my $hasRead=0; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sysread (SESSION,$lengthStr,4);#文本长度 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my $length=unpack('N',$lengthStr); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;warn $length."\n"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;while($hasRead<$length) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my $tempLength=($hasRead+$readLength)<=$length?$readLength:($length-$hasRead); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sysread (SESSION,$data,$tempLength,$hasRead); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$hasRead+=$tempLength; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#read (SESSION,$data,$length,$hasRead); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;syswrite (STDOUT,$data,$length); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#print "aaaaaaaaaaa\n"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#print OU $data."\n"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#$data=decode('utf8',$data); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#$data=encode('cp936',$data); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if(bytes::length($data)!=$length) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;die "transfer error!\n";             &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}

[ 本帖最后由 earl808 于 2008-9-10 18:49 编辑 ]

churchmice

［code]
print OUT $senData;
[/code]
是向OUT这个文件句柄指向的文件些东西
一般的
print $data ;
和
print STDOUT $data;
是一样的
只不过把STDOUT省略了
还是好好看小骆驼吧
里面都有讲到

churchmice

ms我理解错误
还是具体贴代码吧
另外注意把autoflush打开

socyno

是不是没有autoflush 且程序结束没有 close句柄啊

earl808

我都做了

2gua

缓冲区太小？

earl808

怎么设缓冲区?
不过只是个小文本啊。。还没到m呢

earl808

用syswrite就可以了

xiaoshengcaicai

是binmode的原因么？ 把数据拿出来比较一下呀

earl808

不过现在发现大文本还是传不完啊。。

我这个是个TCP/IP程序，怎么比较?

[ 本帖最后由 earl808 于 2008-9-10 17:52 编辑 ]