Wie kann ich ein Verzeichnis mit Ausnahme aller versteckten Dateien in Perl kopieren?

Question

Ich habe eine Verzeichnishierarchie mit einer Reihe von Dateien. Einige der Verzeichnisse beginnen mit einem . . Ich möchte die Hierarchie an einen anderen Ort kopieren und dabei alle Dateien und Verzeichnisse auslassen, die mit einem .

Wie kann man das tun?

Answer 1

Ich denke, was Sie wollen, ist Datei::Kopieren::Rekursiv 's rcopy_glob() :

rcopy_glob()

Mit dieser Funktion können Sie eine Muster angeben, das für Perls glob() als als erstes Argument angeben. Anschließend wird jeder Pfad, der von perl's glob() zurückgegeben wird, mit rcopy()ied.

Sie gibt ein Array zurück, dessen Elemente sind Array refs sind, die den Rückgabewert Wert jedes rcopy()-Aufrufs enthält.

Es erzwingt ein Verhalten, als ob $File::Copy::Recursive::CPRFComp ist wahr ist.

Answer 2

Wenn Sie in der Lage sind, dieses Problem ohne Perl zu lösen, sollten Sie sich rsync . Es ist auf Unix-ähnlichen Systemen, unter Windows über cygwin und möglicherweise als eigenständiges Tool unter Windows verfügbar. Es kann alles, was Sie brauchen, und noch viel mehr.

rsync -a -v --exclude='.*' foo/ bar/

Wenn Sie nicht der Eigentümer aller Dateien sind, verwenden Sie -rOlt 代わりに -a .

Answer 3

Glob ignoriert standardmäßig Dot-Dateien.

perl -lwe'rename($_, "foo/$_") or warn "failure renaming $_: $!" for glob("*")'

Answer 4

Der nachstehende Code erledigt die Aufgabe auf einfache Weise, kann aber z. B. keine Symlinks verarbeiten.

#! /usr/bin/perl

use warnings;
use strict;

use File::Basename;
use File::Copy;
use File::Find;
use File::Spec::Functions qw/ abs2rel catfile file_name_is_absolute rel2abs /;

die "Usage: $0 src dst\n" unless @ARGV == 2;
my($src,$dst) = @ARGV;

$dst = rel2abs $dst unless file_name_is_absolute $dst;
$dst = catfile $dst, basename $src if -d $dst;

sub copy_nodots {
  if (/^\.\z|^[^.]/) {
    my $image = catfile $dst, abs2rel($File::Find::name, $src);

    if (-d $_) {
      mkdir $image
        or die "$0: mkdir $image: $!";
    }
    else {
      copy $_ => $image
        or die "$0: copy $File::Find::name => $image: $!\n";
    }
  }
}

find \&copy_nodots => $src;

Answer 5

cp -r .??*

fast perfekt, da Dateien, die mit . beginnen und von einem einzelnen Zeichen gefolgt werden, nicht berücksichtigt werden. wie - .d oder .e

echo .[!.] .??*

das ist noch besser

oder:

shopt -s dotglob ; cp -a * destination; shopt -u dotglob