如何解决Perl Tcp传输不一致
这是我下面的代码,用于在Perl中使用TCP传输文件。我们正在使用线程将'n'个文件传输到其他服务器,并且在发送之前,我们将每个文件分块为5mb。对于以下功能中的大多数文件,我收到“连接断开”或“数据包头”接收0个字节的问题。不知道是什么原因,我正在学习线程tcp传输的阶段。因此,请提出我需要如何调试,无论是代码中的问题还是我们要转移的服务器中的问题,我需要应用哪种解决方案。
#GET THE PACKET HEADER
my $data;
my $tempdata;
my $datalen = 0;
my $templen = 0;
my $retrycount = $self->{retrycount};
my $mark = time();
my $iloops = 0;
my $waitlist = IO::Select->new($self->{sock});
while($datalen < 9)
{
my $iloops++;
usleep( $usleep_wait );
if($waitlist->can_read($timeout || 0)) { $templen = $self->{sock}->sysread($tempdata,9 - $datalen); } else { $templen = 0; $! = EWOULDBLOCK; }
if(($templen || 0) > 0)
{
#EVERYTHING'S FINE
print_message(LOGLEVEL_TRACE,"Got $templen bytes",LOG_TAG) unless ( $templen == 9 ); #
$mark = time(); #RESET THE TIMEOUT
$data .= $tempdata;
$datalen += $templen;
last if $datalen == 9;
next;
}
#AN IRRECOVERABLE ERROR HAPPENED (i.e. WE CAN'T JUST WAIT IT OUT)
elsif(!defined $templen)
{
if($! != EWOULDBLOCK && $! != EAGAIN && $! != EINTR && $! != EINPROGRESS)
{
my $err = $!;
#disCONNECTION
print_message(LOGLEVEL_ERROR,"__grab_data: Connection was dropped ($@,$!).",LOG_TAG); # if !defined $self->__reconnect();
$self->{sock}->close();
#print_message(LOGLEVEL_INFO,"Connection was dropped,but was re-established ($err)",LOG_TAG);
return undef;
}
else
{
print_message(LOGLEVEL_ERROR,"__grab_data: An unkNown error happened ($@,LOG_TAG);
$self->{sock}->close();
elsif($templen == 0)
{
print_message(LOGLEVEL_TRACE,"Finished the stream,nothing to collect",LOG_TAG);
last;
}
## OPTIONAL TIMEOUT FOR NONBLOCKING REQUESTS
elsif(defined $timeout)
{
return undef if time() - $mark > $timeout;
}
usleep( $usleep_wait );
print_message(LOGLEVEL_FAILURE,"Connection dropped whilst trying to receive data",LOG_TAG) if !$self->is_connected();
}
my $interim = time();
#WE DIDN'T RECEIVE THE WHOLE HEADER
if($datalen != 9)
{
usleep( $usleep_whole_header_wait );
print_message(LOGLEVEL_ERROR,"Packet header is truncated (we only got $datalen bytes,'$data')",LOG_TAG);
return undef;
}
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。