Групповое переименование папок?

Question

[Сергей Пуговкин]

Есть много файлов и папок:

/home/user/dir1/dir2/file1
...

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

/home/user/0dir1/0dir2/file1

?

Answer 1

[vreitech]

for i in $(find /home/user -type d | tac); do mv $i $(echo $i | perl -pe 's/\/([^\/]*?)$/\/0\1/') 2> /dev/null; done