#!/usr/bin/perl -Tw
# Adivinar un numero en PERL
 
$| = 1;
 
use CGI qw(:standard);
 
print header;
 
print start_html('Adivinar un numero (PERL)');
 
my $form = new CGI;
 
if (!$form->param('numero')) {
  $numero = int(rand(100));
  $intentos = -1;
  print "Nuevo numero generado<br>";
} else {
  print $numero = int($form->param('numero'));
  print $prueba = int($form->param('prueba'));
  print $intentos = int($form->param('intentos'));
  if ($prueba == $numero) {
    print "<b>Adivinado</b> en ".$intentos." intentos<br>";
  } else {
    if ($prueba > $numero) {
      print "Mas peque<F1>o<br>";
    } else {
      print "Mas grande<br>";
    }
  }
}
 
print <<'EOF';
<hr>
  <form method=post>
   Numero de prueba: <input name=prueba width=3><br>
EOF
$intentos+=1;
print " <input type=hidden name=numero value=$numero>\n";
print " <input type=hidden name=intentos value=$intentos>\n";
print " <input type=submit><br></form></body></html>";
print end_html;