Autor
Algun editor perl grafico de estos que cuando estas escribiendo pones una letra y te salen todas las acciones con esa letra y tal...
Y un problemilla con esto, es una tonteria... recien empiezo:
Código:
sub preguntas
{
print "Nombre:\n";
nombre=<STDIN>;
chop($nombre);
print "Apellidos:\n";
$apellidos=<STDIN>;
$nombrecompleto="$nombre $apellidos";
chop($nombrecompleto);
print "Te llamas $nombrecompleto? (si o no)\n";
$confirmacion=<STDIN>;
chop($confirmacion);
}
if($confirmacion eq "si")
{
print "Bienvenido $nombrecompleto\n";
}
elsif($confirmacion ne "no")
{
print "No mientas jodio, repite los pasos xDD\n";
&preguntas;
}
Me gustaria que despues de que la persona dijese "no" volviese a preguntar todas las preguntas. He probado de mil maneras y mirado en manuales y preguntado en un canal del hispano #perl que me mandaron a leerme un manual...
Thanks. Saludos.
En línea
