Foro - Perl en Español

por **Sismetic** » 2009-11-19 09:19 @429

Bajé Apache y lo instalé, y lo configuré (según yo

)

Me ejecuta sin problema PHP y HTML, pero en cuanto los CGI scripts no me los ejecuta. Me muestra:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator, [email protected] and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y en el error.log:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

[Thu Nov 19 08:10:25 2009] [error] [client XXX] (OS 2)The system cannot find the file specified.  : couldn't spawn child process: G:/Naty/Perl/monster.cgi, referer: http://localhost/Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

y mi httpd.conf está así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

ServerRoot "G:/Naty/Apache"

DocumentRoot "G:/Naty/Perl/"

<Directory "G:/Naty/Perl/">

    Options Indexes FollowSymLinks ExecCGI

    AllowOverride None

    Order allow,deny

    Allow from all

</Directory>

    ScriptAlias /cgi-bin/ "G:/Naty/Perl/"

<Directory "G:/Naty/Perl/">

    AllowOverride None

    Options +ExecCGI -includes

    Order allow,deny

    Allow from all

</Directory>

    AddHandler cgi-script .cgi .plColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Gracias de antemano.

Sería interesante ver las primeras líneas de Monster.cgi.

En cuanto al httpd.conf, no me gusta nada... está repetido dos veces la definición del directorio G:/Naty/Perl/.

Además, hay errores que a mí me parecen muy graves... por ejemplo, ServerRoot es el lugar donde están los ficheros de configuración del servidor web, pero al mismo tiempo vemos que es igual que el DocumentRoot, el lugar donde residen los ficheros que van a salir al exterior. Y el mismo en donde pedimos que se ejecuten los cgi...

Yo empezaría con un httpd.conf nuevo. Hacer que funcione el servicio web normal, y luego activar los cgi. Por defecto, los httpd.conf vienen con

ScriptAlias /cgi-bin/ "G:/Naty/Perl/cgi-bin"

por lo que solo tendríamos que meter los cgi en esa carpeta, y agregar cgi-bin al URL para invocarlos.

por **Sismetic** » 2009-11-19 09:45 @448

Ok, gracias, voy a intentarlo. ¿Cómo me aconsejarías que lo haga? ¡Ah! y este es el código de monster.cgi:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!C/Perl/bin/perl.exe
 
use warnings;
use strict;
use CGI;
use HTML::Template;
use Data::Dumper;
sub Monster_Name{
 
   my $file = 'mon.txt';
   open my $FILE , '<' , $file or die ("Could not open file $file");
   my @monster_data = <$FILE>;
   close $FILE;
 
   my @monster;
   for my $data(@monster_data){
 
      chomp $data;
      my ($name,$hp,$att,$m_att) = split (',',$data);
      push @monster,$name;
 
   }
 
   shift @monster;
   return @monster;
 
}
 
sub Char{
 
   my @char = @_;
   return @char;
 
}
 
sub Get_Monster{
 
   my $self = shift;
   my $attack;
   my $defense;
   my $hp;
   if ($self eq 'Strong'){
 
      $attack = Rand_Num(150);
      $defense = Rand_Num(100);
      $hp = Rand_Num(300);
 
   }
   elsif($self eq 'Dangerous'){
 
      $attack = Rand_Num(500);
      $defense = Rand_Num(200);
      $hp = Rand_Num(1000);
 
   }
   else{
 
      $attack = Rand_Num(50);
      my $defense = Rand_Num(50);
      my $hp = Rand_Num(100);
 
   }
 
   open my $FILE,'<','mon.txt' or die $!;
   my @monsters = <$FILE>;
   close $FILE;
 
   my $monster_numb = @monsters;
   my $m_number = Rand_Num($monster_numb);
   my @monster;
   for my $data( @monsters){
 
      chomp $data;
      my ($name,$hp,$att,$m_att) = split (',',$data);
      push @monster,$name;
 
   }
   my $monster = $monster[$m_number];
   my @char = Char('Sismetic','500','150','30');
   print "$char[0] vs $monster that has " . $attack . " attack, " . $defense . " defense and " . $hp . " hp";
 
}
 
sub Rand_Num{
 
   my $self = shift;
   my $rand = int(rand($self));
   return $rand;
 
}
 
Get_Monster('Dangerous');
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

En mi editor de Perl funciona bien.

Uhm, lo cambié, ahora es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

ServerRoot "G:/Naty/Apache"

DocumentRoot "G:/Naty/Apache/htdocs"

<Directory "G:/Naty/Apache/htdocs/">

    Options Indexes FollowSymLinks ExecCGI

    AllowOverride None

    Order allow,deny

    Allow from all

</Directory>

ScriptAlias /cgi-bin/ "G:/Naty/Apache/cgi-bin/"

<Directory "G:/Naty/Apache/cgi-bin/">

    AllowOverride None

    Options +ExecCGI -includes

    Order allow,deny

    Allow from all

</Directory>

AddHandler cgi-script .cgi .plColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿En Apache/cgi-bin pondría mis scripts, y en Apache/htdocs mis documentos?

por **explorer** » 2009-11-19 10:43 @488

La primera línea es #!C/Perl/bin/perl.exe, que no es correcta. ¿Seguro que ahí está binario perl.exe? ¿No será #!C:/Perl/bin/perl.exe? (falta un ':')

El resto del programa no es un verdadero cgi: no hay devolución de las cabeceras Content-type que el servidor web espera.

Según el nuevo httpd.conf ahora sería posible acceder al cgi con http://localhost/cgi-bin/monster.cgi, y siempre que monster.cgi esté guardado en esa carpeta.

por **Sismetic** » 2009-11-20 10:59 @499

Tienes razón, ¡Dios! Qué estúpido soy, no me di cuenta. Muchas gracias

Foro - Perl en Español

Error con Apache intentando ejecutar los scripts

Error con Apache intentando ejecutar los scripts

Publicidad

Re: Error Con Apache intentando ejecutar los scripts

Re: Error Con Apache intentando ejecutar los scripts

Re: Error Con Apache intentando ejecutar los scripts

Re: Error Con Apache intentando ejecutar los scripts

¿Quién está conectado?