Структура папок

Petr Merkulov

unread,

Nov 17, 2010, 4:53:06 AM11/17/10

to

Привет, All!

Есть папка в которй ещё много папок с вложенными папками и файлами. Задача
состоит в том чтобы скопировать эти папки в другое место но без файлов, только
структуру папок. Есть лм какие нибуть модули которые могут это реализовать???

С наилучшими пожеланиями, Petr.

Alexey Vissarionov

unread,

Nov 17, 2010, 6:48:02 AM11/17/10

to

Доброго времени суток, Petr!

17 Nov 2010 12:53:06, Petr Merkulov -> All:

PM> Есть папка в которй ещё много папок с вложенными папками и файлами.
PM> Задача состоит в том чтобы скопировать эти папки в другое место но
PM> без файлов, только структуру папок. Есть лм какие нибуть модули
PM> которые могут это реализовать???

А зачем для этого эхотаг, когда достаточно шелла?

Хотя...

#!/usr/bin/perl
chdir("/old/path");
open DIRLIST, "find . -type d |";
while($dir=<DIRLIST>)
{
mkdir("/new/path/$dir");
}
close DIRLIST;

--
Alexey V. Vissarionov aka Gremlin from Kremlin
gremlin ПРИ gremlin ТЧК ru; +vii-cmiii-ccxxix-lxxix-xlii

... Большинство пишевых отравлений начинается с "что ему в холодильнике будет?"

Valera Kolesnik

unread,

Nov 17, 2010, 11:43:29 AM11/17/10

to

Hello Alexey.

17 Nov 10 14:48, you wrote to Petr Merkulov:

PM>> Есть папка в которй ещё много папок с вложенными папками и файлами.
PM>> Задача состоит в том чтобы скопировать эти папки в другое место но
PM>> без файлов, только структуру папок. Есть лм какие нибуть модули
PM>> которые могут это реализовать???

AV> А зачем для этого эхотаг, когда достаточно шелла?

AV> Хотя...

AV> #!/usr/bin/perl
AV> chdir("/old/path");
AV> open DIRLIST, "find . -type d |";
AV> while($dir=<DIRLIST>)
AV> {
AV> mkdir("/new/path/$dir");
AV> }
AV> close DIRLIST;

алексей, это переносимое платформонезависимое решение или ты прогрессируешь в
телепатии? :-)

модули есть. но надо бы уточнить задачу. мне вот например тоже надо было
каталоги, но так как там каталог был в виде etc.0700.0.0, который должен был
стать просто etc, то я заюзал File::Util для чтения списка каталогов и создания
результирующих каталогов и File::Spec для сборки/разборки имён.

Valera

Petr Merkulov

unread,

Nov 18, 2010, 12:46:16 AM11/18/10

to

Привет, Alexey!

17 ноя 10 14:48, Alexey Vissarionov -> Petr Merkulov в сообщении по ссылке
area://ru.perl?msgid=2:5020/545+4ce3c219:

PM>> Есть папка в которй ещё много папок с вложенными папками и

PM>> файлами. Задача состоит в том чтобы скопировать эти папки в
PM>> другое место но без файлов, только структуру папок. Есть лм какие
PM>> нибуть модули которые могут это реализовать???

AV> А зачем для этого эхотаг, когда достаточно шелла?

Честно говоря просто ради интереса

AV> Хотя...

AV> #!/usr/bin/perl
AV> chdir("/old/path");
AV> open DIRLIST, "find . -type d |";
AV> while($dir=<DIRLIST>)
AV> {
AV> mkdir("/new/path/$dir");
AV> }
AV> close DIRLIST;

=) Примерно так и сделал, спасибо.

С наилучшими пожеланиями, Petr.