Thread Komplexe Datenstruktur in Perl aufbauen (29 answers)
Opened by Matthias at 2010-02-26 12:54

Gast Matthias
 2010-02-26 13:22
#133713 #133713
Ja die Daten sollen danach gespeichert werden.
Anbei eine Beispielzeile:

Code: (dl )
S Wed Aug 01 2007 10:39:48:577 secinfo accepted: USER=MUSTER, USER-HOST=host1.wdf.sap.corp, HOST=ld8061.wdf.sap.corp, TP=/usr/sap/BIN/SYS/exe/run/tp


Es ist mir mittlerweile gelungen die Datenstruktur zu befüllen:

Code (perl): (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

%Host_Records = {
        TP_RECORDS => %APP,
        ERRORS => @ERROR_LIST,
};

                if(defined $Host_Records{$hostname}) {
                #aktualisieren
                        print "Aktualisiere...\n";
                        if(defined $Host_Records{$hostname}->{TP_RECORDS}{$TP}) {
                                print "Existiert bereits...\n";
                        }
                        
                }#if
                
                else {
                #Neu Anlegen
                        $Host_Records{$hostname} = $hostname;
                        $Host_Records{$hostname}->{TP_RECORDS}{$TP} = $TP;
                        
                        if($_ =~ /\d\d:\d\d:\d\d:\d\d\d secinfo denied/) {
                                print "Fehler!\n";
                                push @{(Host_Records{$hostname}->{ERRORS}, $_)};
                                print $Host_Records{$hostname}->{ERRORS}[0];
                        }#ERROR
                        
                        #print $Host_Records{$hostname}->{TP_RECORDS}{$TP};
                        #print "\n";    
                        
                }#else


Das Befüllen des Arrays mit push @ tut noch nicht...

//Modedit GwenDragon: Logauszug in CODE-Tags
Last edited: 2010-02-26 13:30:07 +0100 (CET)

View full thread Komplexe Datenstruktur in Perl aufbauen