Foro - Perl en Español

por **situ** » 2011-01-20 23:29 @020

Me hace lo mismo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use File::stat;
use Term::ANSIColor qw(:constants);
my @archivos = qw(
       /etc/crontab
       /etc/passwd
       /etc/motd
);
for my $archivo (@archivos) {
    my $estatus = stat($archivo);
    $permisos = sprintf "%04o", $estatus->mode & 07777;
    
    if (! defined $estatus) {
        print BOLD, RED, 'No existe', RESET, " El archivo $archivo no existe en el sistema o no puede ser accedido\n";
    }
    else {
      if (! -f $archivo) {
            print BOLD, RED, 'No leible', RESET, " El archivo $archivo no puede ser leido\n";
        }
      
        if ( $permisos == 0644 ) {
 
            print BOLD, GREEN, "Positivo:", RESET, " El archivo $archivo tiene como permiso 0644\n";
 
        }
 
        else {
 
            print BOLD, RED, "Negativo:", RESET, " El archivo $archivo tiene como permiso $permisos\n";
 
        }
 
    }
    
     }
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

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

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:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        if ( $permisos == '0644' ) {
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **situ** » 2011-01-21 08:49 @409

Anda perfecto. Muchas gracias.
Saludos.

por **wanako** » 2011-01-21 14:27 @644

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'.

Imagen

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

por **explorer** » 2011-01-21 15:02 @668

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

Sintáxis: [ Descargar ] [ Ocultar ]

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 ]

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.

por **situ** » 2011-01-21 19:10 @840

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.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use File::stat;
use Term::ANSIColor qw(:constants);
# verifico si el owner es root
my @archivos = qw(
/etc/crontab
/etc/exports
/etc/fstab
/etc/group
/etc/hosts
/etc/hosts.allow
/etc/hosts.deny
/etc/inetd.conf
/etc/inittab
/etc/ld.so.conf
/etc/modules
/etc/motd
/etc/mtab
/etc/passwd
/etc/profile
/etc/securetty
/etc/syslog.conf
/bin/
/boot/
/etc/
/etc/cron.daily/
/etc/cron.hourly/
/etc/cron.weekly/
/home/
/mnt/
/lib/
/root/
/sbin/
/tmp/
/usr/
/usr/bin/
/var/
);
for my $archivo (@archivos) {
    my $estatus = stat($archivo);
    my $estatus = stat($archivo);
    my $permisos = sprintf "%04o", $estatus->mode & 07777;
 
    if (! defined $estatus) {
        print BOLD, RED, 'No existe', RESET, " El archivo $archivo no existe en el sistema o no puede ser accedido\n";
    }
    else {
        if (! -r $archivo) {
            print BOLD, RED, 'No leible', RESET, " El archivo $archivo no puede ser leido\n";
        }
 
        if ( $estatus->uid == 0 ) {
            #print BOLD, GREEN, "Positivo:", RESET, " El archivo $archivo tiene como propietario a root\n";
        }
        else {
            my ($nombre,$password,$uid,$gid,$quota,$comentario,$gcos,$dir,$shell,$expire) = getpwuid($estatus->uid);
 
            print BOLD, RED,   "Negativo:", RESET, " El archivo $archivo tiene como propietario a $nombre ($uid)\n";
        }
 
        if ( $permisos == 0644 ) {
            print BOLD, GREEN, "Positivo:", RESET, " El archivo $archivo tiene como permiso 0644\n";
        }
        else {
            print BOLD, RED, "Negativo:", RESET, " El archivo $archivo tiene como permiso $permisos\n";
        }
    }
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

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

por **explorer** » 2011-01-21 19:41 @861

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.

por **situ** » 2011-01-21 19:48 @867

Me sigue sin funcionar :s

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

mgarcia@tux ~/Escritorio $ perl -c borrar.pl
borrar.pl syntax OK
mgarcia@tux ~/Escritorio $ perl borrar.pl
Negativo: El archivo /etc/crontab tiene como permiso 0644
Can't call method "mode" on an undefined value at borrar.pl line 41.
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-01-21 19:57 @873

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:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for my $archivo (@archivos) {
    my $estatus = stat($archivo);
 
    if (! defined $estatus) {
        print BOLD, RED, 'No existe', RESET, " El archivo $archivo no existe en el sistema o no puede ser accedido\n";
    }
    else {
        if (! -r $archivo) {
            print BOLD, RED, 'No leible', RESET, " El archivo $archivo no puede ser leido\n";
        }
 
        if ( $estatus->uid == 0 ) {
            print BOLD, GREEN, "Positivo:", RESET, " El archivo $archivo tiene como propietario a root\n";
        }
        else {
            my ($nombre,$password,$uid,$gid,$quota,$comentario,$gcos,$dir,$shell,$expire) = getpwuid($estatus->uid);
            print BOLD, RED,   "Negativo:", RESET, " El archivo $archivo tiene como propietario a $nombre ($uid)\n";
        }
 
        my $permisos = sprintf "%04o", $estatus->mode & 07777;
 
        if ( $permisos eq '0644' ) {
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **situ** » 2011-01-21 20:00 @875

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

Foro - Perl en Español

Existencia de archivo y su propietario en Linux

Re: Existencia de archivo y su propietario en Linux

Publicidad

Re: Existencia de archivo y su propietario en Linux

Re: Existencia de archivo y su propietario en Linux

Re: Existencia de archivo y su propietario en Linux

Re: Existencia de archivo y su propietario en Linux

Re: Existencia de archivo y su propietario en Linux

Re: Existencia de archivo y su propietario en Linux

Re: Existencia de archivo y su propietario en Linux

Re: Existencia de archivo y su propietario en Linux

Re: Existencia de archivo y su propietario en Linux

¿Quién está conectado?