PDA

Visualizza la versione completa : [PERL]Ciclo WHILE


=tW=
15-05-2006, 14:33
Ciao ragazzi! io devo creare uno script che si chiuda solo quando nel prompt digito "exit". come faccio?

Mich_
15-05-2006, 14:48
Ad esempio
while (1) {
...
my ask = prompt ...
if(ask ~= /exit/i) { last; }
}
La sintassi va ricontrollata: non ricordo piu` nulla

=tW=
15-05-2006, 21:04
per prompt intendi una cosa del tipo leggi da tastiera?

Mich_
16-05-2006, 08:44
Esatto. Mi pare si faccia con un read, o fread.

shishii
18-05-2006, 17:39
while (1) {
$my $text = <STDIN>;
chomp $text;
last if ($text eq 'exit');
}

Loading