Using bash Syntax Highlighting
?
Saludos.
-
- Publicidad
Ejemplo de módulo Find
13 mensajes
• Página 1 de 2 • 1, 2
Ejemplo de módulo Find
por situ » 2008-10-27 13:21 @598
- situ
- Perlero nuevo
- Mensajes: 358
- Registrado: 2007-04-09 01:44 @114
Publicidad
por explorer » 2008-10-27 13:28 @603
El módulo Find viene acompañado de un programa que se llama find2perl, que hace todo ese trabajo:
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.
- 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.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por situ » 2008-10-30 12:35 @566
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.
Using bash Syntax Highlighting
Using perl Syntax Highlighting
#!/usr/bin/perl -w
no warnings;
use File::Find ();
open (F,">> hola.html");
# 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($_)) &&
!($File::Find::prune |= ($dev != $File::Find::topdev)) &&
-d _ &&
(
(($mode & 01000) == 01000)
)
&&
print "$name\n";
print F "<tr><td><font color=#f3c035 face=Verdana size=1>Informacion</font><font face=Verdana size=1> Directorio con sticky bit $name</td></tr>\n";
}
no warnings;
use File::Find ();
open (F,">> hola.html");
# 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($_)) &&
!($File::Find::prune |= ($dev != $File::Find::topdev)) &&
-d _ &&
(
(($mode & 01000) == 01000)
)
&&
print "$name\n";
print F "<tr><td><font color=#f3c035 face=Verdana size=1>Informacion</font><font face=Verdana size=1> Directorio con sticky bit $name</td></tr>\n";
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
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.
- situ
- Perlero nuevo
- Mensajes: 358
- Registrado: 2007-04-09 01:44 @114
por explorer » 2008-10-30 15:48 @700
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').
Colocando el código de otra manera, queda:
Using perl Syntax Highlighting
sub wanted {
my ($dev,$ino,$mode,$nlink,$uid,$gid);
(($dev,$ino,$mode,$nlink,$uid,$gid)
= lstat($_))
&& !($File::Find::prune |= ($dev != $File::Find::topdev))
&& -d _
&& (
(($mode & 01000) == 01000)
)
&& print "$name\n"
;
print F "<tr><td><font color=#f3c035 face=Verdana size=1>Informacion</font><font face=Verdana size=1> Directorio con sticky bit $name</td></tr>\n";
}
my ($dev,$ino,$mode,$nlink,$uid,$gid);
(($dev,$ino,$mode,$nlink,$uid,$gid)
= lstat($_))
&& !($File::Find::prune |= ($dev != $File::Find::topdev))
&& -d _
&& (
(($mode & 01000) == 01000)
)
&& print "$name\n"
;
print F "<tr><td><font color=#f3c035 face=Verdana size=1>Informacion</font><font face=Verdana size=1> Directorio con sticky bit $name</td></tr>\n";
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
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
Using perl Syntax Highlighting
;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Using perl Syntax Highlighting
&& print F qq(<tr><td><font face="Verdana" size="1"><font color="#f3c035">Información</font> Directorio con sticky bit $name</font></td></tr>\n);
;
;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
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').
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por situ » 2008-10-30 16:39 @735
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?
Using perl Syntax Highlighting
#!/usr/bin/perl -w
no warnings;
use File::Find ();
open (F,">> hola.html");
# 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($_)) &&
!($File::Find::prune |= ($dev != $File::Find::topdev)) &&
-d _ &&
(
(($mode & 01000) == 01000)
)
&&
print "$name\n"
&& print F qq(<tr><td><font face="Verdana" size="1"><font color="#f3c035">Información</font> Directorio con sticky bit $name</font></td></tr>\n);
;
}
no warnings;
use File::Find ();
open (F,">> hola.html");
# 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($_)) &&
!($File::Find::prune |= ($dev != $File::Find::topdev)) &&
-d _ &&
(
(($mode & 01000) == 01000)
)
&&
print "$name\n"
&& print F qq(<tr><td><font face="Verdana" size="1"><font color="#f3c035">Información</font> Directorio con sticky bit $name</font></td></tr>\n);
;
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
¿Tienes idea el qué puede ser?
- situ
- Perlero nuevo
- Mensajes: 358
- Registrado: 2007-04-09 01:44 @114
por explorer » 2008-10-30 16:47 @741
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.
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.
Última edición por explorer el 2008-10-30 16:50 @743, editado 1 vez en total
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por explorer » 2008-10-30 17:09 @756
Ahora, como deberes, tienes que explicar porqué ha funcionado cambiando de operador lógico, si los dos hacen lo mismo, el 'and' lógico. 
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Ejemplo de módulo Find
por situ » 2014-08-12 14:38 @651
No logro hacerlo funcionar con el IF que le agregué 
Using perl Syntax Highlighting
- #!/usr/bin/perl -w
- no warnings;
- use vars qw/*name *dir *prune/;
- *name = *File::Find::name;
- *dir = *File::Find::dir;
- *prune = *File::Find::prune;
- sub wanted1;
- # Traverse desired filesystems
- File::Find::find({wanted => \&wanted1}, '/');
- sub wanted1 {
- my ($dev,$ino,$mode,$nlink,$uid,$gid);
- (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) and
- !($File::Find::prune |= ($dev != $File::Find::topdev)) and
- -f _ and
- (
- (($mode & 02) == 02) and
- ! (($mode & 01000) == 01000)
- )and
- if ($miidioma eq "es") {
- print "probando\n";
- }
- else {
- print "testing\n";
- }
- }
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
- situ
- Perlero nuevo
- Mensajes: 358
- Registrado: 2007-04-09 01:44 @114
13 mensajes
• Página 1 de 2 • 1, 2
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 4 invitados