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;

}
}
}

}

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.