Estructura de carpeta de aplanamiento

Tengo esta estructura de carpetas:

├── foo1
│   ├── bar1.txt
│   └── bar2.txt
├── foo2
│   ├── bar3.txt
│   └── bar4 with a space.txt
└── foo3
    └── qux1
        ├── bar5.txt
        └── bar6.txt

que me gustaría aplanar en esto, con un guión bajo entre cada nivel de carpeta:

├── foo1_bar1.txt
├── foo1_bar2.txt
├── foo2_bar3.txt
├── foo2_bar4 with a space.txt
├── foo3_qux1.bar6.txt
└── foo3_qux1_bar5.txt

He buscado y no he encontrado ninguna solución que funcione, principalmente porque mi problema tiene dos particularidades: puede haber más de un nivel de carpeta dentro de la raíz y también porque algunos archivos pueden tener espacios.

¿Alguna idea de cómo lograr esto en bash? ¡Gracias!

Editar : Ejecutando la respuesta propuesta de Gleen Jackman, obtengo esto:

Hay dos guiones bajos para la carpeta de primer nivel. ¿Alguna idea de cómo evitar esto o simplemente renombrarlo para que sea solo un guión bajo? Gracias.

find */ -type f -exec bash -c 'file=${1#./}; echo mv "$file" "${file//\//_}"' _ '{}' \;

eliminar echosi está satisfecho, está funcionando. No se preocupe si los comandos echo'ed no muestran comillas, el script manejará los archivos con espacios correctamente.

Si desea eliminar los subdirectorios ahora vacíos:

find */ -depth -type d -exec echo rmdir '{}' \; 

Usando el cambio de nombre de perl:

find . -depth -type f -exec rename 's@(?<!\.)/@_@g' -- {} \;

SALIDA

$ find -type f
./foo2_bar4 whit a space.txt
./foo3_qux1_bar6.txt
./foo2_bar3.txt
./foo3_qux1_bar5.txt
./foo1_bar2.txt
./foo1_bar1.txt

NOTA

• Yo uso una mirada negativa hacia atrás (?<!\.) para no tocar el primero./

• Mantengo los directorios vacíos, no dudes en:

  find . -depth -type d -exec rm {} \;

Hay otras herramientas con el mismo nombre que pueden o no ser capaces de hacer esto, así que tenga cuidado.

Si ejecuta el siguiente comando ( GNU)

$ file "$(readlink -f "$(type -p rename)")"

y tienes un resultado como

.../rename: Perl script, ASCII text executable

y no contiene:

ELF

entonces esta parece ser la herramienta correcta =)

Si no, para que sea el valor predeterminado (generalmente ya es el caso) Debiany derivado como Ubuntu:

$ sudo update-alternatives --set rename /path/to/rename

(reemplazar /path/to/renamea la ruta de su perl's renamecomando.

Si no tiene este comando, busque su administrador de paquetes para instalarlo o hágalo manualmente

Por último, pero no menos importante, esta herramienta fue originalmente escrita por Larry Wall, el padre de Perl.

con pax...

pax -Xrwls '|/|_|g' */ "$PWD"

Esto creará un enlace duro en el directorio actual a todos los archivos en sus directorios secundarios con una _sustituido por /. Luego puede inspeccionar los resultados y eliminar todos los directorios secundarios con ...

rm -rf */

... una vez que haya verificado los resultados son de su agrado.

Puedes probar con el siguiente comando.

$ find -type f -exec bash -c 'mv $0 $(echo $0|sed "s/\//_/2")' {} \;

El comando anterior moverá los archivos y permanecerá el directorio que puede eliminarse más tarde.

$ ls
foo1_bar1.txt  foo1_bar2.txt  foo2_bar3.txt  foo2_bar4.txt  foo3_bar5.txt  foo3_bar6.txt