Perl Socket读数据的问题

yxm0513

我在client 用 my $str = <$socket>;只能的到一行
我想得到现在socket所有内容
就像文件  my $str = <$FH>;一样,有没什么方法？



试了下
@array = <$socket>   是不行的， 从file里，好像是以EOF结束的，$socket没，所以会一直等待，$sock->readlines 是一样
读一定长度是可以，不过在传来的数据不知道多长时，用while <> 还是一样

billypeng

tcp是流式协议，对方关闭socket，你就能得到所有，否则需要自己截断。