sábado, 2 de noviembre de 2013

Programando en Perl ... no. 5

Sencillo convertidor de temperaturas web en Perl

En esta ocasión vamos a crear un convertidor de temperaturas fahrenheit y celsius en Perl.

¿Qué necesito para crear una aplicación web usando Perl?
Puedes descargar XAMPP (http://www.apachefriends.org/en/xampp.html), contiene lo necesario para crear aplicaciones web con Perl.

Puedes crear una carpeta en: C\xampp\htdocs\xampp\miPerl

Creamos el formulario HTML:

form.html
< form method="POST" action="conversor.pl"> 
Introduce valor: < input name="valor" type="text" value="" /> 
< input type="submit" value="Convertir a">
 < select name="conversor">
 < option value="fahrenheit">Fahrenheit </ option>
< option value="celsius">Celsius </ option>
 < /select>
 < /form>

Ahora creamos el programa perl (.pl):
conversor.pl
#!"C:\xampp\perl\bin\perl.exe"
use strict;
use warnings;
use CGI::Carp;
use CGI;

my $form= CGI->new();
my $valor=$form->param('valor');
my $conversion=$form->param('conversor');
print $form->header('text/html');

if($valor=~/[^\d+]/){
print "Error, debes introducir valor numerico";
exit;
}

my $resultado;
if($conversion eq "fahrenheit"){
$resultado=(1.8*$valor)+32;
}
if($conversion eq "celsius"){
$resultado=($valor-32)/1.8;
}

print "Conversion a grados $conversion:";
print "$resultado";

Esto es el formulario:



Esto obtenemos:



No hay comentarios:

Publicar un comentario

Vibe Coding (la programación vía IA): ¿el futuro de la programación?

Vibe Coding es un nuevo paradigma de programación, una nueva forma de crear código. Es un enfoque emergente en el desarrollo de sof...

Etiquetas

Archivo del blog