Probleme beim Auslesen einer Verzeichnisstruktur! - #61204 (Allgemeines zu Perl)

jason-duff

2005-12-21 17:28

User since
2005-10-11
23 Artikel
BenutzerIn
[default_avatar]

hallo,
habe es jetzt so gemacht.

Code: (dl )

use strict;
use File::Find;

my $var   = '';
my @files = ();
my $startdir = '.';

sub process_item{
   push(@files,$File::Find::dir) if(-f $_ && !-e $File::Find::dir );
}

find(\&process_item, $startdir);

print join("\n", (@files));

Ich suche nach jeder Datei und speichere den Pfad dazu ab. Befinden sich mehrere Dateien in einem Ordner so wird immer überprüft ob der Pfad bereits existiert. wenn ja, dann speichere ihn nicht ab.
Damit ich dann nicht immer den gleichen Pfad mehrmals drin hab.

Aber er kopiert mir trotzdem den Pfad mehrmals ab, wenn er mehrere Dateien in dem selben Ordner finden.

Code: (dl )

if(-f $_ && !-e $File::Find::dir );

muss doch so stimmen mit der Bedingung oder?
es funzt aber nicht...
gruss jason\n\n