Opened by perl-anfaenger at 2007-04-03 17:29
User since
2007-01-22
7 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-01-22
7 Artikel
BenutzerIn
Hallo community,
ich habe da mal wieder ein kleines Problem.
Es geht um die Auswertung einer Datei
Status.dat sie ist wiefolge aufgebaut
Diese Datei lese ich in ein Array ein.
Benötigte Arrays speichere ich in einen String ab
die String werden nach dem Komma gesplittet und in ein Array geschrieben.
Damit würde der Array für den String Test wiefolgt aussehen
Array[0]=Test
Array[1]=90%
Array[2]=5%
Array[3]=5%
diese Daten schreibe ich in eine Ausgabedatei.
Soweit sogut. Nur meine Ausgabedatei ist immer leer perl bleibt auch bei keinem Fehler stehen bin echt ratlos und um jeden Tipp dankbar.
Anbei mein Code
Danke
Der Anfänger
ich habe da mal wieder ein kleines Problem.
Es geht um die Auswertung einer Datei
Status.dat sie ist wiefolge aufgebaut
Code: (dl
)
1
2
3
4
beschreibung,prozent ok,prozent warning, prozent critical, total avail
Test,90%,5%,5%
Test1,90%,5%,5%
Test2,90%,5%,5%
Diese Datei lese ich in ein Array ein.
Benötigte Arrays speichere ich in einen String ab
die String werden nach dem Komma gesplittet und in ein Array geschrieben.
Damit würde der Array für den String Test wiefolgt aussehen
Array[0]=Test
Array[1]=90%
Array[2]=5%
Array[3]=5%
diese Daten schreibe ich in eine Ausgabedatei.
Soweit sogut. Nur meine Ausgabedatei ist immer leer perl bleibt auch bei keinem Fehler stehen bin echt ratlos und um jeden Tipp dankbar.
Anbei mein Code
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
#!/usr/bin/perl
use strict;
use warnings;
#Öffnen der Datei status.dat
open(DATEI, '< status1.dat');
#Auslesen des Inhaltes der Datei in den Array @inhalt
my @inhalt = <DATEI>;
#Schliessen der Datei
close(DATEI);
#Beschreibung 1. Zeile einlesen
my $beschreibung = @inhalt[0];
#Oracle 3. Zeile einlesen
my $oracle = @inhalt[2];
#Evi 3. Zeile einlesen
my $evi = @inhalt[2];
#Groupware 13. Zeile einlesen
my $group = @inhalt[12];
#Active Directory 17. Zeile einlesen
my $acdi = @inhalt[16];
#SAP 22. Zeile einlesen
my $sap = @inhalt[21];
#Netzinfo 23. Zeile einlesen
my $isu = @inhalt[22];
#Netzinfo 21. Zeile einlesen
my $netzinfo = @inhalt[20];
#Bei jedem Komma splitten
@satz1=split(/\,/,$beschreibung);
print join("\n",@satz1);
@satz2=split(/\,/,$oracle);
print join("\n",@satz2);
@satz3=split(/\,/,$evi);
print join("\n",@satz3);
@satz4=split(/\,/,$group);
print join("\n",@satz4);
@satz5=split(/\,/,$acdi);
print join("\n",@satz5);
@satz6=split(/\,/,$netzinfo);
print join("\n",@satz6);
@satz7=split(/\,/,$sap);
print join("\n",@satz7);
@satz8=split(/\,/,$isu);
print join("\n",@satz8);
#Ausgabedatei erzeugen und öffnen
open(DATEIA,'>> trend.csv');
#Schreibe der Sammelausgabe in die Datei Ausgabe
print DATEIA
satz1[0]";"satz1[1]"\n"
satz2[0]";"satz1[1]"\n"
satz3[0]";"satz1[1]"\n"
satz4[0]";"satz1[1]"\n"
satz5[0]";"satz1[1]"\n"
satz6[0]";"satz1[1]"\n"
satz7[0]";"satz1[1]"\n"
satz8[0]";"satz1[1]"\n";
#Schließen der Datei
close (DATEIA);
Danke
Der Anfänger