Есть ли способ получить ход передачи файла, используя функцию перемещения в Perl-скрипте?

Question

Я разработчик ETL, и я занимаюсь большим количеством данных, которые нужно обрабатывать из одной формы в другую, прежде чем ее можно будет загружать в таблицы. Поэтому большинство сценариев, с которыми я работаю, в какой-то момент должны перемещать файл из одного места в другое. Мы - магазин окон. Мне было интересно, есть ли способ увидеть, сколько времени требуется, когда я использую функцию перемещения в Perl. Если мне нужно вызвать команду windows через систему, которая предоставит мне эту опцию, тогда я тоже хорошо ее использую. Есть ли что-нибудь в командной строке Perl или Windows, которая сообщит мне о ходе передачи файла?

Спасибо!

Answer 1

Вы можете использовать пакет Win32::FileOp cpan.

Вот соответствующий отрывок:

CopyConfirm

CopyConfirm ($FileName => $FileOrDirectoryName [, ...]) 
CopyConfirm (\@FileNames => $DirectoryName [, ...]) 
CopyConfirm (\@FileNames => \@FileOrDirectoryNames [, ...]) 

Копии указанных файлов. В случае столкновения отображается диалоговое окно подтверждения . Показывает прогресс Диалоги.

Возвращает true в случае успеха.

MoveConfirm

Перемещение указанных файлов. Параметры как CopyConfirm

линия альтернативная команда будет Term::ProgressBar, который также является гораздо более гибким, но несколько сложнее настроить. Вам нужно будет сделать что-то вроде: получить размер оригинального файла, затем запустить копию и опросить размер нового файла (из дочернего процесса), чтобы обновить индикатор выполнения.