Opened by PETER_PAN2009 at 2010-06-23 13:45
User since
2009-08-24
111 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2009-08-24
111 Artikel
BenutzerIn
Hallo Perl-Gemeinde!
Ich möchte ganz gerne einpaar Vorschläge von euch, wie ich folgendes Problem lösen kann?!
Aufgabe:
Alte Logdateien auslesen(Zeilenweise), einzelne Zeichen(Zeichenkombination) pro Zeile abfangen, die Zeichen umformatieren und eine neue Datei schreiben!
Beispiel einer alten Logdatei:
m a 5 7 logtext
m b 5 8 logtext
Zeichenerklärung(Beispiel):
m = MPZ
a = APZ --- b = BPZ
5 = XXX
7 = ABC --- c = DEF
Ziel(so müsste jetzt die neue Datei aussehen):
MPZ APZ XXX ABC logtext
MPZ BPZ XXX DEF logtext
Bisher habe ich:
Hat jemand ne Idee wie ich das Ganze am besten lösen kann?!?
Über Anregungen würde ich mich sehr freuen :-)))
Gruß
Peter
Ich möchte ganz gerne einpaar Vorschläge von euch, wie ich folgendes Problem lösen kann?!
Aufgabe:
Alte Logdateien auslesen(Zeilenweise), einzelne Zeichen(Zeichenkombination) pro Zeile abfangen, die Zeichen umformatieren und eine neue Datei schreiben!
Beispiel einer alten Logdatei:
m a 5 7 logtext
m b 5 8 logtext
Zeichenerklärung(Beispiel):
m = MPZ
a = APZ --- b = BPZ
5 = XXX
7 = ABC --- c = DEF
Ziel(so müsste jetzt die neue Datei aussehen):
MPZ APZ XXX ABC logtext
MPZ BPZ XXX DEF logtext
Bisher habe ich:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
my $dir = 'd:\old_log';
my @all_files = get_all_files($dir);
foreach my $file (@all_files) {
print $file."\n";
open my $FH, "<", "$dir\\".$file or die $!;
my @zeilen = <$FH>;
foreach my $line(@zeilen){
# Hier müsste ich die Zeichen formatieren
}
close($FH);
}
sub get_all_files {
my $dir = shift;
my $FH = undef;
opendir $FH, $dir;
my @all_files = grep{$_ =~ '.txt'} readdir($FH);
closedir($FH);
return @all_files;
}
Hat jemand ne Idee wie ich das Ganze am besten lösen kann?!?
Über Anregungen würde ich mich sehr freuen :-)))
Gruß
Peter