Foro - Perl en Español

Me hace lo mismo.



salida:

Negativo: El archivo /etc/crontab tiene como permiso 0644
Negativo: El archivo /etc/passwd tiene como permiso 0644
Negativo: El archivo /etc/motd tiene como permiso 0644

:S

wanako escribiste:Pequeño bug:

if (! -f $estatus) {

$estatus no es texto plano, $archivo tal vez lo sea.

No, no es un error. Comprueba la sinopsis del módulo File::stat.

-f no es para comprobar filas, sino para saber si el fichero es texto plano. Quizás fuera mejor usar -r, que indica si el fichero es legible por el usuario.

Sería interesante que mostraras un ejemplo que dices que no funciona en Perl v5.10.

situ: cambia la línea 21:

Anda perfecto. Muchas gracias.
Saludos.

explorer escribiste:No, no es un error. Comprueba la sinopsis del módulo File::stat.

-f no es para comprobar filas, sino para saber si el fichero es texto plano. Quizás fuera mejor usar -r, que indica si el fichero es legible por el usuario.

Sería interesante que mostraras un ejemplo que dices que no funciona en Perl v5.10.

Ya había escrito que no es un error, es un módulo molesto.

Depende cómo se mire todo es una fila en *nix. Lo que traté de decir es que -f comprueba que esa fila sea texto plano, pero en versiones anteriores a 5.12 no se puede usar directamente contra el objeto creado por 'stat'. Es lo que entendí al leer la documentación, además de la molestia de dejar afuera otros operadores de testeo como -t -T y -B obligándome a usar constantes de 'Fcntl'.




Por supuesto que en win32 modifiqué un poco el código pero se entiende, en ningún momento se cumple (! -f $status) como sucede en 5.10.

O tal vez sea un problema en mi distro con alguna librería mal actualizada, pero en perldoc dice habilitada la nueva stat() en 5.8 y en CPAN aclaran que sobreescribe funciones, anula otras y crea nuevas para la versión 5.12.

Módulo molesto

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

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.

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

ahora se puede reescribir así
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.

Muchas gracias. La verdad que estoy aprendiendo mucho con la ayuda de ustedes.
Tengo otro problema: si el archivo no existe el programa hace un break, parece.



No sé cómo continuar =( Quise juntar todo así, no tengo código de más.

Sí que tienes código demás... la línea 40 está duplicada con la 41...

Si ejecutas desde la línea de comandos

perl -c tu-programa.pl

Perl te dirá si el programa está bien escrito o ve problemas en él.

Me sigue sin funcionar :s

La línea 61 habría que cambiarla a

if ( $permisos eq '0644' ) {

Y se debería de comprobar antes si el fichero existe o no, antes de hacer el mode().

Quedaría:

Perfecto! voy a seguir con el script espero no tener que molestar, luego lo publico.
Saludos.