Foro - Perl en Español

por **Skull118** » 2014-02-25 18:08 @797

Buenas tardes, nuevamente acudo a Perl en Español, debido a que presento un problema al ejecutar un script del lado del servidor, y no regresa mayor información, ni en el log de Apache, ni mucho menos vía html.

El problema pude verificar, está en la expresión regular, la cual al descomentarla, pasa sin ningún problema hasta el final, dándome el alert de JavaScript que le puse.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!C:/Perl64/bin/perl.exe
use CGI;
foreach$a(my @a=glob("*.TXT")){ 
        if($a=~m/TV/){
                print("content-type: text/html \n\n");
                print("<script language='javascript'>alert('LLAMARIA AL SCRIPT DE TV');</script>");
        }
}
exit(1);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

En html solo me da este error:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict 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, admin@localhost 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.001 segundos,  usando GeSHi 1.0.8.4

De antemano agradezco la ayuda.

O me dice en ambos que correrá el script TV (el cuál será otro problema más adelante, estoy casi seguro) o me dice que no sabe qué script debe de correr en ambos archivos.

Una pregunta adicional: ¿en dónde podría empezar a ver la sintaxis básica para poder empezar a generar scripts web en Perl? De antemano muchas gracias por el apoyo, mi más grande respeto y admiración.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!C:/Perl64/bin/perl.exe -w
use strict;
print("content-type: text/html \n\n");
foreach$a(my @a=glob("*.TXT")){
        my $ar=$a;
        my $ar =~ s/\s$*//g;
        my $co="^TV";
        my $l="<script language='javascript'>alert('".$ar."');</script>";       
        if ($a !~ m/$co/) {
                my $l="<script language='javascript'>alert('LLAMARIA AL SCRIPT DE TV CON EL ARCHIVO ".$ar."');</script>";
                print($l);
        }
        else{           
                my $l=("<script language='javascript'>alert('NO SE CUAL PROCEDIMIENTO CORRERIA CON EL ARCHIVO ".$ar."');</script>");
                print($l);
        }
}
exit(1);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **reLlene** » 2014-02-26 11:13 @509

Skull118: ¿necesitas escapar algún carácter especial? Porque así como lo tienes no lo consigues, ¡¡como dice explorer arriba!!
Por cierto... el error que obtienes del servidor puede disparar MUCHOS motivos, ¡¡nada mejor que echarle una mirada al error log del mismo!!

EDIT: veo que publicamos al unísono y acabo de ver tu nuevo mensaje :lol:

Te dejo dos tutoriales del foro donde hablan lo básico de expresiones regulares para que vayan ajustando mejor lo que quieres capturar o detectar. Luego puedes mirar más por la red.

http://perlenespanol.com/tutoriales/exp ... bases.html

http://perlenespanol.com/tutoriales/exp ... medio.html

y otro consejo es el que le eches una mirada al scope (y su alcance) de las variables en Perl

por **Skull118** » 2014-02-26 12:04 @544

reLlene: Te comento, en consola, el script funciona excelente, sin embargo cuando intento ejecutarlo desde el servidor, pareciera ser, que no ejecuta la expresión regular, las mismas las he utilizado en reiteradas ocasiones, sin mayores inconvenientes, más que cuando son expresiones sumamente complejas, en las cuales el maestro explorer, le ha echado una mano.

por **reLlene** » 2014-02-26 13:14 @593

Dices "cuando intento ejecutarlo desde el servidor, pareciera ser, que no ejecuta la expresión regular". ¿Quiere decir que el resto se imprime? ¿U obtienes una vez más error del servidor? ¿Tiene permisos el script para correr en el servidor? Veo que estás en Windows pero quizás la restricción sea otra, por eso ¡¡INSISTO en que revises el log del servidor para dar con el clavo de lleno!!

por **Skull118** » 2014-02-26 17:34 @774

