Foro - Perl en Español

explorer escribiste:A ver... no puede ser "molesto" si viene incluido en la distribución base de Perl.

Bueno, si molesto es un adjetivo poco feliz la discusión puede ser eterna, podemos decir ¿no retrocompatible?

explorer escribiste:Este módulo sobreescribe o secuestra la función del sistema stat(), para dar la posibilidad de acceder a los datos devueltos por el stat() normal, pero de una forma más cómoda, ergo deducen que quien pone un use File::stat; en su programa es porque no quiere acceder a la funcionalidad de la stat() integrada.

Claro, pero File::stat está integrado, es a mi entender algo como elegir entre say() y print() 'capado', salvando las distancias.

explorer escribiste:Lo de los problemas de versiones: hasta antes de Perl v5.12, teníamos que seguir haciendo lo que hemos hecho siempre, para comprobar si un fichero era legible, ejecutable o texto plano, era seguir usando los operadores -X. Pero a partir de Perl v5.12, eso ya se puede hacer con el propio objeto que devuelve File::stat. Así, un programa que hiciera

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

my $fichero    = '/etc/crontab';
my($uid,$size) = (stat($fichero))[4,7];
my $es_legible = -r $fichero;
my $es_texto   = -f $fichero;

Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4

ahora se puede reescribir así

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

use File::stat;
my $fichero    = '/etc/crontab';
my $st_fichero = stat($fichero);
my $uid        = $st_fichero->uid;
my $size       = $st_fichero->size;
my $es_legible = -r $st_fichero;
my $es_texto   = -f $st_fichero;

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Con lo que queda un poquito más claro (en lugar de un 4 y un 7, tenemos 'uid' y 'size', más gráficas).

Se podrían seguir usando las opciones -X sobre $fichero, desde luego, pero File::stat da una posibilidad más. No quita posibilidades.

El problema ha venido porque yo he realizado el programa en mi Perl v5.12, sin darme cuenta de que, efectivamente, los operadores -X solo funcionan en esa versión con los objetos File::stat. Así que, una de dos: o pongo un use 5.012; al principio de mi programa o, mucho mejor, adoptamos tu solución de cambiar $estatus por $archivo.

Mi apreciación del caso no fue para buscar una solución alternativa, sin querer me topé con lo que yo llamaría incongruencia e ilegibilidad del código.

La opción uno use 5.012; no funciona en 5.10 como si fuera use features;.

En 5.12 no se puede sobreescribir:

Efectivamente, sí quita posibilidades y no provee de otras para su reemplazo en formato de POO, obligándome a usar la forma ¿antigua? en ciertos casos, comenta el use File::stat; y el if se cumple, déjalo y comenta el if para que el warn se cumpla.

Lo sé, no es muy usada la sintaxis, pero...
...es molesto

Si comentaba lo del use 5.012, era para indicar que necesitabas mínimo esa versión para que mi solución funcionara

En cuanto al ejemplo que pones, insisto en que si pones File::stat, es porque no quieres usar el stat() integrado. De todas formas, sí que puedes usar el stat() integrado, escribiéndolo como CORE::stat().

En la sección BUGS de la documentación del módulo, se comenta que la variable $_ y el manejador especial '_' ya no son válidos con las funciones stat() y lstat() de File::stat, pero sí que hay formas de pasarlas al módulo, bien sea explicitando a la variable $_, como llamando a File::stat::populate() con el manejador '_'.

Estoy de acuerdo contigo en que lo que resulta molesto es en la no completa compatibilidad con lo que anuncia el módulo. En tu ejemplo pones la prueba '-B', y en mi File::stat dice que esa opción no está (todavía) implementada, lo cual me obligaría a pasar de -B $st_fichero a -B $fichero. Vamos, que seguiremos usando los test de fichero como hemos hecho siempre, y esperaremos, en un futuro próximo, a que terminen de integrarse en el módulo (o quizás, eso nunca suceda).