Thread Undefinierbares XML::Simple Problem (2 answers)
Opened by burnersk at 2010-08-16 18:46

burnersk
 2010-08-16 18:46
#140706 #140706
User since
2008-03-25
83 Artikel
BenutzerIn
[default_avatar]
Hallo,

ich habe aktuell für mein Stundenplanscript ( siehe unten ) eine Ausgabe, die ich nicht verstehe.

Wenn ich mein Script zum Beispiel für die Wochenermittlung ( mode=wochen ) ausführe, wird zu Anfang folgendes geprintet ( Auszug ):
Code: (dl )
1
2
3
<?xml version="1.0" encoding="UTF-8"?>
<mmbbs xmlns="uri:de.dev5-media.mmbbs.stundenplan" xmlns:aaa="<option value="32">9.8.2010</option>
<option value="33">16.8.2010</option>

In den Debug-Ausgaben ( Data::Dumper ) ist aber kein HTML-Code in den Variablen.

Weiß jemand Rat, wie ich das wieder weg bekomme?

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
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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174

#!/usr/bin/perl
use strict;
use warnings;

use CGI qw( param header );
use LWP::UserAgent ();
use Data::Dumper qw( Dumper );
use XML::Simple();

####################
# LWP::UserAgent
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
##########

####################
# XML::Simple
my $xmls = new XML::Simple(
        AttrIndent      => 0,
        ContentKey      => 'content',
        ForceArray      => 1,
        KeepRoot        => 1,
        NoAttr          => 0,
        NoEscape        => 1,
        NoIndent        => 0,
        NoSort          => 1,
        NormaliseSpace  => 0,
        NSExpand        => 1,
        NumericEscape   => 0,
        RootName        => 'xml',
        SuppressEmpty   => undef,
        XMLDecl         => '<?xml version="1.0" encoding="UTF-8"?>',
);
##########

####################
# localtime.
my @lt = localtime; $lt[5]+=1900; $lt[4]+=1;
##########

####################
# Verfügbare Klassen.
if( param('mode') eq 'klassen' ) {
        my $klassen = {};
        my $xml_hash = {'mmbbs' => [{'xmlns' => 'uri:de.dev5-media.mmbbs.stundenplan','klassen'=>[{'klasse'=>[]}]}]};
        
        ####################
        # Lade Navigationsleiste vom Stundenplanprogramm.
        my $response = $ua->get('http://www.bbs-h.de/plan0910/klassen/frames/navbar.htm');
        my $navbar_html = $response->decoded_content;
        ##########

        ####################
        # Sind Klassen im Quelltext eingetragen?
        if( $navbar_html =~ m'var classes = \[([^\]]*)\];' ) {
                my $classes_html = $1; # Klassen als JavaScript Code.
                my $i = 0; # Zählindex für Klassen-IDs.
                
                ####################
                # Für jede Klasse...
                foreach my $class_html (split ',', $classes_html) {
                        if( $class_html =~ m'"([^"]+)"' ) {
                                $klassen->{"$1"} = int($i);
                        }
                        $i++;
                }
                ##########
        }
        else {
                print header( -type => 'text/plain', -status => '500 Internal Server Error' );
                print 'Klassen konnten nicht ermittelt werden.';
                exit 1;
        }
        ##########
        
        ####################
        # Daten aufbereiten.
        foreach my $klasse (sort keys %$klassen) {
                my $tmp = {};
                $tmp->{'id'} = "$klassen->{$klasse}";
                $tmp->{'content'} = "$klasse";
                
                # Für alle Klassen, die es gitb...
                if( $klasse !~ m/^CCNA|DR\w+|MB|BSFHR$/ ) {
                        $tmp->{'email'} = lc("$klasse").'@mmbbs.eduplaza.de';
                }
                
                push @{ $xml_hash->{'mmbbs'}->[0]->{'klassen'}->[0]->{'klasse'} }, $tmp;
        }
        ##########
        
#       print header('text/plain'), Dumper($xml_hash);
        
        ####################
        # Ergebnis ausgeben und Ende.
        print header( -type => 'text/xml', -status => '200 OK' );
        print $xmls->XMLout($xml_hash);
        exit 0;
        ##########
}
##########
####################
# Verfügbare Kalenderwochen.
elsif( param('mode') eq 'wochen' ) {
        my $wochen = {};
        my $xml_hash = {'mmbbs' => [{'xmlns' => 'uri:de.dev5-media.mmbbs.stundenplan'}]};
        
        ####################
        # Lade Navigationsleiste vom Stundenplanprogramm.
        my $response = $ua->get('http://www.bbs-h.de/plan0910/klassen/frames/navbar.htm');
        my $navbar_html = $response->decoded_content;
        ##########

        ####################
        # Sind Wochen im Quelltext eingetragen?
        if( $navbar_html =~ m~<select name="week" class="selectbox" style='width:114' onChange="doDisplayTimetable\(NavBar, topDir\);">\s*(.*)\s*$~s ) {
                ####################
                # Wochen als HTML Options. Etwas unelegant aber "Quick And Dirty" ;)
                while( $1 =~ m~^(.*)</select>~s ) {
                        last unless $_;
                        $_ =~ m~^(.*)</select>~s
                }
                my $weeks_html = $1;
                $weeks_html =~ s/\s+$//g;
                $weeks_html =~ s/[\r\n]+$/\n/g;
                ##########
                
                ####################
                # Für jede Woche...
                foreach my $week_html (split /\n/, $weeks_html) {
                        if( $week_html =~ m'<option value="(\d+)">(\d+)\.(\d+)\.(\d+)<\/option>' ) {
                                $wochen->{sprintf('%04d-%02d-%02d',$4,$3,$2)} = $1;
                        }
                }
                ##########
        }
        else {
                print header( -type => 'text/plain', -status => '500 Internal Server Error' );
                print 'Wochen konnten nicht ermittelt werden.';
                exit 1;
        }
        ##########
        
        ####################
        # Daten aufbereiten.
        foreach my $woche (sort { $a=~m/(\d+)-(\d+)-(\d+)/; my $c = $1.$2.$3; $b=~m/(\d+)-(\d+)-(\d+)/; my $d = $1.$2.$3; $c <=> $d } keys %$wochen) {
                my $tmp = {};
                $tmp->{'id'} = "$wochen->{$woche}";
                $tmp->{'content'} = "$woche";
                
                push @{ $xml_hash->{'mmbbs'}->[0]->{'wochen'}->[0]->{'woche'} }, $tmp;
        }
        ##########
        
#       print header('text/plain'), Dumper($xml_hash);
        
        ####################
        # Ergebnis ausgeben und Ende.
        print header( -type => 'text/xml', -status => '200 OK' );
        print $xmls->XMLout($xml_hash);
        exit 0;
        ##########
}
##########
####################
# Unbekannter Modus.
else {
        print header( -type => 'text/html', -status => '404 Not Found' );
        print '<html><body><h1>de.dev5-media.mmbbs.stundenplan</h1><p>Unhandled mode</p></body></html>';
        exit 1;
}
##########
exit 0;

View full thread Undefinierbares XML::Simple Problem