On Aug 13, Jeff 'japhy' Pinyan said:
> use IO::Select;
>
> my $s = IO::Select->new;
> $s->add(\*SMTP_HANDLE);
>
> # 0 = timeout (return immediately if nothing waiting)
> while (my ($pending) = $s->can_read(0)) {
Ok, a timeout of 0 seconds is a WEE bit small. Make it .1 or something a
little more reasonable.
> print scalar <$pending>;
> }
--
Jeff "japhy" Pinyan % How can we ever be the sold short or
RPI Acacia Brother #734 % the cheated, we who for every service
http://japhy.perlmonk.org/ % have long ago been overpaid?
http://www.perlmonks.org/ % -- Meister Eckhart
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