Estos son los errores que me da, compañero, efectivamente estoy sobre Windows (prefiero Linux pero no puedo escoger aquí

Mientras tanto hago lo que puedo con lo que tengo.

Sintáxis: [ Descargar ] [ Ocultar ]

[Wed Feb 26 16:14:44 2014] [error] [client 127.0.0.1] C:/wamp/bin/apache/Apache2.2.17/cgi-bin/REVISAR_DCMS.PL is not executable; ensure interpreted scripts have "#!" first line
[Wed Feb 26 16:14:44 2014] [error] [client 127.0.0.1] (9)Bad file descriptor: don't know how to spawn child process: C:/wamp/bin/apache/Apache2.2.17/cgi-bin/REVISAR_DCMS.PL
[Wed Feb 26 16:14:47 2014] [error] [client 127.0.0.1] C:/wamp/bin/apache/Apache2.2.17/cgi-bin/REVISAR_DCMS.PL is not executable; ensure interpreted scripts have "#!" first line
[Wed Feb 26 16:14:47 2014] [error] [client 127.0.0.1] (9)Bad file descriptor: don't know how to spawn child process: C:/wamp/bin/apache/Apache2.2.17/cgi-bin/REVISAR_DCMS.PL
[Wed Feb 26 16:15:42 2014] [error] [client 127.0.0.1] C:/wamp/bin/apache/Apache2.2.17/cgi-bin/REVISAR_DCMS.PL is not executable; ensure interpreted scripts have "#!" first line
[Wed Feb 26 16:15:42 2014] [error] [client 127.0.0.1] (9)Bad file descriptor: don't know how to spawn child process: C:/wamp/bin/apache/Apache2.2.17/cgi-bin/REVISAR_DCMS.PL
[Wed Feb 26 16:17:33 2014] [error] [client 127.0.0.1] C:/wamp/bin/apache/Apache2.2.17/cgi-bin/REVISAR_DCMS.PL is not executable; ensure interpreted scripts have "#!" first line
[Wed Feb 26 16:17:33 2014] [error] [client 127.0.0.1] (9)Bad file descriptor: don't know how to spawn child process: C:/wamp/bin/apache/Apache2.2.17/cgi-bin/REVISAR_DCMS.PL
[Wed Feb 26 16:17:46 2014] [error] [client 127.0.0.1] C:/wamp/bin/apache/Apache2.2.17/cgi-bin/REVISAR_DCMS.PL is not executable; ensure interpreted scripts have "#!" first line
[Wed Feb 26 16:17:46 2014] [error] [client 127.0.0.1] (9)Bad file descriptor: don't know how to spawn child process: C:/wamp/bin/apache/Apache2.2.17/cgi-bin/REVISAR_DCMS.PL
[Wed Feb 26 16:21:35 2014] [error] [client 127.0.0.1] C:/wamp/bin/apache/Apache2.2.17/cgi-bin/REVISAR_DCMS.PL is not executable; ensure interpreted scripts have "#!" first line
[Wed Feb 26 16:21:35 2014] [error] [client 127.0.0.1] (9)Bad file descriptor: don't know how to spawn child process: C:/wamp/bin/apache/Apache2.2.17/cgi-bin/REVISAR_DCMS.PL
[Wed Feb 26 16:23:42 2014] [error] [client 127.0.0.1] C:/wamp/bin/apache/Apache2.2.17/cgi-bin/REVISAR_DCMS.PL is not executable; ensure interpreted scripts have "#!" first line
[Wed Feb 26 16:23:42 2014] [error] [client 127.0.0.1] (9)Bad file descriptor: don't know how to spawn child process: C:/wamp/bin/apache/Apache2.2.17/cgi-bin/REVISAR_DCMS.PL
[Wed Feb 26 16:24:12 2014] [error] [client 127.0.0.1] C:/wamp/bin/apache/Apache2.2.17/cgi-bin/REVISAR_DCMS.PL is not executable; ensure interpreted scripts have "#!" first line
[Wed Feb 26 16:24:12 2014] [error] [client 127.0.0.1] (9)Bad file descriptor: don't know how to spawn child process: C:/wamp/bin/apache/Apache2.2.17/cgi-bin/REVISAR_DCMS.PL
[Wed Feb 26 16:29:13 2014] [notice] Parent: Received shutdown signal -- Shutting down the server.
[Wed Feb 26 16:29:13 2014] [notice] Child 10116: Exit event signaled. Child process is ending.
[Wed Feb 26 16:29:14 2014] [notice] Child 10116: Released the start mutex
[Wed Feb 26 16:29:15 2014] [notice] Child 10116: All worker threads have exited.
[Wed Feb 26 16:29:15 2014] [notice] Child 10116: Child process is exiting
[Wed Feb 26 16:29:15 2014] [notice] Parent: Child process exited successfully.
[Wed Feb 26 16:29:21 2014] [notice] Apache/2.2.17 (Win32) PHP/5.3.4 configured -- resuming normal operations
[Wed Feb 26 16:29:21 2014] [notice] Server built: Oct 24 2010 13:33:15
[Wed Feb 26 16:29:21 2014] [notice] Parent: Created child process 10168
[Wed Feb 26 16:29:21 2014] [notice] Child 10168: Child process is running
[Wed Feb 26 16:29:21 2014] [notice] Child 10168: Acquired the start mutex.
[Wed Feb 26 16:29:21 2014] [notice] Child 10168: Starting 64 worker threads.
[Wed Feb 26 16:29:21 2014] [notice] Child 10168: Starting thread to listen on port 80.
[Wed Feb 26 16:29:31 2014] [error] [client 127.0.0.1] C:/wamp/bin/apache/Apache2.2.17/cgi-bin/REVISAR_DCMS.PL is not executable; ensure interpreted scripts have "#!" first line
[Wed Feb 26 16:29:31 2014] [error] [client 127.0.0.1] (9)Bad file descriptor: don't know how to spawn child process: C:/wamp/bin/apache/Apache2.2.17/cgi-bin/REVISAR_DCMS.PL

por **explorer** » 2014-02-26 17:52 @786

La línea 4 tampoco es Perl. Es más... algunas líneas están destrozadas, en el sentido de que uno o más caracteres están cambiados de sitio. Algo te ha pasado a la hora de copiar el código.

El programa quedaría así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!C:/Perl64/bin/perl.exe
use strict;
use warnings;
 
print("Content-type: text/html\n\n");
 
for my $a (glob("*.TXT")) {           # para todos los archivos '*.TXT'
    my $ar = $a;                      # nombre del archivo
    my $ar =~ s/\s*$//g;              # quitarle los espacios en blanco del final del nombre
 
    if ($a =~ m/^TV/) {               # si el nombre original del archivo empieza por 'TV'
        print "<script language='javascript'>alert('NO SÉ CUÁL PROCEDIMIENTO CORRERÍA CON EL ARCHIVO " . $ar . "');</script>";
    }
    else {
        print "<script language='javascript'>alert('LLAMARÍA AL SCRIPT DE TV CON EL ARCHIVO "          . $ar . "');</script>";
    }
}
 
exit;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El mensaje de error dice que la primera línea debe empezar por '#!', lo cual es raro, ya que en Windows, no debería importar. Será cosa de usar el WAMP...

por **Skull118** » 2014-02-27 16:50 @743

Interesante respuesta, explorer, me he dado cuenta que cambia EN GRAN MANERA, la forma de programar en aplicación de escritorio (por así decirlo) y en aplicación de servidor, razón por la cual preguntaba ¿dónde puedo encontrar documentación que me permita, aprender la sintaxis básica, debido a que en el lado de "escritorio" por así decirlo, no me presenta ningún error?

De antemano, muchas gracias.

Foro - Perl en Español

Expresiones Regulares de Perl en CGI

Expresiones Regulares de Perl en CGI

Publicidad

Re: Expresiones Regulares de Perl en CGI

Re: Expresiones Regulares de Perl en CGI

Re: Expresiones Regulares de Perl en CGI

Re: Expresiones Regulares de Perl en CGI

Re: Expresiones Regulares de Perl en CGI

Re: Expresiones Regulares de Perl en CGI

Re: Expresiones Regulares de Perl en CGI

Re: Expresiones Regulares de Perl en CGI

Re: Expresiones Regulares de Perl en CGI

¿Quién está conectado?