Foro - Perl en Español

La comunidad de programadores en Perl de habla hispana.

Obviar


  • Publicidad

Montar aplicación Perl en HTML

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.
Publicar una respuesta

Montar aplicación Perl en HTML

Notapor zzebazz06 » 2012-06-10 19:59 @874

Hola, soy nuevo en este foro y como muchos aquí recién empiezo a entrar en este mundo de la programación. Lo siguiente es que he creado una calculadora en Perl o un sistema como una libreta telefónica que das el nombre de la persona y te da el número telefónico lo que quiero hacer es montar el programa en una página HTML o diferente que aparezca y funcione en Internet. He buscado por todas partes pero no lo he podido encontrar. De antemano, gracias.

Aquí va el código.

print"\t\tSI ME DAS UN NOMBRE TE DARÉ UN TELÉFONO\n\n";
print "\tNOMBRE DE LA PERSONA ? ";
$nombre = <STDIN>; chop ($nombre);
if ($nombre eq "esneda"){
print "EL TELÉFONO ES : 257-68-61 ";
}elsif($nombre eq "irma"){
print "EL TELÉFONO ES : 437-64-06";
}elsif ($nombre eq "centro de salud"){
print "EL TELÉFONO ES : 257-38-00";
}elsif ($nombre eq "antonia"){
print "EL TELÉFONO ES : 437-57-11";
}elsif ($nombre eq "alcides"){
print "EL TELÉFONO ES : 442-89-49";
}elsif ($nombre eq "daniela"){
print "EL TELÉFONO ES : 437-01-73";
}elsif ($nombre eq "novia de andres"){
print "EL TELÉFONO ES : 437-01-73";
}elsif ($nombre eq "dora"){
print "EL TELÉFONO ES : 436-34-69";
}elsif ($nombre eq "esponjados"){
print "EL TELÉFONO ES : 512-86-40";
}elsif ($nombre eq "flamingo parque"){
print "EL TELÉFONO ES : 575-99-99";
}elsif ($nombre eq "grua"){
print "EL TELÉFONO ES : 018000513500";
}else{
print "NO CONOZCO ESE NÚMERO\a";
}

También quisiera saber cómo programarlo para cuando me dé el número de una persona no se salga y me pida otro número y termine hasta que yo le dé alguna función.

Gracias de nuevo.
zzebazz06
Perlero nuevo
Perlero nuevo
 
Mensajes: 1
Registrado: 2012-06-02 21:47 @949
Arriba

Publicidad

Re: Montar aplicación Perl en HTML

Notapor explorer » 2012-06-10 20:55 @913

Bienvenido a los foros de Perl en Español, zzebazz06.

Te recomiendo que empieces por visitar la sección de Tutoriales.

De lo que quieres saber está en la subsección CGI.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España
Arriba

Re: Montar aplicación Perl en HTML

Notapor MARKO » 2012-06-11 01:42 @113

zzebazz06 escribiste:También quisiera saber cómo programarlo para cuando me dé el número de una persona no se salga y me pida otro número y termine hasta que yo le dé alguna función.


Esto lo podes solucionar realizando los todos tus procesos dentro de un ciclo while():

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. my $estado=1;
  2. while ($estado==1){
  3.    print"\t\tSI ME DAS UN NOMBRE TE DARÉ UN TELÉFONO\n\n";
  4.    print "\t ingresa x para salir del programa\n";
  5.    print "\tNOMBRE DE LA PERSONA ? ";
  6.    $nombre = <STDIN>; chop ($nombre);
  7.    if ($nombre eq "esneda"){
  8.       print "EL TELÉFONO ES : 257-68-61 ";
  9.    }elsif($nombre eq "irma"){
  10.       print "EL TELÉFONO ES : 437-64-06";
  11.    }elsif ($nombre eq "centro de salud"){
  12.       print "EL TELÉFONO ES : 257-38-00";
  13.    }elsif ($nombre eq "antonia"){
  14.       print "EL TELÉFONO ES : 437-57-11";
  15.    }elsif ($nombre eq "alcides"){
  16.       print "EL TELÉFONO ES : 442-89-49";
  17.    }elsif ($nombre eq "daniela"){
  18.       print "EL TELÉFONO ES : 437-01-73";
  19.    }elsif ($nombre eq "novia de andres"){
  20.       print "EL TELÉFONO ES : 437-01-73";
  21.    }elsif ($nombre eq "dora"){
  22.       print "EL TELÉFONO ES : 436-34-69";
  23.    }elsif ($nombre eq "esponjados"){
  24.       print "EL TELÉFONO ES : 512-86-40";
  25.    }elsif ($nombre eq "flamingo parque"){
  26.       print "EL TELÉFONO ES : 575-99-99";
  27.    }elsif ($nombre eq "grua"){
  28.       print "EL TELÉFONO ES : 018000513500";
  29.    }elsif ($nombre eq "x"){                    #con X te sales del while
  30.       $estado=0;
  31.    }else{
  32.       print "NO CONOZCO ESE NÚMERO\a";
  33.    }
  34. }
  35.  
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4


Con lo anterior te seguirá pidiendo nombres hasta que ingreses 'x', con lo cual cambiarás el valor de $estado, lo cual hará que el while() termine así como todo tu programa.

Éxitos.
MARKO
Perlero nuevo
Perlero nuevo
 
Mensajes: 86
Registrado: 2012-01-10 22:34 @982
Arriba

Re: Montar aplicación Perl en HTML

Notapor explorer » 2012-06-12 02:18 @137

(no probado)

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2.  
  3. my %telefonos = (
  4.     'Esneda'          => '257-68-61',
  5.     'Irma'            => '437-64-06',
  6.     'Centro de salud' => '257-38-00',
  7.     'Antonia'         => '437-57-11',
  8.     'Alcides'         => '442-89-49',
  9.     'Daniela'         => '437-01-73',
  10.     'Novia de Andrés' => '437-01-73',
  11.     'Dora'            => '436-34-69',
  12.     'Esponjados'      => '512-86-40',
  13.     'Flamingo parque' => '575-99-99',
  14.     'Grua'            => '018000513500',
  15. );
  16.  
  17. while (1) {
  18.     print "\t\tSI ME DAS UN NOMBRE TE DARÉ UN TELÉFONO\n\n";
  19.     print "\t ingresa X para salir del programa.\n";
  20.     print "\tNOMBRE DE LA PERSONA ? ";
  21.  
  22.     chomp(my $nombre = <>);
  23.  
  24.     last if $nombre eq 'X';
  25.  
  26.     if ($telefonos{$nombre}) {
  27.         print "El teléfono es: $telefonos{$nombre}\n\n";
  28.     }
  29.     else {
  30.         print "NO CONOZCO ESE NOMBRE\a\n";
  31.         for my $nombre (keys %telefonos) {
  32.             print "\t$nombre\n";
  33.         }
  34.     }
  35. }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España
Arriba
Publicar una respuesta

Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 34 invitados

Powered by phpBB® Forum Software © phpBB Group
Traducción al Español Mexicano por nextgen en colaboración con phpbb-es.com
phpBB SEO
Advertisements by Advertisement Management
cron