Ver Tema

ricar · 2011-11-15 05:06 @254

Hola a todos.

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

Ejemplo:

Syntax: [ Download ] [ Hide ]

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";
}

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:

Syntax: [ Download ] [ Hide ]

Using text Syntax Highlighting

Can´t use string ("2") as a symbol ref while "strict refs" in use at ejemplo.pl line 14

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.

explorer · 2011-11-15 05:58 @290

A ver... con el 'strict' activado, daría el aviso de que la variable $otroFichero no está declarada antes.

Faltan líneas a ese ejemplo...

¿Puedes poner un ejemplo completo, con el menor número de líneas, en donde se repita el error?

ricar · 2011-11-15 06:13 @301

Ya lo había advertido.

Ejemplo completo.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

    
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";
}
 

Muchas gracias.

Un saludo,
Ricar.

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().

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.

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í:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

opendir(my $DIR, $otroFichero);
@array = readdir($DIR);
closedir $DIR;

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í:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

CORE::opendir(my $DIR, $otroFichero);
@array = readdir($DIR);
closedir $DIR;

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.

Publicidad

Socializa