Hola les escribo porque tengo un problema con un script y tal vez alguno de ustedes lo pueda encontrar...
Lo que esta mal en el script es que al momento en que yo selecciono una opcion, ( la 1 o la 2) me suma el porcentaje en la tercer opcion, me dice cuantas personas han votado pero los porcentajes no los da bien...
creo que para muchos de ustedes esto sera pan comido pero creanme que a mi me ayudara mucho, se los escribo aqui
no se si el problema sea el archivo "hasta.log"
GRACIAS
######
#!/usr/bin/perl
print "Content-type:text/html\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$FORM{$name} = $value;
$FORM{'req'}=~s/ //g;
}
open (LOG,"<hasta.log");
@ST = <LOG>;
close (LOG);
foreach $line (@ST)
{
chop $line;
}
if ($FORM{'put'} eq "yes")
{
$ST[0]++;
}
elsif ($FORM{'put'} eq "no")
{
$ST[1]++;
}
else
{
$ST[2]++;
}
open (LOG,">hasta.log");
flock LOG, 2;
print LOG "$ST[0]\n";
print LOG "$ST[1]\n";
print LOG "$ST[2]\n";
close (LOG);
#calculate percentages
$hundred = $ST[0]+$ST[1]+$ST[2];
$yes = 100*$ST[0]/$hundred;
$yes = int ($yes);
$no = 100*$ST[1]/$hundred;
$no = int ($no);
$op = 100-$yes-$no;
print <<"EOF";
prueba
 |
|||||||||
| Resultados ¿Hasta que edad consideras importante dar leche materna al bebé? $hundred personas han votado!
|
|||||||||
 |
";
$num++;
}
print "
";
$nm++;
}
print "
";
$nmi++;
}
print "