Opened by Paul at 2006-09-11 16:00
User since
2006-09-11
12 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-09-11
12 Artikel
BenutzerIn
Hallo zusammen
Kann mir jemand helfen bei einer für euch sicher simplen Frage.
In einem Verzeichnis liegen hunderte von Files, d.h. es gibt Log, Index und PDFs(filename.log, filename.inx und filename.PDF). Meine Frage ist nun; wie finde ich bestimmte Meldungen in den Logfiles zB. "keinPDF" oder "keinTIFF" oder ....". Diese betreffenden Filenamen muss ich mir merken und anschliessend alle zugehörenden Files löschen.
Bis jetzt habe ich es erst soweit gebracht:
Die Logfiles kann ich alle auslisten, aber das ist auch schon alles.
Gruss Paul
Kann mir jemand helfen bei einer für euch sicher simplen Frage.
In einem Verzeichnis liegen hunderte von Files, d.h. es gibt Log, Index und PDFs(filename.log, filename.inx und filename.PDF). Meine Frage ist nun; wie finde ich bestimmte Meldungen in den Logfiles zB. "keinPDF" oder "keinTIFF" oder ....". Diese betreffenden Filenamen muss ich mir merken und anschliessend alle zugehörenden Files löschen.
Bis jetzt habe ich es erst soweit gebracht:
Die Logfiles kann ich alle auslisten, aber das ist auch schon alles.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/local/bin/perl -w
#
use warnings;
$inpdir="/opt/compuset1/rmiserver/BaslerAPI/CompusetService/error/";
opendir(LOG, "$inpdir") or die "Verz. kann nicht geoeffnet werden: $!\n";
while ($name = readdir(LOG)) {
push(@logfiles, $name);
}
@logfiles = grep(/.*\.log$/, @logfiles);
closedir(LOG);
for ($i=0;$i<=$#logfiles;$i++) {
$logfiles[$i] =~ /(.*)\.log/;
print "$1.log\n";
}
Gruss Paul