12

Windows システムで特定の正規表現に一致するファイルまたはディレクトリを除くサブディレクトリを含むディレクトリをコピーするにはどうすればよいですか?

4

5 に答える 5

11

私はこのようなことをします：

use File::Copy;
sub copy_recursively {
    my ($from_dir, $to_dir, $regex) = @_;
    opendir my($dh), $from_dir or die "Could not open dir '$from_dir': $!";
    for my $entry (readdir $dh) {
        next if $entry =~ /$regex/;
        my $source = "$from_dir/$entry";
        my $destination = "$to_dir/$entry";
        if (-d $source) {
            mkdir $destination or die "mkdir '$destination' failed: $!" if not -e $destination;
            copy_recursively($source, $destination, $regex);
        } else {
            copy($source, $destination) or die "copy failed: $!";
        }
    }
    closedir $dh;
    return;
}
于 2008-10-22T23:41:43.583 に答える
9

別のオプションは File::Xcopy です。名前が示すように、フィルタリングや再帰オプションを含め、Windows の xcopy コマンドを多かれ少なかれエミュレートします。

ドキュメントから：

    use File::Xcopy;

    my $fx = new File::Xcopy; 
    $fx->from_dir("/from/dir");
    $fx->to_dir("/to/dir");
    $fx->fn_pat('(\.pl|\.txt)$');  # files with pl & txt extensions
    $fx->param('s',1);             # search recursively to sub dirs
    $fx->param('verbose',1);       # search recursively to sub dirs
    $fx->param('log_file','/my/log/file.log');
    my ($sr, $rr) = $fx->get_stat; 
    $fx->xcopy;                    # or
    $fx->execute('copy'); 

    # the same with short name
    $fx->xcp("from_dir", "to_dir", "file_name_pattern");
于 2008-10-22T22:00:53.210 に答える
5

Unix ライクな OS を使用していて にアクセスできるrsync (1)場合は、それを使用する必要があります (たとえば、 を介してsystem())。

Perl の File::Copy は少し壊れています (たとえば、Unix システムではパーミッションをコピーしません)。そのため、システム ツールを使用したくない場合は、CPAN を調べてください。File::Copy::Recursiveが役立つかもしれませんが、除外オプションはありません。他の誰かがより良いアイデアを持っていることを願っています。

于 2008-10-22T21:52:22.087 に答える
1

コピーを除外する方法はわかりませんが、次の行に沿って何かを作成できます。

ls -R1 | grep -v <regex to exclude> | awk '{printf("cp %s /destination/path",$1)}' | /bin/sh
于 2008-10-22T21:37:03.273 に答える
1

古典的な答えは「cpio -p」を使用します：

(cd $SOURCE_DIR; find . -type f -print) |
perl -ne 'print unless m/<regex-goes-here>/' |
cpio -pd $TARGET_DIR

' cpio' コマンドは、許可の保持を含む実際のコピーを処理します。' ' のトリックはcd $SOURCE_DIR; find . ...、名前からソース パスの先頭部分を削除することを扱います。' ' の呼び出しに関する唯一の問題は、findシンボリック リンクをたどらないことです。それが必要な場合は、「 」を追加する必要があり-followます。

于 2008-10-22T22:03:30.257 に答える