Opened by zipster at 2006-08-12 18:52
User since
2004-09-06
458 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-09-06
458 Artikel
BenutzerIn
Hi,
ich würde gern mit File::Find Ordnern suchen, aber so das er maximal einen Ornder in die tiefe geht.
Das heißt wenn ich in D:\Temp suche soll er maximal D:\Temp\test1\ finden und nicht D:\Temp\test1\test2\
Beim Ordnersuchen gehe ich so vor.
Wie muss ich es anpassen das er nicht alle Ornder sondern nur maximal einen Unterordner findet?
Danke
Gruß
Seri aka Zipster
ich würde gern mit File::Find Ordnern suchen, aber so das er maximal einen Ornder in die tiefe geht.
Das heißt wenn ich in D:\Temp suche soll er maximal D:\Temp\test1\ finden und nicht D:\Temp\test1\test2\
Beim Ordnersuchen gehe ich so vor.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#! perl
use File::Find;
$eingabe = $ARGV[0];
while (!$eingabe){
print "Es wurde kein Verzeichnissname eingegeben. Bitte geben sie einen Verzeichnissname ein:\n";
$eingabe = <STDIN>;
chomp $eingabe;
}
my @files;
find(\&get_dir,$eingabe);
for my $file(@files){
print "$file\n";
}
sub get_dir{
push(@files,$File::Find::name) if(-d $File::Find::name);
}
Wie muss ich es anpassen das er nicht alle Ornder sondern nur maximal einen Unterordner findet?
Danke
Gruß
Seri aka Zipster
