Сглаживание структуры папок

У меня есть эта структура папок:

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

что я хотел бы добавить к этому, с подчеркиванием между каждым уровнем папки:

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

Я осмотрелся и не нашел ни одного решения, которое бы работало, в основном, я думаю, потому что у моей проблемы есть две особенности: внутри корневого каталога может быть несколько уровней, а также потому, что в некоторых файлах могут быть пробелы.

Есть идеи, как этого добиться в bash? Спасибо!

Редактировать : Запуск Глин Джекман предложил ответ, я получаю это:

Есть два подчеркивания для папки первого уровня. Любая идея, как избежать этого или просто переименовать его, чтобы это было только одно подчеркивание? Спасибо.

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

удалить, echoесли вы удовлетворены, что это работает. Не беспокойтесь, что команды echo'ed не показывают кавычки, скрипт будет правильно обрабатывать файлы с пробелами.

Если вы хотите удалить пустые подкаталоги:

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

Использование переименования perl:

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

ВЫВОД

$ 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

НОТА

• Я использую отрицательный взгляд сзади, (?<!\.) чтобы не трогать первый./

• Я держу пустые папки, не стесняйтесь:

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

Существуют другие инструменты с таким же именем, которые могут или не могут сделать это, поэтому будьте осторожны.

Если вы запустите следующую команду ( GNU)

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

и у вас есть результат, как

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

и не содержащий:

ELF

тогда это кажется правильным инструментом =)

Если нет, чтобы сделать его по умолчанию (обычно уже так) Debianи производной, как Ubuntu:

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

(заменить /path/to/renameпуть вашей perl's renameкоманды.

Если у вас нет этой команды, найдите менеджер пакетов, чтобы установить его или выполните вручную

Наконец, что не менее важно, этот инструмент был первоначально написан Ларри Уоллом, отцом Perl.

с pax...

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

Это создаст жесткую ссылку в текущем каталоге на все файлы в его дочерних каталогах с _заменой на /. Затем вы можете проверить результаты и удалить все дочерние каталоги с помощью ...

rm -rf */

... как только вы убедились, что результаты вам по вкусу.

Вы можете попробовать с приведенной ниже командой.

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

Выше команда переместит файлы и каталог останется, который может быть удален позже.

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