Foro - Perl en Español

Hola de nuevo, hacía días que no me pasaba por el foro =). Veréis, sigo con los ejemplos del libro que os mencioné, Aprendiendo CGI de O'Reilly. Al siguiente ejemplo, no le encuentro nada mal pero no lo llega a ejecutar, se queda como cargando, aquí está el código:

#!C:\Perl\bin\perl
$server_protocol = $ENV{'SERVER_PROTOCOL'};
$server_software = $ENV{'SERVER_SOFTWARE'};
print "$server_protocol 200 OK", "\n";
print "Server: $server_software", "\n";
print "Content-type: text/plain", "\n\n";
print "OK, Here I go. I am going to count from 1 to 50!", "\n";
$| = 1;
for ($loop=1; $loop <= 50; $loop++) {
print $loop, "\n";
sleep (2);
}
print "All Done!", "\n";
exit (0);

Lo ejecuto a traves del servidor, y se queda cargando, en teoría tendría que empezar a contar del 1 al 50, pero no hace nada. He probao a aumentar el tiempo a la función sleep y na de na. El apache que estoy usando no es el último, pero el libro tampoco es que sea del 2005/2006.
Alguna idea buena por aquí? ;o)

Hola:

Te convendría checar si realmente en la primera línea está bien la ruta de tu Perl:

Código: Seleccionar todo

#!C:\Perl\bin\perl


Ahora, porque no intentas con un código como el siguiente:

Código: Seleccionar todo

#!C:\Perl\bin\perl

$| = 1;

print "Content-type: text/html", "\n\n";
print "OK, Here I go. I am going to count from 1 to 50!", "<br>\n";

    for my $loop (1..50) {
        print $loop, "<br>\n";
        sleep (2);
    }

print "All Done!", "\n";

exit (0);



SALUDOS

barbanegra_2005 escribiste:

Código: Seleccionar todo

#!C:\Perl\bin\perl
$server_protocol = $ENV{'SERVER_PROTOCOL'};
$server_software = $ENV{'SERVER_SOFTWARE'};
print "$server_protocol 200 OK", "\n";
print "Server: $server_software", "\n";
print "Content-type: text/plain", "\n\n";

Por de pronto, veo que envías el Content-type después de un par de líneas.
Ponlo al revés. Primero el Content-type, seguido de una línea en blanco, y luego todo lo demás.

Gracias por las respuestas kidd y explorer , he probao ambos metodos y no se porque no van puede que sea por la version del apache, es la 1.3.34, pero no veo el por que.

La version de Perl tampoco creo que sea, estoy usando el ActivePerl 5.6. He comprobao la ruta del perl que hay que poner en el script y es correcta, no se, tiene que ser algo mal configurado porque que no funcione ninguna de las 3 versiones ya me resulta rarrorarrorarro, sobre todo porque el resto de scripts que le meto me rulan, he probao con ejecutables en exe y tambien.

A ver si hay suerte, voy a probar con otra del apache y os cuento

Hola:

Aquí en el sitio puedes encontrar una guía que te muestra como configurar un servidor Apache+Perl en un entorno de Windows. Quizá te convenga guiarte en él para hacer los cambios que necesitas.

http://perlenespanol.com/archives-tut/000049.html

Saludos