Zatrzymywanie sie skryptu

[user]

#!/usr/bin/perl
$i=0;
while(1)
{
if($txt = <STDIN>)
{
print $txt;
}
print $i;
$i++;
}

Chcial bym zrobic cos zeby skrypt zatrzymywal sie tylko wtedy gdy bedzie cos w $txt tzn gdy wpisze cos podczas wykonywania petli a jesli bedzie puste automatycznie sie nie zatrzymywal tylko wyswietlal liczbe wykonan petli. Chyba wystarczajaco jakos to opisalem. Bede wdzieczny za pomoc.

[TQM]

Petla while(1) bardzo obciaza procesor, po prostu mieli w kolko i zajmuje 100% procka - odradzam. Jesli juz musisz tak to select() bedzie Twoim przyjacielem.

Wracajac do tematu...

#!/usr/bin/perl
$i=0;
while (<STDIN>) {
   # dane z STDIN sa wczytywane do domyslnej zmiennej $_
   # pomin puste linie, tzn nie zawierajace [a-zA-Z0-9]
   next if !/\w/;
   # jesli linia zawiera exit, quit, koniec lub end, to zakoncz program
   # wyjscie z petli while przy uzyciu last()
   last if m/exit|quit|koniec|end/i;
   print "$_$i\n";  # $_ konczy sie \n wiec bedzie nowa linia i odpiero $i
   $i++;
}
print "KONIEC\n";

czy cos wytlumaczyc?

[user]

Szukalem w googlach o select() i raczej nie widze mozliwosci uzycia select() zamiast while(1).

[TQM]

Szukam kodu w moich archiwch... ostatnio uzywalem tego w programie w 2002 roku i gdzies na pewno mam jeszcze kopie... brb


EDIT:
Nie moge znalezc mojego kodu... ale znalazlem kawalek z manuala...

select ( READ, WRITE, EXCEPTION [, TIMEOUT ] )

select is a static method, that is you call it with the package name like new . READ , WRITE and EXCEPTION are either undef or IO::Select objects. TIMEOUT is optional and has the same effect as for the core select call.

Dziala to o tyle fajnie, ze wybiera z bazy otwartych uchwytow (np plikow, socketow, itd) tylko te do ktorych mozna pisac, czytac itd... i robi to co jakis czas, np 0.25sek i to nie zajmuje procka tak jak petla

while (1) {}

czy

for (;;) {}