Mi problema es el siguiente, tengo un Cgi que recopila informacion de alumnos es decir nombre, matricula, e-mail, etc.
pero cuando corre el cgi solo corre una parte y no ejecuta esta seccion
# Grabamos al alumno en el log
open(LOG,">/$dir_real/enviados/$matricula.txt") || die "No se pudo abrir log";
print LOG "$hora\n";
close(LOG);
print "matricula"; #srand;
#$tipo = int rand(2) + 1;
$tipo = 1;
open(EXAMEN,"/$dir_real/$quiz$tipo$ext") || die "No $examen";
@lineas=<EXAMEN>;
close(EXAMEN);
foreach $linea (@lineas)
{
if ($linea =~ /<!--\w+-->/)
{
if ($linea =~ /<!--matricula-->/)
{
print "$matricula\n";
print "<INPUT TYPE=HIDDEN NAME=\"matricula\" VALUE=\"$matricula\">\n";
}
elsif ($linea =~ /<!--nombre-->/)
{
print "$nombre\n";
print "<INPUT TYPE=HIDDEN NAME=\"nombre\" VALUE=\"$nombre\">\n";
print "<INPUT TYPE=HIDDEN NAME=\"email\" VALUE=\"$email\">\n";
}
elsif ($linea =~ /<!--campus_sede-->/)
{
print "$campus_sede\n";
print "<INPUT TYPE=\"HIDDEN\" NAME=\"campus_sede\" VALUE=\"$campus_sede\">\n";
print "<input type=\"hidden\" name=\"comercio\" value=\"$tipo\">\n";
print "<input type=\"hidden\" name=\"h_entrada\" value=\"$hour:$min\">\n";
print "<P><FONT FACE=\"Arial,Helvetica\" COLOR=\"#000066\"><B>Hora de Entrada :</B> $hora</FONT></P> \n";
}
}
else
{ print "$linea"; }
}
ES EN EL OPEN DONDE SE ENCUENTRAN MIS PRBLEMAS YA QUE NO IMPRIME NADA, MAS QUE EL NOMBRE, YO PIENSO QUE SON LOS PERMISOS PERO NO SE COMO DARLOS EN WINDOWS XP
POR FAVOR AYUDNME
SE LOS AGRADECERE BASTANTE
