Opened by Gast at 2006-04-26 10:58
Hi,
ich versuche gerade ein Script zu schreiben das anfängt im Verzeichnis /home/50000/ nach einem Ordner 10047 zu suchen und wenn es gefunden wurde mir den vollständigen Pfad dahin auszugeben. Aber irgendwie funzt das net
Kann mir einer sagen was ich da machen muss.
Danke im Voraus
ich versuche gerade ein Script zu schreiben das anfängt im Verzeichnis /home/50000/ nach einem Ordner 10047 zu suchen und wenn es gefunden wurde mir den vollständigen Pfad dahin auszugeben. Aber irgendwie funzt das net
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use File::Find;
my $myRoot;
$myRoot = "/home/50000";
find(\&myFileFilter, $myRoot); # ab Verzeichnis $myRoot suchen
sub myFileFilter
{
my $File;
#$_ enthält kompletten Pfad (Verzeichnis und Dateinamen)
#$File::Find::dir enthält aktuelles Verzeichnis
$File::Find::dir = "10047";
#$File::Find::name = "test.html";
}
print find(\&myFileFilter, $myRoot);
Kann mir einer sagen was ich da machen muss.
Danke im Voraus