Foro - Perl en Español

por **ivanlog19** » 2009-09-22 17:12 @758

Hola, tengo problemas al pasar parámetros a subrutinas que tengo definidas en otros módulos (paquetes).

Ejemplo 1:
Quiero pasarle como parámetro a la función "parsear_por_nombre" el nombre del archivo, o sea, una cadena de caracteres, no una referencia. ¿Cómo hago?
Esto es lo que tengo hecho:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

opendir(DIRHANDLE,"$ruta")||die"ERROR: no se pudo leer el directorio";

foreach(readdir(DIRHANDLE)){
my$nombreArchivo=$_;

if(!($nombreArchivoeq"."||$nombreArchivoeq"..")){
my$datos=$procesador->parsear_por_nombre($nombreArchivo)
}
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Ejemplo 2:
Quiero pasarle como parámetro a la función "parsear_archivo" un filehandle del archivo, o sea que, dentro de esta función, pueda acceder línea por línea del archivo usando <$archivo>. ¿Cómo hago?
Esto es lo que tengo hecho:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

opendir(DIRHANDLE,"$ruta")||die"ERROR: no se pudo leer el directorio";

foreach(readdir(DIRHANDLE)){
my$nombreArchivo=$_;

if(!($nombreArchivoeq"."||$nombreArchivoeq"..")){
open(my$archivo,"$ruta$nombreArchivo");
my$datos=$procesador->parsear_archivo($archivo)
}
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

¡Gracias!

Yo no veo problemas en tu código... ¿qué errores te da?

Lo único así raro es que podrías colocar el open() del $archivo dentro de la función parsear_archivo(). Mejor dicho, el open(), el <> y el close().

Si no ves el error intenta mostrar el código de las funciones. O el mensaje de error que Perl te devuelve. Activa el warnings y el diagnostics.

por **ivanlog19** » 2009-09-22 18:29 @811

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

opendir(my$dirh,$ruta)ordie"ERROR: no se pudo leer el directorio";

while(my$nombreArchivo=readdir$dirh){
nextif$nombreArchivoeq'.';
nextif$nombreArchivoeq'..';

print"$nombreArchivo\n";#1er impresión
my$datos=$procesador->parsear_por_nombre($nombreArchivo);
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub parsear_por_nombre{
my$file_name=shift;
print"$file_name\n";#2da impresión
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Puede ser que el problema sea que la función parsear_por_nombre() es de otro módulo?

Agregué esos print() en los códigos; el primer print() me imprime efectivamente el nombre del archivo, pero el segundo (que está dentro de otro módulo en la subrutina "parsear_por_nombre") me imprime "MKT::ProcesamientoDatos=HASH(0x347b5c8)". MKT::procesamientoDatos es el módulo que me definí que contiene a la subrutina parsear_por_nombre().

por **explorer** » 2009-09-22 19:34 @857

¿Por qué pones \shift? ¿No será, simplemente, shift?

por **ivanlog19** » 2009-09-22 20:15 @885

Si, tienes razón.

Fue un error mio al escribir el post anterior, ya lo edité.
En el programa puse solo shift, no \shift.

¿Alguien sabe dónde está el problema?

PD: Gracias, explorer, por responder siempre tan rápido.

por **explorer** » 2009-09-23 02:42 @154

La función que has puesto se llama parcear(), que no es parsear_por_nombre() ni parsear_archivo().

por **ivanlog19** » 2009-09-23 10:14 @468

Ese fue otro error al escribir el post. En el programa lo tengo bien.

¿Nadie sabe cuál es el problema?

-Ya corregí el nombre del procedimiento en el post-

por **ivanlog19** » 2009-09-23 10:32 @480

La función parsear_por_nombre() es un procedimiento de una clase.
¿Puede ser que tenga algo que ver?

A continuación pongo los códigos un poco más detallado (incluyo el procedimiento constructor de la clase).

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$procesador= MKT::ProcesamientoDatos->newProcesador();

opendir(my$dirh,$ruta)ordie"ERROR: no se pudo leer el directorio";
while(my$nombreArchivo=readdir$dirh){
nextif$nombreArchivoeq'.';
nextif$nombreArchivoeq'..';

print"$nombreArchivo\n";#1er impresión
my$datos=$procesador->parsear_por_nombre($nombreArchivo);
}Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub newProcesador {
my$class=shift;
my$self={};

bless($self,$class);# Perl nos tiene que dar el visto bueno (bendecirla)
return($self);# Devolvemos la clase recién construida
}

sub parsear_por_nombre{
my$file_name=shift;
print"$file_name\n";#2da impresión
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-09-23 11:39 @527

Sí, el problema está en la definición de la función parsear_por_nombre().

Al llamarla como $procesador->parsear_por_nombre($nombreArchivo);, perl está metiendo en la pila de argumentos, además de $nombreArchivo, el valor del objeto al que estamos haciendo referencia: $procesador. Así que hay que sacarlos en ese orden:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
use MKT::ProcesamientoDatos;
 
my $procesador = MKT::ProcesamientoDatos->newProcesador();
 
my $ruta = '.';
 
opendir (my $dirh, $ruta) or die"ERROR: no se pudo leer el directorio";
while (my $nombreArchivo = readdir $dirh) {
    next if $nombreArchivo eq '.';
    next if $nombreArchivo eq '..';
 
    print "1. $nombreArchivo\n"; #1er impresión
    my $datos = $procesador->parsear_por_nombre($nombreArchivo);
}
 
__END__
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package MKT::ProcesamientoDatos;
use strict;
use warnings;
use diagnostics;
 
sub newProcesador {
    my $class=shift;
    my $self = {};
 
    bless ($self, $class); # Perl nos tiene que dar el visto bueno (bendecirla)
    return ($self);        # Devolvemos la clase recién construida
}
 
sub parsear_por_nombre{
    my $self      = shift;
    my $file_name = shift;
    print "2. $file_name\n"; #2da impresión
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

$self almacenará el valor de $procesador, por si necesitamos referirnos al hash bendecido que almacena las propiedades del objeto. Los argumentos de la función estarán a partir de ese primer argumento.

Ahora bien, lo que también podemos hacer es integrar la función dentro del espacio de nombres del programa. Quedaría así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
use MKT::ProcesamientoDatos 'parsear_por_nombre';
 
my $ruta = '.';
 
opendir (my $dirh, $ruta) or die"ERROR: no se pudo leer el directorio";
while (my $nombreArchivo = readdir $dirh) {
    next if $nombreArchivo eq '.';
    next if $nombreArchivo eq '..';
 
    print "1. $nombreArchivo\n"; #1er impresión
    my $datos = parsear_por_nombre($nombreArchivo);
}
 
__END__
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y el módulo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package MKT::ProcesamientoDatos;
use strict;
use warnings;
use diagnostics;
 
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(parsear_por_nombre);
 
sub newProcesador {
    my $class=shift;
    my $self = {};
 
    bless ($self, $class); # Perl nos tiene que dar el visto bueno (bendecirla)
    return ($self);        # Devolvemos la clase recién construida
}
 
sub parsear_por_nombre{
    my $file_name = shift;
    print "2. $file_name\n"; #2da impresión
}
 
1;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El resultado será el mismo. Puedes decidir si quieres trabajar orientado a objetos o aumentar la funcionalidad de Perl incorporando más funciones.

por **ivanlog19** » 2009-09-23 11:59 @541

¡Excelente!

Gracias explorer, ese era el problema.

Ya pueden cerrar el tema y ponerle el cartelito de "RESUELTO".

Foro - Perl en Español

Problema pasando parámetros a procedimientos

Problema pasando parámetros a procedimientos

Publicidad

Re: Problema pasando parametros a procedimientos

Re: Problema pasando parametros a procedimientos

Re: Problema pasando parámetros a procedimientos

Re: Problema pasando parámetros a procedimientos

Re: Problema pasando parámetros a procedimientos

Re: Problema pasando parámetros a procedimientos

Re: Problema pasando parámetros a procedimientos

Re: Problema pasando parámetros a procedimientos

Re: Problema pasando parámetros a procedimientos

¿Quién está conectado?