Как в Perl (5.8) правильно копировать папку с её подпапками и файлами?

P.S
ОС XP, Perl 5.8, (размеры файлов от 2ГБ)

P.S.S
Я пока нашёл только два способа:
1) использование модуля win32::OLE с помощью методов объекта Scripting.FileSystemObject
2) использование системной команды xcopy и Perl функции system()
Но оба способа не есть чистый перл . Вот и хочется узнать как ГУРУ копирую папки.

Здравствуйте, Stas_Dragon, Вы писали:

S_D>Как в Perl (5.8) правильно копировать папку с её подпапками и файлами?

S_D>P.S.S
S_D> Я пока нашёл только два способа:
S_D>1) использование модуля win32::OLE с помощью методов объекта Scripting.FileSystemObject
S_D>2) использование системной команды xcopy и Perl функции system()
S_D>Но оба способа не есть чистый перл . Вот и хочется узнать как ГУРУ копирую папки.

Использовать xcopy — это нормальная практика.
Если хочешь можешь использовать модуль File::Find для рекурсивного поиска файлов и каталогов, потом читать содержимое файла в binmode со старого путя в новый....
Но, намного проще воспользоватся xcopy

Здравствуйте, DmitryZhariy, Вы писали:

S_D>>Но оба способа не есть чистый перл . Вот и хочется узнать как ГУРУ копирую папки.

DZ>Если хочешь можешь использовать модуль File::Find для рекурсивного поиска файлов и каталогов, потом читать содержимое файла в binmode со старого путя в новый....

Вот нашел на CPAN-е модуль: File-Copy-Recursive.
Во-первых, Stas_Dragon, это пел-модуль. (Хотя насколько «пелануто» он там организован я не смотрел.)
Во-вторых, Дима, не понадобиться делать рекурсию самому. Говорят, он сам это делает (:

Случайно наткнулся на несколько похожую проблему. Думаю: пускай будет тут, на всякий случай (:
Удаление директории со всем её содержимым.

Большое спасибо всем за ответы! Столько различных способов