Dateien aus Verzeichnissen und Unterverzeichnissen kopieren - #115059 (Allgemeines zu Perl)

Linuxer

2008-10-01 13:04

User since
2006-01-27
3891 Artikel
HausmeisterIn

user image

Mit dem Code merkst Du Dir aber nur die reinen Dateinamen. Die Pfade zu den Dateien bleiben aussen vor!

Auszug aus 'perldoc File::Find':

Quote
$File::Find::dir is the current directory name,
$_ is the current filename within that directory
$File::Find::name is the complete pathname to the file.

Wenn ich Deine Logik richtig sehe und mich nun nicht vertue, würde ich die beiden verwendeten Variablen austauschen:

Code (perl): (dl )

my $pattern = '.+\.xls';
my @files;

find( \&wanted, @dirs ),

sub wanted {
  # nur den Dateinamen überprüfen
  if ( $_ =~ m/^$pattern$/ ) {
    # kompletten Pfad zur Datei merken
    push @files, $File::Find::name;
  }
  return;
}

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!