🚀 go-pugleaf

Hola "David Serrano (Hue-Bond)" <responder_solo_en_el_grupo@yahoo.es>
el Sun, 9 Apr 2006 19:28:58 +0000 (UTC) escribiste:

> Por si alguien se aburre (tanto como yo) (que no creo)...

Por cambiar de diversión, me he metido a ello ...

> 
> En un directorio cualquiera (por ejemplo, uno llamado "mp3" ;^)) tenemos un
> montón de directorios en los que dentro puede haber:
> 
> a) varios archivos y/o directorios
> b) un único directorio
> c) un único archivo regular
> 
> En dicho directorio mp3 sólo hay directorios. En ningún sitio hay sockets,
> pipas ni demás. Queremos averiguar, de todos estos directorios, los que
> cumplen c). El programa debe imprimirlos separados por alguno de los
> caracteres habituales de $IFS. El mp3 es nuestro directorio actual de
> trabajo.
> 
> Este es mi intento, 48 caracteres:
> 
> perl -le'@_=<$_/*>,@_==1&&-f$_[0]&&print for<*>'

Eso a mí no me funciona
> 
> Si alguien lo va a probar en bash, que sepa que ninguno de los archivos o
> directorios tiene espacios en el nombre.
> 
> 

Esto lista los directorios que sólo contienen un fichero, creo. No he verificado
si se deja alguno, pero lo he probado en ~/ y todos los que lista cumplen esa
condición.

for i in `find . -maxdepth 1 -type d -links 2`; do [ `ls -Al $i | wc -l` == 2 ] && echo $i; done

Mira la nota a -noleaf en man find(1): esto no vale para todos
los sistemas de ficheros.

-- 
Gonzalo Pérez de Olaguer Córdoba <gpoc@iies.es>
PGP key 2861C704 --- F206 5671 6789 425D 111C  1302 214F 1934 2861 C704