Re: =?iso-8859-1?Q?Leer_una_tuber=EDa_en_perl?=

[Hue-Bond]

El viernes 16 de febrero de 2001 a la(s) 22:10:50 +0100, Hue-Bond contaba:
>
>         El texto  va por  la tuber�a  y aparece  en pantalla  porque el
>     servidor lo imprime. PERO! desde  este momento, el servidor se pone
>     a comsumir  fren�ticamente todo el  micro que puede.

#!/usr/bin/perl

open (PIPA, "</home/hue/tmp/contador");
do {
        read PIPA, $texto, 25;
        ($texto eq "") || print $texto;
        select(undef, undef, undef, 0.1);
} until ($texto eq "MEPIRO\n");

close(PIPA);

         Creo que read es m�s conveniente, y con el select introduzco un
     peque�o retardo  (seg�n vi  en el  man de  perlfunc). Le  he puesto
     retardo de una  cent�sima de segundo y el impacto  en el sistema ni
     siquiera aparec�a entre los primeros del top :^).


-- 
 David Serrano <[EMAIL PROTECTED]> - Linux Registered User #87069

pgpu2McArHrVd.pgp
Description: PGP signature