Opened by PERLScripter at 2015-03-03 13:43
Hallo liebe PERL Gemeinde,
ich habe mal wieder eine Frage zu meinem PERL Script :
Und zwar mache ich eine Abfrage auf der DB, verarbeite
jede einzelne Zeile & gebe diese Zeile in HTML aus. Das
Shebang in der Kopfzeile ist in Ordnung. Hier der Code
für die DB Abfrage :
Wie in sehen könnt, definierte ich jede Spalte & weise ihm pro
Datensatz die entsprechenden Veriablen zu. Anschließend prüfe
ich noch ob "$Ergebnis_SQL_DB[$i][10]" = '00000' oder != '00000'
ist. Dann gebe ich ( pro Zeile ) an die Sub - Routine
"&Anzeige_Ergebnisse();" ab. Der Code für diese Sub lautet :
Last edited: 2015-03-03 13:45:07 +0100 (CET)
ich habe mal wieder eine Frage zu meinem PERL Script :
Und zwar mache ich eine Abfrage auf der DB, verarbeite
jede einzelne Zeile & gebe diese Zeile in HTML aus. Das
Shebang in der Kopfzeile ist in Ordnung. Hier der Code
für die DB Abfrage :
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
sub DB_Abfrage {
# Abfrage auf der DB ; aus Datenschutzgründen entfernt
$i = 0;
$HTML_Anzeige_Zaehler = 0;
foreach( @Ergebnis_SQL_DB )
{
my $Anzahl = 1;
my $x = 0;
# -------------------------------------------------------
$HTML_Anzeige_SSTs = $Ergebnis_SQL_DB[$i][3];
$HTML_Anzeige_Broker = $Ergebnis_SQL_DB[$i][4];
$HTML_Anzeige_MTs = $Ergebnis_SQL_DB[$i][7];
$HTML_Anzeige_Status = $Ergebnis_SQL_DB[$i][9];
$HTML_Anzeige_EC = $Ergebnis_SQL_DB[$i][10];
$HTML_Anzeige_Anzahl = $Ergebnis_SQL_DB[$i][11];
# -------------------------------------------------------
$Umwandlung_TS_I = $Ergebnis_SQL_DB[$i][1];
$Umwandlung_TS_II = $Ergebnis_SQL_DB[$i][2];
for ( $x = 0; $x < $Anzahl; $x++ )
{
if ( $Ergebnis_SQL_DB[$i][10] == '00000' )
{
&Anzeige_Ergebnisse();
}
if ( $Ergebnis_SQL_DB[$i][10] != '00000' )
{
&Anzeige_Ergebnisse();
}
}
print "\n";
$i++;
$HTML_Anzeige_Zaehler++;
}
}Wie in sehen könnt, definierte ich jede Spalte & weise ihm pro
Datensatz die entsprechenden Veriablen zu. Anschließend prüfe
ich noch ob "$Ergebnis_SQL_DB[$i][10]" = '00000' oder != '00000'
ist. Dann gebe ich ( pro Zeile ) an die Sub - Routine
"&Anzeige_Ergebnisse();" ab. Der Code für diese Sub lautet :
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
sub Anzeige_Ergebnisse {
print '<HTML>';
print '<HEAD>';
print '<TITLE> Monitoring</TITLE>'; ';
print '</HEAD>';
print '<BODY BGCOLOR = "#FFFFFF">';
# print '<H1>Monitoring - Ergebnisse</H1>';
# --------------------------------------------------------------------------------------------------------------------------------------
print '<table border="1" width="75%">';
print '<tr>';
print '<td style="width:9%" align="middle"' . 'bgcolor="' . "$Bedingung" .'">' . $HTML_Anzeige_Zaehler . '</td>';
print '<td style="width:9%" align="middle"' . 'bgcolor="' . "$Bedingung" .'">' . $HTML_Anzeige_SSTs . '</td>';
print '<td style="width:11%" align="middle"' . 'bgcolor="' . "$Bedingung" .'">' . $HTML_Anzeige_Broker . '</td>';
print '<td style="width:7%" align="middle"' . 'bgcolor="' . "$Bedingung" .'">' . $HTML_Anzeige_MTs . '</td>';
print '<td style="width:7%" align="middle"' . 'bgcolor="' . "$Bedingung" .'">' . $HTML_Anzeige_Status . '</td>';
print '<td style="width:9%" align="middle"' . 'bgcolor="' . "$Bedingung" .'">' . $HTML_Anzeige_EC . '</td>';
print '<td style="width:9%" align="middle"' . 'bgcolor="' . "$Bedingung" .'">' . $HTML_Anzeige_TS_I . '</td>';
print '<td style="width:9%" align="middle"' . 'bgcolor="' . "$Bedingung" .'">' . $HTML_Anzeige_TS_II . '</td>';
print '<td style="width:9%" align="middle"' . 'bgcolor="' . "$Bedingung" .'">' . $HTML_Anzeige_TS_Ergebnis_Differenz . '</td>';
print '<td style="width:7%" align="middle"' . 'bgcolor="' . "$Bedingung" .'">' . $HTML_Anzeige_Anzahl . '</td>';
print '<td style="width:11%" align="middle"' . 'bgcolor="' . "$Bedingung" .'">' . "Platz - Halter" . '</td>';
print '</tr>';
print '<!-- usw. andere Zeilen der Tabelle -->';
print '</table>';
print '</BODY>';
print '</HTML>';
}Last edited: 2015-03-03 13:45:07 +0100 (CET)