[Linux-Biella] Adesso chiedo io per il perl

[Claudio]

Allora, ho uno stupidissimo ciclo cosi' fatto:

       while (defined ($cmd = <Client>)) {
                chomp ($cmd);
                break if ($cmd eq 'end');
                send(Client,"$cmd\n",0);
        }

che prende da <Client> mette nella variabile $cmd fa un pochetto di
pulizia, guarda se $cmd e' uguale alla parola end e se e' cosi' finisce
il ciclo altrimenti ristampa $cmd, solo che se io scrivo in input la
parola end il ciclo non finisce... cosa mi sfugge?????

Bye

-- 
Per cortesia niente allegati word, solo in formato ASCII (.txt) 
oppure Rich Text Format (.rtf)
--
Linux Registered User     #151147  |  Home Page    http://www.bilug.linux.it
Linux registered Machine  #66331   |  ICQ Number   53293810
GPG key http://claudio.bmm.it/gpg/key-bilug.asc