• Publicidad

Buscar dentro de directorios

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Buscar dentro de directorios

Notapor Wolfguns » 2007-06-25 15:02 @668

Hola:
Soy nuevo en esto y estoy comenzando con algunos script chicos, y me surgieron 2 dudas, necesito buscar dentro de un directorio y sus subdirectorios uno o más archivos y eliminarlos , el drama es que no sé cómo hacer para que las variables generen la consulta en el directorio.

Lo hice en batch pero en Perl no lo sé. Lo hice con TK y logré hacer casi todo.

Me falta esto...
Código: Seleccionar todo
c:\\$var1\\$var2
find *.*
del *.*.contrib /S
Wolfguns
Perlero nuevo
Perlero nuevo
 
Mensajes: 3
Registrado: 2007-06-25 14:43 @655

Publicidad

Notapor explorer » 2007-06-25 15:23 @683

Bienvenido a los foros de Perl en Español.

No entiendo muy bien lo que quieres decir sobre las variables.

Para recorrer un directorio en profundidad lo recomendable es usar un módulo de la familia File::Find.

En este foro encontrarás algunos ejemplos. Usa el sistema de búsqueda. Por ejemplo, para lo que tu necesitas, he encontrado esto:

viewtopic.php?p=6690
viewtopic.php?t=862
viewtopic.php?t=858

También hay un tutorial:
http://perlenespanol.com/archives-tut/000135.html
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14482
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Gracias

Notapor Wolfguns » 2007-06-25 15:33 @689

:D Es un find en un directorio y sus subdirectorios y encontrar archivos *.contrib y luego eliminarlos, las variables las entrega el usuario:

eje:
Código: Seleccionar todo
my $var1 == admin
my $var2 == dirtemp

c:\\$var1\\$var2
c:\\admin\\dirtemp


Gracias
Wolfguns
Perlero nuevo
Perlero nuevo
 
Mensajes: 3
Registrado: 2007-06-25 14:43 @655

Notapor explorer » 2007-06-25 16:16 @719

Las variables,
* las puede pasar el usuario por la línea de comandos:
Código: Seleccionar todo
borra.pl admin dirtemp

Luego, en el programa, para saber cuales son:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
($var1, $var2) = @ARGV;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4

* se las puedes preguntar directamente:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
print "Directorio: ";
chomp($var1 = <>);
print "Subdirectorio: ";
chomp($var2 = <>);
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

* se pueden poner en un fichero de configuración
* se presentan como una caja de diálogo con dos cajas de texto junto con dos botones que presentan el diálogo de abrir ficheros (creo que en los ejemplos de Tk hay uno así)
* etc.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14482
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor Wolfguns » 2007-06-25 16:53 @745

Gracias
Wolfguns
Perlero nuevo
Perlero nuevo
 
Mensajes: 3
Registrado: 2007-06-25 14:43 @655

Notapor kidd » 2007-06-26 09:57 @456

Hola:

Te recomiendo que cheques el módulo File::Find que es muy útil en este tipo de problemas. Dentro del sitio podrás encontrar un tutorial:
http://perlenespanol.com/tutoriales/mod ... efind.html

Saludos
Uriel Lizama Perl programmer fundador de Perl en Español
Perl Programming Language
Avatar de Usuario
kidd
Creador de Perl en Español
Creador de Perl en Español
 
Mensajes: 1166
Registrado: 2003-10-15 16:52 @744
Ubicación: México


Volver a Básico

¿Quién está conectado?

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