Quiero sacar los ficheros de un directorio con el script:
#!/usr/bin/perl
$dir = "/directorio";
opendir(DIR, "$dir");
@FILES = readdir(DIR);
foreach $file (@FILES) {
print $file, "\n";
}
closedir(DIR)
Si lanzáramos este script, me sacaría la siguiente salida:
.
sftp_put.pl
sube_zip_opersev.pl
directorio.pl
copia_todos.sh
sftp.pl
ftpssl.pl
..
¿Cómo podría quitar los puntos de los directorios, el '.' y el '..'?
Muchas Gracias.
-
- Publicidad
Quitar los puntos de los directorios en un listado de ficher
4 mensajes
• Página 1 de 1
Quitar los puntos de los directorios en un listado de ficher
por erjuak » 2013-05-14 03:08 @172
- erjuak
- Perlero nuevo
- Mensajes: 18
- Registrado: 2013-03-07 11:52 @536
Publicidad
Re: Quitar los puntos de los directorios en un listado de fi
por explorer » 2013-05-14 04:45 @240
Esos 'puntos' son directorios.
El '.' representa el directorio actual, mientras que el '..' representa el directorio padre.
Si no quieres sacarlos, solo tienes que obviarlos:
El '.' representa el directorio actual, mientras que el '..' representa el directorio padre.
Si no quieres sacarlos, solo tienes que obviarlos:
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: Quitar los puntos de los directorios en un listado de fi
por erjuak » 2013-05-14 05:09 @256
Gracias, explorer.
Es justo lo que necesitaba. No puede ser una solución más simple y correcta.
¡Muchas Gracias de nuevo!
Un saludo.
Es justo lo que necesitaba. No puede ser una solución más simple y correcta.
¡Muchas Gracias de nuevo!
Un saludo.
- erjuak
- Perlero nuevo
- Mensajes: 18
- Registrado: 2013-03-07 11:52 @536
Re: Quitar los puntos de los directorios en un listado de fi
por explorer » 2013-05-14 05:50 @285
¡Je, je, je...!
En Perl, siempre hay una solución más simple y correcta:
Aunque... no necesariamente legible 
En Perl, siempre hay una solución más simple y correcta:
Using bash Syntax Highlighting
- perl -le 'print for grep{!/^[.][.]?$/}</directorio/*>'
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
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
4 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: Bing [Bot] y 20 invitados