Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: Firos en 7 Enero 2005, 09:52 am



Título: Un editor perl grafico y un problemita con subrutinas, muy facil.
Publicado por: Firos en 7 Enero 2005, 09:52 am
Holas..

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.


Título: Re: Un editor perl grafico y un problemita con subrutinas, muy facil.
Publicado por: Blank Demon en 8 Enero 2005, 02:26 am
Prueba con Active Perl, DzSoft Perl Editor, OptiPerl, PerlPad 3.5.... hay varios...
Dzsoft es para *.nix, tambien...


Título: Re: Un editor perl grafico y un problemita con subrutinas, muy facil.
Publicado por: Kalisto en 8 Enero 2005, 02:32 am
Aqui te dejo una posible solucion:

Código:
#!/usr/bin/perl
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);
}
printf "Bienvenido a la prueba de llamadas a sub rutinas para firos modificada \n";
&preguntas;

if($confirmacion eq "si")
{
        print "Bienvenido $nombrecompleto\n";
exit(0);
}

elsif ($confirmacion eq "no")
{        print "No mientas jodio, repite los pasos xDD\n";
        &preguntas;
}
si tienes algun error postealo y vemos si podemos solucionarlo suerte .