perl Socket接收逾時設定

標籤：span   pac   soc   color   images   參考   and   div   預設   

一般來說， IO::Socket::INET裡的Timeout設定是對於conncet的
如果你想設定recv接收逾時， 可以這樣設定:

 1 usr Socket: 2 ...... 3 setsockopt($socket, SOL_SOCKET, SO_RCVTIMEO, pack(‘l!l!‘, 1, 0)); 4 #注意這裡pack有三個參數， 後面的1表示逾時1秒， 最後的0你可以預設 5 #而前面的‘l!l!‘, !表示64位平台 6 #如果你是用IO::Socket::INET他的socket, 可以這樣: 7 use IO::Socket::INET; 8 my $socket = IO::Socket::INET->new(); 9 $socket->setsockopt(SOL_SOCKET, SO_RCVTIMEO, pack(‘l!l!‘, 1, 0));10  11 #如果你覺得麻煩， 可以安裝 IO::Socket::Timeout模組， 用如下方式設定接收逾時或發送逾時:12 # 1. Creates a socket as usual13 my $socket = IO::Socket::INET->new( ... );14  15 # 2. Enable read and write timeouts on the socket16 IO::Socket::Timeout->enable_timeouts_on($socket);17  18 # 3. Setup the timeouts19 $socket->read_timeout(0.5);20 $socket->write_timeout(0.5);21  22 # 4. Use the socket as usual23 my $data = <$socket>;24  25 #

這裡有一點要說明， 可能新人有點迷惑。
那就是io::socket::inet創一個socket時， 這個socket是未定義的， 要等 到它串連成功了才變成定義狀態。
所以， 當你用io::socket::timeout時， 記得要串連成功了才調用， 要不會出現error, 提示方法不能用於一個未定義的變數。

像上面的代碼所示， 如果把20行放到17行的位置， 程式將會出錯。

文章參考自:http://blog.booking.com/socket-timeout-made-easy.html

perl Socket接收逾時設定