请问socket编程中，读写操作有哪些控制超时的方法

gnawux

用的是 IO::Socket

使用 getline() 方法，当对方什么都不发的时候就锁死了，其实希望它可以到
一定时间后自己返回的。

尝试在前后加入alarm，但这样好像就退出了。

不常用perl，还请多多指正，谢谢

swallor

超时有Socket 中的timeout设置，你说的getline是不是用的IO：Handle啊！请贴出相应代码吧！

gnawux

[quote]原帖由 "swallor"]超时有Socket 中的timeout设置，你说的getline是不是用的IO：Handle啊！请贴出相应代码吧！[/quote 发表：


是 IO::Handle

1. 
   
2.     my $sock = new IO::Socket::INET (PeerAddr =>; $p_host,
   
3.                               PeerPort =>; $p_port,
   
4.                               Proto    =>; 'tcp',
   
5.                               Timeout  =>; 10
   
6.                           );
   
7.     if($sock){
   
8. #...略去请求发送
   
9.         alarm(150);
   
10.         my $buffer=$sock->;getline();
    
11.         alarm(0);
    
12. #略去处理
    
13.         close($sock);
    
14.     }
    
15. 
    

复制代码

alarm 如果到时间就会自动退出程序了，可是我还想留在里面呢，又不想一直傻等下去，有什么办法么？

flw

SIG{ALRM}

bioperllover

这个模块Bio::Tools::Run:rimer3,我老安装不到WINxp上去
也许用在cygwin下可以,但这东西我还不熟悉.用它我还得改脚本程序,麻烦.能帮我解觉问题吗?不胜感激

apile

可以寫在eval裡面..這樣子即便catch到$SIG{ALRM}也不會程序中斷..

gnawux

已经解决了，方法是定义一个函数捕捉SIG{ALRM}，在其中shutdown 正在傻等着的socket IO。

多谢