Foro - Perl en Español

La comunidad de programadores en Perl de habla hispana.

Obviar


  • Publicidad

Buscar sticky bit en todos los archivos

¿Eres administrador de sistemas? Este foro es para todos aquellos temas relacionados con el uso de Perl para administración de sistemas.
Publicar una respuesta

Buscar sticky bit en todos los archivos

Notapor situ » 2011-01-21 20:54 @912

¿Alguien tiene un script para buscar sticky bit?

Sintáxis: [ Descargar ] [ Ocultar ]
Using bash Syntax Highlighting
  1. ~$ find / -perm -1000 -exec ls -la {} \;
  2.  
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4


Yo tengo en bash pero estaba buscando en Perl.

Saludos.
situ
Perlero nuevo
Perlero nuevo
 
Mensajes: 358
Registrado: 2007-04-09 01:44 @114
Arriba

Publicidad

Re: Buscar sticky bit en todos los archivos

Notapor explorer » 2011-01-21 21:02 @918

Para traducir órdenes del comando find a Perl, nada mejor que el comando find2perl (incluido con la distribución del módulo File::Find, así que es muy posible que lo tengas ya instalado).
Sintáxis: [ Descargar ] [ Ocultar ]
Using bash Syntax Highlighting
explorer@casa:~/Documentos/Desarrollo> find2perl / -perm -1000 -exec ls -la {} \;
#! /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;
sub doexec ($@);


use Cwd ();
my $cwd = Cwd::cwd();


# 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($_)) &&
    (($mode & 01000) == 01000) &&
    doexec(0, 'ls','-la','{}');
}


