domingo, 29 de agosto de 2010

Programando en perl

Hola de nuevo a todos mis compañeros aqui les dejo un programita sencillo en perlque convierte  metros a otras unidades de medicion disfrutenlo:

#!/usr/bin/perl

print "Cambios de volumenes\n:";
$pul;
$cen;
$yard;
$milla;
$metros;

print "Dime cuantos cuantos son los metros \n que quieres que te convierta:\n";
$metros = <STDIN> ;
chomp ($metros);

$yard = $metros/0.9144;
$milla = $metros/1.6093;
$cen = $metros*100;
$pul = $cen/2.54;

print "Equivalencias de metro a:\n";
print "Millas: $milla\n";
print "yard: $yard\n";
print "centimetros: $cen\n";
print "Pulgadas: $pul\n";

Como siempre cualquier duda, acalracion o error que se vea en el codigo favor de dejar un mensaje para su conprension gracias.
En esta pagina pueden encontrar informacion util de programacion en perl de esta pagina me base para la toma de datos:   http://www.osmosislatina.com/lenguajes/perl/

1 comentario: