Comment puis-je copier un répertoire de manière récursive et filtrer les noms de fichiers en Perl?

Comment puis-je copier un répertoire, y compris les sous répertoires à exclure des fichiers ou des répertoires qui correspondent à un certain regex sur un système Windows?

source d'informationauteur Manu

  1. 11

    Je ferais quelque chose comme ceci:

    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;
}
  2. 9

    Une autre option est de Fichier::Xcopy. Comme le nom le dit, il est plus ou moins émule windows commande xcopy, y compris le filtrage et options récursive.

    À partir de la documentation:

        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");
  3. 5

    Si vous arrive d'être sur un Unix-like OS et d'avoir accès à rsync (1)vous devez l'utiliser (par exemple par le biais de system()).

    Perl File::Copy est un peu cassé (il ne copie pas les autorisations sur les systèmes Unix, par exemple), donc si vous ne voulez pas utiliser vos outils système, regardez le CPAN. Peut-être File::Copy::Récursive pourrait être utile, mais je ne vois pas exclure les options. J'espère que quelqu'un d'autre a une meilleure idée.

  4. 1

    Je ne sais pas comment faire une exclusion avec une copie, mais vous pouvez travailler sur quelque chose le long des lignes de:

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

    Une réponse classique utiliser 'cpio -p':

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

    Le " cpio de commande de traite de la copie réelle, y compris l'autorisation de préservation. Le truc de " cd $SOURCE_DIR; find . ... " traite avec la suppression de la partie de tête de la source chemin de la noms de. Le seul problème avec l'invocation de 'find' est qu'il ne suit pas les liens symboliques; vous devez ajouter ' -follow " si c'est ce que vous voulez.