Forum programmazione

[AleXaNdRoS]

Questo è il mio primo script il perl, se avete suggerimenti fateli pls

Code: Select all

#!/usr/bin/perl -w
#by AleXaNdRoS

print "Ciao come ti chiami?\n";
$nome = <STDIN>;
print "perfetto ".$nome;
print "Ora faremo un piccolo giochino.\nIo penso un numero da 1 a 1000 e tu lo devi indovinare\n";
&main;
sub main
{
print "Pensato ora tocca a te\n";
$a = 100;
$c = $a +15;
$d = $a -15;
#$a = int(rand(1000));
&ritorno;
}
sub ritorno
{
$b = <STDIN>;
if ( ($b < $a) && ($b < $d) )
{
  print "Il numero immesso è troppo piccolo\n";
  &ritorno;
}
elsif ( ($b > $a) && ($b > $c) )
{
  print "Il numero immesso è troppo grande\n";
  &ritorno;
}
elsif ( ($b > $a) && ($b <= $c) )
{
  print "Ci sei vicino, ti consiglio di immettere un numero più piccolo\n";
  &ritorno;
}
elsif ( ($b < $a) && ($b >= $d) )
{
  print "Ci sei vicino, ti consiglio di immettere un numero più grande\n";
  &ritorno;
}
if ($b == $a)
{
  print "Complimenti hai indovinato\n";
  &continue;
}
}



sub continue
{
print "Vuoi continuare? [si/no]\n";
$continua = <STDIN>;
chomp($continua);
if ($continua eq "si")
{
  system("cls");
  system("clear");
  &main;
}
elsif ($continua eq "no")
{
  print "Bye bye\n";
  system("cls");
  system("clear");
  system (exit);
}
else
{
  print "La soluzione proposta non è valida\n";
  system("cls");
  system("clear");
  &continue;
}
}