Foro - Perl en Español

por **Rene Serrano** » 2007-02-13 12:54 @579

Saludos a Todos !!

Estoy Intentando Hacer mi propia libreria de funciones siguiendo los comenterios de explorer en otro post, pero me queda algunas dudas ya que lo hice y simplimente no me sale error nada de nada.
pregunta donde tiene que estar el archivo, en mi caso se llamar libreria.pl donde tengo las funciones que nesecito , (una de estas funciones se llama error())

esto es lo que intento hacer

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use CGI::Carpqw(fatalsToBrowser set_message);
use CGI ':standard';
require'libreria.pl';

#despues de consultar la BD

if($roweq""){
&error("El Numero de Voucher No esta Registrado","/login/l_voucher.html")
}elsif($id_supeq""){
&error("El Numero de Voucher no esta Registrado en Tesoreria","/login/l_voucher.html")
}else{..
...
...
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

lo unico que me sale en el error log de apache es

[Mon Feb 12 16:29:09 2007] [error] [client 127.0.0.1] Premature end of script headers: l_voucher.pl, referer: http://localhost/login/l_voucher.html

Si colocas require 'libreria.pl'; debe estar en la misma carpeta donde está tu scirpt...

Puedes hacer algo así también...

use lib('mods');

Y en la carpeta mods colocar todos tus módulos propios, para luego llamarlos con use

Pero en mi caso son módulos, orientados a objetos, lo cual es MUY RECOMENDADDO !!!

Espero que te sirva

Saludos

por **Rene Serrano** » 2007-02-13 15:31 @688

si esta en la misma carpeta
cgi-bin/login/
pero no me muestra nada que comprobacion puedo hacer para ver si las llamada ala funcion la hace?

por **creating021** » 2007-02-13 15:35 @691

¿Y cómo sabes que el servidor lo ejecuta desde allí?
Es decir, si ejecutas un script en X lugar diciendo (por ejemplo) perl /algún/path/mi_programa,pl el verdadero path donde se busca libreria.pl será buscado donde el padre está.

por **Rene Serrano** » 2007-02-13 15:54 @704

Me quieres decir que tengo que especificar la ruta donde se encuentra el archivo libreria.pl, aunque este en el mismo directorio de donde lo solicintan ?
y como podria saber de donde lo intenta ejecutar el server?

por **creating021** » 2007-02-13 16:04 @711

En efecto... para saber donde estás usas el módulo Cwd (viene con perl)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Cwd;
print"Ahora estoy en ". getcwd()."\n";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Podrías intentar hacer un módulo (no .pl, si no .pm) y usarlo tal como dice monoswim

por **kidd** » 2007-02-13 21:02 @918

Hola:

Si ves los perldocs acerca de require, verás que Perl hace la búsqueda en los directorios especificados en @INC.

La variable @INC incluye el directorio donde reside tu script, pero no creo que el error sea por eso. Tendría que ver el script que estás llamando con require para darte una idea más específica de lo que podría ser el error.

Saludos

por **Rene Serrano** » 2007-02-14 09:31 @438

Gracias por su Interes esta en la funcion que se encuentra dentro de el archivo libreria.pl que se encuentra en la misma carpeta de donde se le llama

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use CGI::Carpqw(fatalsToBrowser set_message);
print"Content-type: text/html\n\n";

sub error(){
my$err=$_[0];
$err=~s//\+/g;
print"<META HTTP-EQUIV=\"Refresh\" CONTENT=\"0;URL=../login/errores.pl?error=$err&redir=$_[1]>";
}
exit;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En espera de sus comentarios

Saludos,

por **kidd** » 2007-02-14 13:50 @618

Ok, creo que sé cual es tu error, y es el exit() que tienes al final de archivo de tu librería, pues estás haciendo que Perl termine de ejecutar en cuanto cargas el archivo.

Elimina esa línea y pruébalo.

Saludos

por **Rene Serrano** » 2007-02-14 15:35 @691

Que Pena

Eso era Kidd Gracias Man!!!!

Nada como tener una segunda opinion

Saludos,

Foro - Perl en Español

Pregunta sobre "require"

Pregunta sobre "require"

Publicidad

¿Quién está conectado?