Achatando a estrutura da pasta

Eu tenho esta estrutura de pastas:

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

que eu gostaria de simplificar, com um sublinhado entre cada nível de pasta:

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

Eu olhei em volta e não encontrei nenhuma solução que funcione, principalmente porque o meu problema tem duas particularidades: pode haver mais de um nível de pasta dentro da raiz e também porque alguns arquivos podem ter espaços.

Alguma idéia de como fazer isso no bash? Obrigado!

Edit : Executando resposta proposta gleen jackman eu recebo isso:

Existem dois sublinhados para a pasta de primeiro nível. Alguma idéia de como evitar isso ou apenas renomeá-lo para que seja apenas um sublinhado? Obrigado.

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

remova echose estiver satisfeito de que está funcionando. Não se preocupe, pois os comandos repetidos não mostram aspas, o script manipulará arquivos com espaços corretamente.

Se você deseja remover os subdiretórios agora vazios:

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

Usando a renomeação do perl:

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

RESULTADO

$ 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

• Eu uso um olhar negativo para trás (?<!\.) para não tocar na primeira./

• Eu mantenho os dirs vazios, fique à vontade para:

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

Existem outras ferramentas com o mesmo nome que podem ou não conseguir fazer isso, portanto, tenha cuidado.

Se você executar o seguinte comando ( GNU)

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

e você tem um resultado como

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

e não contendo:

ELF

então esta parece ser a ferramenta correta =)

Caso contrário, para torná-lo o padrão (geralmente já é o caso) Debiane derivado como Ubuntu:

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

(substitua /path/to/renamepelo caminho do seu perl's renamecomando.

Se você não possui esse comando, procure no gerenciador de pacotes para instalá-lo ou manualmente

Por último, mas não menos importante, essa ferramenta foi originalmente escrita por Larry Wall, o pai do Perl.

com pax...

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

Isso criará um hardlink no diretório atual para todos os arquivos em seus diretórios filhos com um _substituto /. Você pode inspecionar os resultados e remover todos os diretórios filhos com ...

rm -rf */

... depois de verificar os resultados, é do seu agrado.

Você pode tentar com o comando abaixo.

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

O comando acima moverá os arquivos e o diretório permanecerá, podendo ser removido posteriormente.

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