Как скопировать структуру каталогов ?

Скрипт на перле из 10 строк.
Читаем Perl CookBook. Где ее брать - я уже писал в конференции.

Попробуй поимпровизировать с find/mkdir/xargs: чтото вроде
find /path1 -type d | xargs mkdir
но малость нетак

Спасибо, Maxcom !

cd $1/.. && name=`basename $1` find $name -type f > /tmp/excluded tar -c --exclude-from=/tmp/excluded $name | tar -C $2 -x rm /tmp/excluded $1 - копируемая директория $2 - куда копировать