sub doexec ($@) {
    my $ok = shift;
    my @command = @_; # copy so we don't try to s/// aliases to constants
    for my $word (@command)
        { $word =~ s#{}#$name#g }
    if ($ok) {
        my $old = select(STDOUT);
        $| = 1;
        print "@command";
        select($old);
        return 0 unless <STDIN> =~ /^y/;
    }
    chdir $cwd; #sigh
    system @command;
    chdir $File::Find::dir;
    return !$?;
}
 
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4

Aunque analizando el código, se puede extraer la información que realmente queremos.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España
Arriba

Re: Buscar sticky bit en todos los archivos

Notapor situ » 2011-01-21 21:16 @928

Intenté agregar el siguiente script dentro de la utilidad que hablamos en el post: existencia-de-archivo-y-su-propietario-en-linux-t5685.html

Pero no me funciona, ahora si lo ejecuto en un script nuevo, si anda =(

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. use Term::ANSIColor qw(:constants);
  2. use strict;
  3. use File::Find ();
  4. use vars qw/*name *dir *prune/;
  5. *name   = *File::Find::name;
  6. *dir    = *File::Find::dir;
  7. *prune  = *File::Find::prune;
  8. sub wanted;
  9. # Traverse desired filesystems
  10. File::Find::find({wanted => \&wanted}, '/');
  11. sub wanted {
  12.     my ($dev,$ino,$mode,$nlink,$uid,$gid);
  13.     (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) and
  14.     !($File::Find::prune |= ($dev != $File::Find::topdev)) and
  15.     -d _ and
  16.     (
  17.         (($mode & 01000) == 01000)
  18.     ) and
  19. print BOLD, WHITE, "Informacion:",RESET . " Se detecto sticky bit en $name\n" and      
  20. }
  21. print BOLD, CYAN, "\t\t\t\t\t\t[Pulse la tecla ENTER para continuar]", RESET;
  22. <>;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
situ
Perlero nuevo
Perlero nuevo
 
Mensajes: 358
Registrado: 2007-04-09 01:44 @114
Arriba

Re: Buscar sticky bit en todos los archivos

Notapor explorer » 2011-01-21 21:21 @931

Tienes que fijarte en los errores que te devuelve Perl...

Sintáxis: [ Descargar ] [ Ocultar ]
Using bash Syntax Highlighting
explorer@casa:~/Documentos/Desarrollo> perl -c code_24258.pl
syntax error at code_24258.pl line 20, near "}"
code_24258.pl had compilation errors.
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España
Arriba

Re: Buscar sticky bit en todos los archivos

Notapor situ » 2011-01-21 21:35 @941

Igualmente como te decia antes solo me anda el tema es cuando lo agrego al script anterior.

Codigo:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl -w
  2. no warnings;
  3. use File::Find ();
  4. use File::stat;
  5. # Modulos
  6. use Term::ANSIColor qw(:constants);
  7.  
  8. ## Verificacion de permisos en archivos y directorios
  9. print " -- Verificar permisos en archivos y directorios\n";
  10. # verifico si el owner es root
  11. my @archivos = qw(
  12. /etc/crontab
  13. /etc/exports
  14. /etc/fstab
  15. /etc/group
  16. /etc/hosts
  17. /etc/hosts.allow
  18. /etc/hosts.deny
  19. /etc/inetd.conf
  20. /etc/inittab
  21. /etc/ld.so.conf
  22. /etc/modules
  23. /etc/motd
  24. /etc/mtab
  25. /etc/passwd
  26. /etc/profile
  27. /etc/securetty
  28. /etc/syslog.conf
  29. /bin/
  30. /boot/
  31. /etc/
  32. /etc/cron.daily/
  33. /etc/cron.hourly/
  34. /etc/cron.weekly/
  35. /home/
  36. /mnt/
  37. /lib/
  38. /root/
  39. /sbin/
  40. /tmp/
  41. /usr/
  42. /usr/bin/
  43. /var/
  44. );
  45. for my $archivo (@archivos) {
  46.     my $estatus = stat($archivo);
  47.  
  48.     if (! defined $estatus) {
  49.         print BOLD, RED, 'No existe', RESET, " El archivo $archivo no existe en el sistema o no puede ser accedido\n";
  50.     }
  51.     else {
  52.         if (! -r $archivo) {
  53.             print BOLD, RED, 'No leible', RESET, " El archivo $archivo no puede ser leido\n";
  54.         }
  55.  
  56.         if ( $estatus->uid == 0 ) {
  57.             #print BOLD, GREEN, "Positivo:", RESET, " El archivo $archivo tiene como propietario a root\n";
  58.         }
  59.         else {
  60.             my ($nombre,$password,$uid,$gid,$quota,$comentario,$gcos,$dir,$shell,$expire) = getpwuid($estatus->uid);
  61.             print BOLD, RED,   "Negativo:", RESET, " El archivo $archivo tiene como propietario a $nombre ($uid)\n";
  62.         }
  63.  
  64.         my $permisos = sprintf "%04o", $estatus->mode & 07777;
  65.  
  66.         if ( $permisos eq '0644' ) {
  67.  
  68.             #print BOLD, GREEN, "Positivo:", RESET, " El archivo $archivo tiene como permiso 0644\n";
  69.  
  70.         }
  71.  
  72.         else {
  73.  
  74.             print BOLD, RED, "Negativo:", RESET, " El archivo $archivo tiene como permiso $permisos\n";
  75.  
  76.         }
  77.     }
  78. }
  79.  
  80. ## Verificacion de Sticky Bit
  81.  
  82. print " -- Verificacion de Sticky Bit\n";
  83. use Term::ANSIColor qw(:constants);
  84. use File::Find ();
  85. use vars qw/*name *dir *prune/;
  86. *name   = *File::Find::name;
  87. *dir    = *File::Find::dir;
  88. *prune  = *File::Find::prune;
  89. sub wanted;
  90. # Traverse desired filesystems
  91. File::Find::find({wanted => \&wanted}, '/');
  92. sub wanted {
  93.     my ($dev,$ino,$mode,$nlink,$uid,$gid);
  94.     (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) and
  95.     !($File::Find::prune |= ($dev != $File::Find::topdev)) and
  96.     -d _ and
  97.     (
  98.         (($mode & 01000) == 01000)
  99.     ) and
  100. print BOLD, WHITE, "Informacion:",RESET . " Se detecto sticky bit en $name\n";}
  101.  
  102.  
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4


=(
situ
Perlero nuevo
Perlero nuevo
 
Mensajes: 358
Registrado: 2007-04-09 01:44 @114
Arriba

Re: Buscar sticky bit en todos los archivos

Notapor explorer » 2011-01-21 21:58 @957

Si haces un find2perl / -perm -1000 te dará una subrutina de búsqueda más sencilla con la que poder probar.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España
Arriba

Re: Buscar sticky bit en todos los archivos

Notapor situ » 2011-01-21 22:18 @970

Se queda "pensando" no sé si es así o algo está mal en el código :S

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl -w
  2. no warnings;
  3. use File::Find ();
  4. use File::stat;
  5. # Modulos
  6. use Term::ANSIColor qw(:constants);
  7.  
  8. ## Verificacion de permisos en archivos y directorios
  9. print " -- Verificar permisos en archivos y directorios\n";
  10. # verifico si el owner es root
  11. my @archivos = qw(
  12. /etc/crontab
  13. /etc/exports
  14. /etc/fstab
  15. /etc/group
  16. /etc/hosts
  17. /etc/hosts.allow
  18. /etc/hosts.deny
  19. /etc/inetd.conf
  20. /etc/inittab
  21. /etc/ld.so.conf
  22. /etc/modules
  23. /etc/motd
  24. /etc/mtab
  25. /etc/passwd
  26. /etc/profile
  27. /etc/securetty
  28. /etc/syslog.conf
  29. /bin/
  30. /boot/
  31. /etc/
  32. /etc/cron.daily/
  33. /etc/cron.hourly/
  34. /etc/cron.weekly/
  35. /home/
  36. /mnt/
  37. /lib/
  38. /root/
  39. /sbin/
  40. /tmp/
  41. /usr/
  42. /usr/bin/
  43. /var/
  44. );
  45. for my $archivo (@archivos) {
  46.     my $estatus = stat($archivo);
  47.  
  48.     if (! defined $estatus) {
  49.         print BOLD, RED, 'No existe', RESET, " El archivo $archivo no existe en el sistema o no puede ser accedido\n";
  50.     }
  51.     else {
  52.         if (! -r $archivo) {
  53.             print BOLD, RED, 'No leible', RESET, " El archivo $archivo no puede ser leido\n";
  54.         }
  55.  
  56.         if ( $estatus->uid == 0 ) {
  57.             #print BOLD, GREEN, "Positivo:", RESET, " El archivo $archivo tiene como propietario a root\n";
  58.         }
  59.         else {
  60.             my ($nombre,$password,$uid,$gid,$quota,$comentario,$gcos,$dir,$shell,$expire) = getpwuid($estatus->uid);
  61.             print BOLD, RED,   "Negativo:", RESET, " El archivo $archivo tiene como propietario a $nombre ($uid)\n";
  62.         }
  63.  
  64.         my $permisos = sprintf "%04o", $estatus->mode & 07777;
  65.  
  66.         if ( $permisos eq '0644' ) {
  67.  
  68.             #print BOLD, GREEN, "Positivo:", RESET, " El archivo $archivo tiene como permiso 0644\n";
  69.  
  70.         }
  71.  
  72.         else {
  73.  
  74.             print BOLD, RED, "Negativo:", RESET, " El archivo $archivo tiene como permiso $permisos\n";
  75.  
  76.         }
  77.     }
  78. }
  79.  
  80. ## Verificacion de Sticky Bit
  81.  
  82. print " -- Verificacion de Sticky Bit\n";
  83.     eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
  84.         if 0; #$running_under_some_shell
  85.  
  86. use strict;
  87. use File::Find ();
  88.  
  89. # Set the variable $File::Find::dont_use_nlink if you're using AFS,
  90. # since AFS cheats.
  91.  
  92. # for the convenience of &wanted calls, including -eval statements:
  93. use vars qw/*name *dir *prune/;
  94. *name   = *File::Find::name;
  95. *dir    = *File::Find::dir;
  96. *prune  = *File::Find::prune;
  97.  
  98. sub wanted;
  99.  
  100.  
  101.  
  102. # Traverse desired filesystems
  103. File::Find::find({wanted => \&wanted}, '/');
  104. exit;
  105.  
  106.  
  107. sub wanted {
  108.     my ($dev,$ino,$mode,$nlink,$uid,$gid);
  109.  
  110.     (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
  111.     (($mode & 01000) == 01000)
  112.     && print("$name\n");
  113. }
  114.  
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
situ
Perlero nuevo
Perlero nuevo
 
Mensajes: 358
Registrado: 2007-04-09 01:44 @114
Arriba

Re: Buscar sticky bit en todos los archivos

Notapor explorer » 2011-01-22 10:49 @492

En mi ordenador, tu programa tarda en leerse todo el sistema de ficheros unos 5 minutos. Y al final, no encontró ningún fichero con el sticky bit :)
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España
Arriba

Re: Buscar sticky bit en todos los archivos

Notapor situ » 2011-01-22 11:48 @533

explorer escribiste:En mi ordenador, tu programa tarda en leerse todo el sistema de ficheros unos 5 minutos. Y al final, no encontró ningún fichero con el sticky bit :)


Si ejecuto este:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl -w
  2. no warnings;
  3. use File::Find ();
  4. use File::stat;
  5. # Modulos
  6. use Term::ANSIColor qw(:constants);
  7.  
  8. ## Verificacion de permisos en archivos y directorios
  9. print " -- Verificar permisos en archivos y directorios\n";
  10. # verifico si el owner es root
  11. my @archivos = qw(
  12. /etc/crontab
  13. /etc/exports
  14. /etc/fstab
  15. /etc/group
  16. /etc/hosts
  17. /etc/hosts.allow
  18. /etc/hosts.deny
  19. /etc/inetd.conf
  20. /etc/inittab
  21. /etc/ld.so.conf
  22. /etc/modules
  23. /etc/motd
  24. /etc/mtab
  25. /etc/passwd
  26. /etc/profile
  27. /etc/securetty
  28. /etc/syslog.conf
  29. /bin/
  30. /boot/
  31. /etc/
  32. /etc/cron.daily/
  33. /etc/cron.hourly/
  34. /etc/cron.weekly/
  35. /home/
  36. /mnt/
  37. /lib/
  38. /root/
  39. /sbin/
  40. /tmp/
  41. /usr/
  42. /usr/bin/
  43. /var/
  44. );
  45. for my $archivo (@archivos) {
  46.     my $estatus = stat($archivo);
  47.  
  48.     if (! defined $estatus) {
  49.         print BOLD, RED, 'No existe', RESET, " El archivo $archivo no existe en el sistema o no puede ser accedido\n";
  50.     }
  51.     else {
  52.         if (! -r $archivo) {
  53.             print BOLD, RED, 'No leible', RESET, " El archivo $archivo no puede ser leido\n";
  54.         }
  55.  
  56.         if ( $estatus->uid == 0 ) {
  57.             #print BOLD, GREEN, "Positivo:", RESET, " El archivo $archivo tiene como propietario a root\n";
  58.         }
  59.         else {
  60.             my ($nombre,$password,$uid,$gid,$quota,$comentario,$gcos,$dir,$shell,$expire) = getpwuid($estatus->uid);
  61.             print BOLD, RED,   "Negativo:", RESET, " El archivo $archivo tiene como propietario a $nombre ($uid)\n";
  62.         }
  63.  
  64.         my $permisos = sprintf "%04o", $estatus->mode & 07777;
  65.  
  66.         if ( $permisos eq '0644' ) {
  67.  
  68.             #print BOLD, GREEN, "Positivo:", RESET, " El archivo $archivo tiene como permiso 0644\n";
  69.  
  70.         }
  71.  
  72.         else {
  73.  
  74.             print BOLD, RED, "Negativo:", RESET, " El archivo $archivo tiene como permiso $permisos\n";
  75.  
  76.         }
  77.     }
  78. }
  79.  
  80. ## Verificacion de Sticky Bit
  81. print "sticky bit";
  82. use Term::ANSIColor qw(:constants);
  83. use strict;
  84. use File::Find ();
  85. use vars qw/*name *dir *prune/;
  86. *name   = *File::Find::name;
  87. *dir    = *File::Find::dir;
  88. *prune  = *File::Find::prune;
  89. sub wanted;
  90. # Traverse desired filesystems
  91. File::Find::find({wanted => \&wanted}, '/');
  92. sub wanted {
  93.     my ($dev,$ino,$mode,$nlink,$uid,$gid);
  94.     (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) and
  95.     !($File::Find::prune |= ($dev != $File::Find::topdev)) and
  96.     -d _ and
  97.     (
  98.         (($mode & 01000) == 01000)
  99.     ) and
  100. print BOLD, WHITE, "Informacion:",RESET . " Se detecto sticky bit en $name\n"
  101. }
  102.  
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


No ejecuta la parte de sticky bit.

Pero si ejecuto solamente la parte de sticky bit me anda perfecto.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. use Term::ANSIColor qw(:constants);
  2. use strict;
  3. use File::Find ();
  4. use vars qw/*name *dir *prune/;
  5. *name   = *File::Find::name;
  6. *dir    = *File::Find::dir;
  7. *prune  = *File::Find::prune;
  8. sub wanted;
  9. # Traverse desired filesystems
  10. File::Find::find({wanted => \&wanted}, '/');
  11. sub wanted {
  12.     my ($dev,$ino,$mode,$nlink,$uid,$gid);
  13.     (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) and
  14.     !($File::Find::prune |= ($dev != $File::Find::topdev)) and
  15.     -d _ and
  16.     (
  17.         (($mode & 01000) == 01000)
  18.     ) and
  19. print BOLD, WHITE, "Informacion:",RESET . " Se detecto sticky bit en $name\n"
  20. }
  21.  
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
situ
Perlero nuevo
Perlero nuevo
 
Mensajes: 358
Registrado: 2007-04-09 01:44 @114
Arriba

Re: Buscar sticky bit en todos los archivos

Notapor explorer » 2011-01-22 12:13 @551

Hay varios problemas, y uno de ellos es el comentado por wanako y por mi en el hilo Existencia de archivo y su propietario en Linux: el uso del módulo File::stat enmascara el uso de las primitivas stat() y lstat(), por lo que la línea 94 no es correcta. Debería ser CORE::lstat($_).

Además, como se indica en el mismo hilo, el uso de '_' con File::stat también es problemático, así que la línea 96 también dará problemas. Es mejor ponerla como -d $_.

Haciendo un poco de limpieza del código, queda así (y a mi me funciona):
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2. use strict;  
  3. use warnings;  
  4. use diagnostics;
  5.  
  6. use File::stat;  
  7. use File::Find ();
  8. use Term::ANSIColor qw(:constants);
  9.  
  10. ## Verificacion de permisos en archivos y directorios
  11. print " -- Verificar permisos en archivos y directorios\n";
  12.  
  13. my @archivos = qw(
  14.     /bin/
  15.     /boot/
  16.     /etc/
  17.     /etc/cron.daily/
  18.     /etc/cron.hourly/
  19.     /etc/crontab
  20.     /etc/cron.weekly/
  21.     /etc/exports  
  22.     /etc/fstab    
  23.     /etc/group
  24.     /etc/hosts  
  25.     /etc/hosts.allow
  26.     /etc/hosts.deny
  27.     /etc/inetd.conf
  28.     /etc/inittab  
  29.     /etc/ld.so.conf
  30.     /etc/modules
  31.     /etc/motd
  32.     /etc/mtab
  33.     /etc/passwd
  34.     /etc/profile
  35.     /etc/securetty  
  36.     /etc/syslog.conf
  37.     /home/
  38.     /lib/
  39.     /mnt/    
  40.     /root/
  41.     /sbin/
  42.     /tmp/
  43.     /usr/
  44.     /usr/bin/
  45.     /var/
  46. );
  47.  
  48. for my $archivo (@archivos) {
  49.     my $estatus = stat($archivo);
  50.  
  51.     if (! defined $estatus) {
  52.         print BOLD, RED, 'No existe', RESET, " El archivo $archivo no existe en el sistema o no puede ser accedido\n";
  53.     }
  54.     else {
  55.         if (! -r $archivo) {
  56.             print BOLD, RED, 'No leible', RESET, " El archivo $archivo no puede ser leido\n";
  57.         }
  58.  
  59.         if ( $estatus->uid == 0 ) {
  60.             #print BOLD, GREEN, "Positivo:", RESET, " El archivo $archivo tiene como propietario a root\n";
  61.         }
  62.         else {
  63.             my ($nombre,$password,$uid,$gid,$quota,$comentario,$gcos,$dir,$shell,$expire) = getpwuid($estatus->uid);
  64.             print BOLD, RED,   "Negativo:", RESET, " El archivo $archivo tiene como propietario a $nombre ($uid)\n";
  65.         }
  66.  
  67.         my $permisos = sprintf "%04o", $estatus->mode & 07777;
  68.  
  69.         if ( $permisos eq '0644' ) {
  70.  
  71.             #print BOLD, GREEN, "Positivo:", RESET, " El archivo $archivo tiene como permiso 0644\n";
  72.         }
  73.  
  74.         else {
  75.  
  76.             print BOLD, RED, "Negativo:", RESET, " El archivo $archivo tiene como permiso $permisos\n";
  77.         }
  78.     }
  79. }
  80.  
  81. ## Verificacion de Sticky Bit
  82. print "sticky bit\n";
  83.  
  84. use vars qw/*name *dir *prune/;
  85.  
  86. *name   = *File::Find::name;
  87. *dir    = *File::Find::dir;
  88. *prune  = *File::Find::prune;  
  89.  
  90. # Traverse desired filesystems
  91. File::Find::find({wanted => \&wanted}, '/');
  92.  
  93. sub wanted {
  94.     my ($dev,$ino,$mode,$nlink,$uid,$gid);
  95.  
  96.         (($dev,$ino,$mode,$nlink,$uid,$gid) = CORE::lstat($_))
  97.     and !($prune |= ($dev != $File::Find::topdev))
  98.     and -d $_
  99.     and (($mode & 01000) == 01000)
  100.     and print BOLD . WHITE . "Informacion:" . RESET . " Se detecto sticky bit en $name\n"
  101.     ;
  102. }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4

Ahora me ha detectado tres directorios con sticky bit, en el /tmp :)
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España
Arriba
Siguiente
Publicar una respuesta

Volver a Administración

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados

Powered by phpBB® Forum Software © phpBB Group
Traducción al Español Mexicano por nextgen en colaboración con phpbb-es.com
phpBB SEO
Advertisements by Advertisement Management
cron