Foro - Perl en Español

por **ricar** » 2011-11-15 05:06 @254

Hola a todos.

Si utiliza la directiva strict, Win32::Perms y opendir, el programa me falla.

Ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use Win32::Perms;
 
my $user = Win32::Perms->new($fichero)->Owner;
print "$user\n";
 
opendir(DIR, $otroFichero);
@array = readdir(DIR);
foreach my $key (@array) {
print "$key\n";
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Si elimino lo relativo a Win32::Perms, el programa funciona.

Como podéis observar, no tiene relación lo que hace Win32::Perms con lo que hace opendir(), me refiero a que no utilizan variables comunes, son dos partes completamente independientes... al menos en teoría :S.

Es sólo un ejemplo, por lo que no he inicializado variables ni nada por el estilo.

Edito: El error que me da es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Can´t use string ("2") as a symbol ref while "strict refs" in use at ejemplo.pl line 14Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

La línea 14, en este caso hace referencia a opendir().

No entiendo por qué hace referencia al valor "2" ¿¿??

Muchas gracias.

Un saludo,
Ricar.

    
use strict;
use Win32::Perms;
 
my $fichero = "C:\\temp";
my $otroFichero = "C:\\Perl";
my $user = undef;
my @array;
 
$user = Win32::Perms->new($fichero)->Owner;
print "$user\n";
     
opendir(DIR, $otroFichero);
@array = readdir(DIR);
foreach my $key (@array) {
print "$key\n";
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Muchas gracias.

Un saludo,
Ricar.

por **explorer** » 2011-11-15 08:54 @412

Estoy sospechando que el error está, realmente, en la línea 10... al pasar el objeto del new() al Owner().

por **ricar** » 2011-11-15 12:25 @559

Hola explorer.

No está ahí el error.

Si comentas todo lo relativo a Win32::Perms. El programa funciona.
Si comentas lo relativo a opendir() y descomentas lo anterior. El programa funciona.
Si vuelves a comentar lo relativo a Win32::Perms, excepto el "use Win32::Perms" y descomentas lo relativo a opendir, el programa falla.

No sé si me he explicado correctamente. Digamos que son dos programas independientes que funcionan correctamente por separado, pero si los unes...

El problema está entre Win32::Perms y opendir() pero desde que accedes al módulo (use) del primero.

Un saludo,
Ricar.

por **explorer** » 2011-11-15 15:11 @674

Vale, aceptemos entonces que el tema esté en el opendir()... entonces...

1.- Lo primero, quitaría el 'DIR', y lo sustituiría por una variable local. Algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

opendir(my $DIR, $otroFichero);
@array = readdir($DIR);
closedir $DIR;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

2.- Segundo (si no funciona la primera opción), es, obligar a que use la función opendir() de Perl (quizás el módulo tiene definido su propia función opendir()). Así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

CORE::opendir(my $DIR, $otroFichero);
@array = readdir($DIR);
closedir $DIR;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **ricar** » 2011-11-16 03:06 @171

Hola explorer.

La primera opción es válida. Pensaba que el error estaría en el fichero de entrada... pero como en las buenas películas, el "culpable" era otro

.

Muchas gracias.

Un saludo,
Ricar.

Foro - Perl en Español

Directiva strict

Directiva strict

Publicidad

Re: Directiva strict

Re: Directiva strict

Re: Directiva strict

Re: Directiva strict

Re: Directiva strict

Re: Directiva strict

¿Quién está conectado?