Re: Event and IO::Socket

[email protected] (Joshua N Pritikin) Sat, 3 Aug 2002 09:31:31 +0530
Newsgroups perl.loop
Message-ID <[email protected]>
On Fri, Aug 02, 2002 at 10:20:37AM -0400, Jeff Boes wrote:
> Are there any tricks to getting Event to trigger when a socket receives
> input?  I'm doing something equivalent to:
> 
>     $sock_in = IO::Socket::INET->new(
> 				      LocalPort => $cfg->socket_nbr,
> 				      Proto => 'udp',
> 				      ReuseAddr => 1,
> 				      Timeout => 1,
> 				     );
> 
> and
> 
>     $events{socket} =
>       Event->io(
> 		cb	 => \&checkin,
> 		fd	 => $sock_in,
> 		poll	 => 'r',
> 		max	 => TIMEOUT_PERIOD,
> 	       );
> 
> but I'm not sure I'm on the right track.

That looks OK to me.  Is it actually not working or are you just
looking for encouragement?

-- 
Victory to the Divine Mother!!         after all,
  http://sahajayoga.org                  http://why-compete.org