1

Perlは私にとって新しい言語です。私はバッチファイルを書いてきました。Perlに変換しようとしているバッチファイルとして書いたスクリプトがあります。これは私のバッチファイルです：

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

だから私はPerlにxcopyに似たコマンドがあるのか​​、それともPearlで同じ関数を作成する他の方法を見つける必要があるのか​​を理解しようとしています。どんな助けも素晴らしいでしょう。ありがとう。

4

2 に答える 2

1

池上がコメントで述べているように、何をするかを実行する単一のPerlコマンドはありxcopyません。Perlで再帰的なファイルコピーを再実装するコードを書くこともできますが（たとえば、 File::FindまたはFile::Find::RuleとFile::Copyxcopyを提案どおりに使用）、より簡単な解決策は、Perlからsystem：を使用して呼び出すことです。

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

編集：または、CPANからFile :: Copy::Recursiveを使用します。

于 2013-01-03T20:54:47.153 に答える
1

これがあります、

それらを使用して自分で実装することもできますが、言語に慣れていない場合は、これが役立つ可能性があります。

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

ただし、パフォーマンスが最適化されたコードを記述している場合は、これを使用しないでください。

于 2013-01-03T21:06:32.863 に答える