On Thu, Jan 13, 2011 at 02:02:54AM +0000, Robert McKay wrote:
> my $s = IO::Select->new();
> $s->add(\*STDIN);
>
> while( ($reading)||(scalar(@chunks)>0) )
> {
>
> if ($s->can_read(0.01) )
busy.waiting--
Rich.
--
Richard Jones
Red Hat
--
Gllug mailing list - Gllug at gllug.org.uk
http://lists.gllug.org.uk/mailman/listinfo/gllug