我將如何在Perl中模擬xcopy命令？

Perl對我來說是一種新的語言。我一直在寫批處理文件。我有一個腳本，我寫作一個批處理文件，我試圖將其轉換爲Perl。這是我的批處理文件：我將如何在Perl中模擬xcopy命令？

@echo off 
    :LOOP 
    echo File Copy Started 
    xcopy /s /Y "Source" "Destination" 
    echo File Copy Completed 
    TIMEOUT /T 80 
    goto :LOOP

所以我「米試圖找出是否有類似的命令，在Perl XCOPY或者如果我需要找出一些其他的方式來創建明珠相同功能的任何（例如，使用幫助將是巨大的。謝謝。

來源

2013-01-03 Nightzrain

'xcopy'是成千上萬行的長度。儘管我們可以做大致類似的事情要少得多，但我們不會發布。（對於初學者，它可能不會處理屬性權限以及'xcopy'。）您需要獲取文件列表，可能使用[File :: Find :: Rule]（http：//search.cpan .org/perldoc？File :: Find :: Rule），然後複製它們，也許使用[File :: Copy]（http://search.cpan.org/perldoc?File::Copy） – ikegami

您是否要求等同於您實際發佈的程序（批處理文件），也許？ – ikegami

沒有'/ e'的'xcopy/s'很奇怪。 – ikegami

在評論作爲池上筆記，沒有一個統一的Perl命令做什麼xcopy一樣。當你可以編寫一些代碼來重新實現遞歸文件複製在Perl File::Find或File::Find::Rule和File::Copy），更簡單的解決方案可能只是調用xcopy從Perl的使用system：

system qw(xcopy /s /Y), $source, $destination;

編輯：或者只是使用File::Copy::Recursive從CPAN。

來源

2013-01-03 20:54:47

有了這個，

你可以使用它們來實現它自己，不過是新來這個可能是使用的語言：

system qw(xcopy /s /Y), $source, $destination;

但是，如果你正在編寫性能優化的代碼喲你不應該用這個。

來源

2013-01-03 21:06:32

我將如何在Perl中模擬xcopy命令？

回答

相關問題