Opened by Gast at 2007-07-12 18:57
Hallo liebe Perl-Freunde,
Ich habe ein Problem beim Analysieren von verbosen GC....Aufgabe dieses Analysators ist es einen Applikationserver nach *.log Files zu durchsuchen und diese nach bestimmten Mustern zu analysieren.
Mein Problem liegt jedenfalls darin dass ich es nicht schaffe, alle log files herauszusuchen und dann mit jeweilgen pfad+name der Datei in ein array abzuspeichen.
Bisherige Versuche sahen so aus:
Diese Methode gibt zwar alle Files richtig aus, ich weiß aber nicht wie ich diese mit Pfad in ein Array stecken kann.....
Bitte deswegen um Hilfe...
Danke im voraus, Spuki
Ich habe ein Problem beim Analysieren von verbosen GC....Aufgabe dieses Analysators ist es einen Applikationserver nach *.log Files zu durchsuchen und diese nach bestimmten Mustern zu analysieren.
Mein Problem liegt jedenfalls darin dass ich es nicht schaffe, alle log files herauszusuchen und dann mit jeweilgen pfad+name der Datei in ein array abzuspeichen.
Bisherige Versuche sahen so aus:
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
my $path = ".";
&scan_files($path);
print "\n";
exit(0);
sub scan_files
{
my (@scandirs,$scandir,@files,$file,$list);
$scandir = $_[0];
opendir(DIR,$scandir) || warn "can't open the directory $scandir: $!\n";
@scandirs = grep {!(/^\./) && -d "$scandir/$_"} readdir(DIR);
rewinddir(DIR);
@files=grep {!(/^\./) && -f "$scandir/$_" && (/\.log$/)} readdir(DIR);
closedir (DIR);
for $list(0..$#scandirs){
&scan_files($scandir."/".$scandirs[$list]);
}
if ($#files > 0){
foreach $file(@files){
print "$file\n";
}
}
return 1;
}
Diese Methode gibt zwar alle Files richtig aus, ich weiß aber nicht wie ich diese mit Pfad in ein Array stecken kann.....
Bitte deswegen um Hilfe...
Danke im voraus, Spuki