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