Foro - Perl en Español

por **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.

my $estado=1;
while ($estado==1){
   print"\t\tSI ME DAS UN NOMBRE TE DARÉ UN TELÉFONO\n\n";
   print "\t ingresa x para salir del programa\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";
   }elsif ($nombre eq "x"){                    #con X te sales del while
      $estado=0;
   }else{
      print "NO CONOZCO ESE NÚMERO\a";
   }
}
 
Coloreado en 0.003 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.

por **explorer** » 2012-06-12 02:18 @137

(no probado)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
my %telefonos = (
    'Esneda'          => '257-68-61',
    'Irma'            => '437-64-06',
    'Centro de salud' => '257-38-00',
    'Antonia'         => '437-57-11',
    'Alcides'         => '442-89-49',
    'Daniela'         => '437-01-73',
    'Novia de Andrés' => '437-01-73',
    'Dora'            => '436-34-69',
    'Esponjados'      => '512-86-40',
    'Flamingo parque' => '575-99-99',
    'Grua'            => '018000513500',
);
 
while (1) {
    print "\t\tSI ME DAS UN NOMBRE TE DARÉ UN TELÉFONO\n\n";
    print "\t ingresa X para salir del programa.\n";
    print "\tNOMBRE DE LA PERSONA ? ";
 
    chomp(my $nombre = <>);
 
    last if $nombre eq 'X';
 
    if ($telefonos{$nombre}) {
        print "El teléfono es: $telefonos{$nombre}\n\n";
    }
    else {
        print "NO CONOZCO ESE NOMBRE\a\n";
        for my $nombre (keys %telefonos) {
            print "\t$nombre\n";
        }
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Montar aplicación Perl en HTML

Montar aplicación Perl en HTML

Publicidad

Re: Montar aplicación Perl en HTML

Re: Montar aplicación Perl en HTML

Re: Montar aplicación Perl en HTML

¿Quién está conectado?