Как я могу рекурсивно копировать содержимое каталога, используя Perl?

Question

Я использую текущую версию ActivePerl в Windows Vista, и мне было интересно, не могли бы вы показать мне лучший и самый простой способ скопировать папку и ее содержимое в другое место. Содержимое будет включать в себя различные файлы и, скорее всего, еще несколько вложенных папок.

Я предполагаю, что где-то должен быть модуль, о котором я не знаю, который делает это, - но если есть простое решение для домашнего пивоварения, я бы тоже хотел это увидеть.

Answer 1

Взгляните на File :: Copy :: Recursive .

Answer 2

Если вы просто копируете файлы и не выполняете никакой обработки, нет никаких причин не использовать xcopy.

Теперь я написал сценарий ниже в свете комментариев Телемаха, чтобы дать вам отправную точку. Лично я бы использовал xcopy для копирования и File::Find, если необходимо обработать содержимое файла. Кроме того, я уверен, что в приведенном ниже коде есть около 37 ошибок. Но, если вы хотите поиграть, это может быть поучительно:

#!/usr/bin/perl

use strict;
use warnings;

use File::Spec::Functions qw( catfile );

die "mydeepcp src-dir target-dir\n" unless @ARGV == 2;

my ($src, $target) = @ARGV;
mydeepcp( $src => $target );

sub mydeepcp {
    my ($src, $target) = @_;

    opendir my $dir_h, $src
        or die "Cannot open directory: '$src': $!";

    while ( my $file = readdir $dir_h ) {
        next if $file =~ m{^\.\.?$};
        my $src_path = catfile $src => $file;
        my $target_path = catfile $target => $file;

        if ( -d $src_path ) {
            # FIXME: insert code somewhere to create destination dir 
            mydeepcp($src_path => $target_path);
        }
        elsif ( -f _ ) {
            if ( my $err = docp($src_path => $target_path) ) {
                warn sprintf(
                    "Error copying '%s' from '%s' to '%s': %s\n",
                    $file, $src, $target, $err
                );
            }
        }
        else {
            warn "Skipping '$src_path'\n";
        }
    }

    closedir $dir_h;
    return;
}

sub docp {
    my ($src, $target) = @_;
    warn "'$src' => '$target'\n";
    return;
}

__END__

Выход:

C:\Temp> ghj c:\windows f:\qwert
...
'C:\windows\$hf_mig$\KB899591\update\spcustom.dll' => 'F:\qwert\$hf_mig$\KB899591\update\spcustom.dll'
'C:\windows\$hf_mig$\KB899591\update\update.exe' => 'F:\qwert\$hf_mig$\KB899591\update\update.exe'
'C:\windows\$hf_mig$\KB899591\update\update.ver' => 'F:\qwert\$hf_mig$\KB899591\update\update.ver'