[FLUG] Re: [CODE] wordless.pl 0.2

Mailing List del Fortunae LUG
=============================

> > elsif($scelta !="1" || $scelta !="2" || $scelta !="3" || $scelta !="q")
>
> dov'è finito mr perl che usa le regexp
>
> elsif($scelta !=~ /1|2|3|q/)
> o meglio ^1$ ^2$

Faccio notare che il 3 non esiste come scelta.
In più non c'è bisogno di fare nessun controllo... se non si è entrati
in un elseif più in alto si è già certi che non è 1, 2 o q.
Quindi tipo:

if($scelta eq "1") { &inserisciparole; }
elsif($scelta eq "2") { &cercaparola; }
elsif($scelta eq "q") { exit(); }
else { print "non valido\n"; }

Ma poi tipo esiste switch:

use Switch;

switch($scelta)
{
  case "1" { &inserisciparole; }
  case "2" { &cercaparola; }
  case "q" { exit(); }
  else { print "non valido\n"; }
}

Io non conosco il perl quindi magari ho sparato qualche cagata,
sorry.

Simon.

-- 
"mhhh ciambelle, esiste qualcosa che non riescono a fare?"

Other related posts: