Foro - Perl en Español

Publicado: **2009-07-31 20:09 @881**

Buenas,

Antes que todo explicaré un poco lo que intento hacer. Supongamos la existencia de los siguientes ficheros:

caller.pl

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use lib qw(.);
use strict;
use TEST;
 
my $t = TEST->new();
print $t->name;
print "\n";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

TEST.pm

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package TEST;
 
use vars qw($errstr $logfile)
 
BEGIN {
    $errstr = '';
    $logfile = '/tmp/test.log';
}
 
sub new {
        my $class = shift;
        my $name = shift or $class->_error("falta nombre");
        my $self = {};
        $self->{NAME} = $name;
        bless($self, $class);
}
 
sub name {
        my $self = shift;
        $self->{NAME};
}
 
sub _error {
        my $self = shift;
        my $error = shift;
        my $file = ( caller(1) )[1];
        my $line = ( caller(1) )[2];
        my $sub = ( caller(1) )[3];
        $errstr = "Error in $file at line $line ";
        $errstr .= "while calling $sub : \"$error\"";
        $self->_log();
        die "$error\n";
}
 
sub _log {
        my $self = shift;
        open my $F, '>>', $logfile or return;
        print {$F} $errstr."\n";
        close $F;
}
1;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Al ejecutar caller.pl se produce un error ya que no se ha especificado parámetro alguno a TEST->new(), el cuál debería recibir una string. En "/tmp/test.log" queda registrado algo como:

Error in caller.pl at line 6 while calling TEST::new : "falta nombre"

Hasta aquí todo bien, funciona a la perfección.
Supongamos ahora que quiero agregar otro módulo que interacciona como puente entre caller.pl y TEST.pm:

caller.pl

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use lib qw(.);
use strict;
use PUENTE;
 
my $t = PUENTE::new();
print $t->name;
print "\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

PUENTE.pm

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package PUENTE;
 
use lib qw(.);
use TEST;
 
sub new {
        return TEST->new(shift);
}
 
1;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Al ejecutar caller.pl imprimirá en pantalla algo así:

Error in PUENTE.pm at line 7 while calling TEST::new : "falta nombre"

Aun así, mi intención también es de alguna manera saber en qué parte de caller.pl se produjo el error. Para ello he intentado saber la cantidad de llamadas que se han producido, pero aún no logro hacerlo. También he intentado averiguar la cantidad de elementos que posee caller(), pero se me ha hecho imposible.

¿Alguna idea?

¡Saludos!

Publicado: **2009-08-01 01:53 @120**

Quizás necesites el módulo Carp.pm. Está instalado siempre y es fácil pedirle que salte un "puente".

Jenda
P.S.: No tienes por qué llamar al caller() tres veces:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my($file,$line,$sub)=(caller(1))[1,2,3];Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Publicado: **2009-08-01 05:11 @257**

Muchas gracias por ambos consejos Jenda, me funcionaron de maravilla

.

¡Saludos!

Foro - Perl en Español

Ayuda con función caller

Ayuda con función caller

Re: Ayuda con función caller

Re: Ayuda con función caller