¿Cómo puedo copiar un directorio recursivamente y filtrar nombres de archivos en Perl?

Question

¿Cómo copio un directorio que incluye subdirectorios excluyendo archivos o directorios que coinciden con cierta expresión regular en un sistema Windows?

Answer 1

me gustaría hacer algo como esto:

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; 
} 

Answer 2

No sé cómo hacer una exclusión con una copia, pero se puede trabajar algo a lo largo de las líneas de:

ls -R1 | grep -v <regex to exclude> | awk '{printf("cp %s /destination/path",$1)}' | /bin/sh 

Answer 3

Si quieres pasar a ser en un sistema operativo similar a Unix y tener acceso a rsync (1), debe usar eso (por ejemplo, a través de system()).

Perl's File :: Copy está un poco roto (no copia los permisos en los sistemas Unix, por ejemplo), así que si no quiere usar las herramientas de su sistema, mire el CPAN. Tal vez File::Copy::Recursive podría ser útil, pero no veo ninguna opción de exclusión. Espero que alguien más tenga una mejor idea.

Answer 4

Otra opción es File :: Xcopy. Como su nombre lo dice, emula más o menos el comando de Windows xcopy, incluidas sus opciones de filtro y recursivas.

De la documentación:

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"); 

Answer 5

Una respuesta clásica usaría 'cpio -p ':

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

Los'' cpio ofertas de comando con la copia real, incluyendo la preservación permiso. El truco de 'cd $SOURCE_DIR; find . ...' trata de eliminar la parte principal de la ruta fuente de los nombres. El único problema con esa invocación de 'find' es que no seguirá enlaces simbólicos; necesita agregar '-follow' si eso es lo que desea.