Foro - Perl en Español

Evaluar la posibilidad cuando el contenido del saco sea vaciado en su totalidad. Generar el mensaje “El saco está vacío, no hay más qué contar. Cargue un nuevo saco”.

#!/usr/bin/perl

$pesosaco=2.1;
$peso=1;
while($peso != 0) {


print "ingrese un peso: 0.70gr plástico 1 gr canicas \n";
$peso=<STDIN>;
chop($peso);
print "\n";
if ($totalp==$pesosaco){
print "el saco está vacío, no hay más qué contar. Cargue un nuevo saco";
}
else
{
if ($peso == 0){
print "total plástico es $totalp \n";
print "total canicas amarillas $totala \n";
print "total canicas rojas $totalr \n";
print "total canicas azules $totalaz \n";

}
else {
if ($peso != 0.70){
print "ingrese un color: A para amarillo, R para rojo, Az para azul \n";
$color=<STDIN>;
chop($color);
print "\n";

if (lc($color) eq "a"){
$totala= $totala +1;
}
elsif (lc($color) eq "r"){
$totalr= $totalr +1;
}
elsif (lc($color) eq "az"){
$totalaz= $totalaz +1;
}
}
else{
$totalp= $totalp + 0.70;

}
}
}

}

¿Cuál es el problema?

Por favor, te pido que le pongas marcas Perl a tu código, para que quede más legible. Mira:

Tienes el botón Perl justo encima de la caja de edición del mensaje. Primero seleccionas el código, con el ratón o teclado, y luego pulsas el botón.

¿Y cuál es el problema?

Está la evaluación que si el totalp == totalsaco que muestre que el saco está vacío... pero puedo seguir ingresando los 0.70 que pesa el plástico y lo voy acumulando en la variable totalp, pero en algún punto debería igualarse y mostrar ese mensaje lo cual no hace: puedo seguir ingresando.

Es posible que haya un error de redondeo...

Prueba con totalp >= totalsac