Foro - Perl en Español

¿Alguien tiene un ejemplo del uso del módulo "Find" en busca de permisos del sistema tipo:

?
Saludos.

El módulo Find viene acompañado de un programa que se llama find2perl, que hace todo ese trabajo:

Código: Seleccionar todo

explorer@joaquin:~> find2perl / -type d -perm -01111 -print
#! /usr/bin/perl -w
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
        if 0; #$running_under_some_shell

use strict;
use File::Find ();

# Set the variable $File::Find::dont_use_nlink if you're using AFS,
# since AFS cheats.

# for the convenience of &wanted calls, including -eval statements:
use vars qw/*name *dir *prune/;
*name   = *File::Find::name;
*dir    = *File::Find::dir;
*prune  = *File::Find::prune;

sub wanted;



# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, '/');
exit;


sub wanted {
    my ($dev,$ino,$mode,$nlink,$uid,$gid);

    (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
    -d _ &&
    (($mode & 01111) == 01111) &&
    print("$name\n");
}

Es decir, si lo ejecutas con los mismos argumentos que los que utilizas con el comando 'find', 'find2perl' te generará un programa Perl que hará lo mismo que el comando.

Muchas Gracias, voy a probar el find2perl.
Saludos

Tengo el siguiente ejemplo:


El tema es que por consola me muestra bien el resultado, pero en el HTML me imprime todos mis archivos y no solo los que tienen el Sticky Bit.

Es porque el print() hacia el fichero HTML está fuera de la comprobación lógica.

Colocando el código de otra manera, queda:



Como ves, el print() del HTML no está dentro de la lógica que decide si el fichero encontrado debe imprimirse o no, sino que se ejecuta en todos los casos.

Una solución es cambiar la línea

por

Es decir, agregamos una condición más, añadida al resto. Como es normal que el print "$name\n" no falle, entonces también se ejecutará nuestro print() hacia el fichero HTML.

Además, he simplificado el código HTML, que tenía un error (le faltaba una marca de cierre de 'font').

Gracias, ahora pude hacer que el reporte HTML sea el correcto, pero ahora en consola me aparece en número "1" por cada archivo que encuentra y no me lo muestra.



¿Tienes idea el qué puede ser?

Prueba a cambiar todos los '&&' por 'and'. Y si no funciona, prueba a poner paréntesis a los print(). Por ejemplo: print("$name\n").

El '1' que te sale es el resultado del penúltimo print(). Resulta que ese print(), lo que está viendo es una comparación lógica entre un cadena de caracteres y otro print(). Y claro, eso siempre es cierto, por eso devuelve un '1'. Y eso no es lo que queremos. Queremos una ejecución secuencial de sentencias solo si cada sentencia es precedida por una sentencia que sí se ha ejecutado.

Cambié los && por and y todo funcionó perfecto.

Gracias

Ahora, como deberes, tienes que explicar porqué ha funcionado cambiando de operador lógico, si los dos hacen lo mismo, el 'and' lógico.

No logro hacerlo funcionar con el IF que le agregué