问一个socket口读写的问题

pigfly

最近碰到一个问题。
我在做socket程序时
用到了$report=<$socket>;;
对端在传送数据时在传送最后一句时不传送\n符号！
简单说吧，接收的数据报最后一行是(finished)，后面不带换行符！
我的$report=<$socket>;;就永远不返回等待换行符。

我估计可能要用到非阻塞式的io
怎么解决？
谢谢！

pigfly

但是我需要用到整行读取，而且要每行文本进行分析！

apile

my $result = eval{
       local $SIG{ALRM} = sub {die "timeout" };
       alarm(50);    ##設定TIMEOUT 50秒
       while($dd=<$socket>{
           chomp;
           $get_str .=$dd;

           if($dd=~m#finished#){
              return $get_str;
           }
         
       }
     };

server如果不帶\n...
Client端是收不到的....