Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
+24 replies1
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
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
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++;
}
}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>';
}
+7 replies
+5 replies
+2 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
![[Homepage]](/battie/theme/default/homepage.gif)
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+2 replies
2015-03-03T13:21:35 LinuxerVielleicht postest Du zu schnell hintereinander? Schon mal versucht, den zweiten Post erst einige Minuten später einzutragen?
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
Guest PERLScripter
Code (perl): (dl )1 2 3 4 5 6 7 8 9if ( $Ergebnis_SQL_DB[$i][10] == '00000' ) { &Anzeige_Ergebnisse(); } if ( $Ergebnis_SQL_DB[$i][10] != '00000' ) { &Anzeige_Ergebnisse(); }
+4 replies
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
#!"C:\Program Files (x86)\Active Perl 5.20.1\bin\perl.exe"
use CGI::Carp qw(fatalsToBrowser);
print "Content-type:text/html\r\n\r\n";
&Test();
sub Test {
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">';
print '<html><head><title>visibility</title>';
print '<script type="text/javascript">';
print 'function onoff () {';
print ' if (document.getElementById)';
print ' document.getElementById("Ueberschrift").style.visibility = "visible";';
print ' document.getElementById("Zeile").style.visibility = "collapse";';
print '}';
print '</script>';
print '</head><body>';
print '<h1 id="Ueberschrift" style="visibility:hidden">Die Überschrift zum Text</h1>';
print '<p>Hier der Text. Aber fehlt da nicht was?</p>';
print '<table border="1">';
print ' <tr>';
print ' <td>A1</td>';
print ' <td>A2</td>';
print ' <td>A3</td>';
print ' </tr>';
print ' <tr id="Zeile">';
print ' <td>B1</td>';
print ' <td>B2</td>';
print ' <td>B3</td>';
print ' </tr>';
print ' <tr>';
print ' <td>C1</td>';
print ' <td>C2</td>';
print ' <td>C3</td>';
print ' </tr>';
print '</table>';
print '<p><a href="javascript:onoff()">Überschrift anzeigen, Zeile B verstecken!</a></p>';
print '';
print '</body></html>';
}
+3 replies
2015-03-03T14:10:32 PERLScripterWenn ich allerdings das Script etc. in mein PERL Script integrieren will, funktioniert es nicht, er blendet weder aus noch zeigt er die Überschrift an :-((
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
sub Anzeige_Ergebnisse {
print '<HTML>';
print '<HEAD>';
print '<TITLE>Monitoring</TITLE>';
print '<script type="text/javascript"> ';
print 'function onoff () ';
print '{ ';
print ' ';
print ' if (document.getElementById) ';
print ' { ';
# print ' document.getElementById("Ueberschrift").style.visibility = "visible";';
print ' document.getElementById("Zeile").style.visibility = "collapse"; ';
print ' } ';
print '} ';
print '</script> ';
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" .'">' . '<a href="javascript:onoff()">Test</a>' . '</td>';
print '</tr>';
print ' <tr id="Zeile">';
print ' <td>B1</td>';
print ' <td>B2</td>';
print ' <td>B3</td>';
print ' </tr>';
print '</table>';
print '</BODY>';
print '</HTML>';
}
+2 replies
1 2 3 4 5 6 7 8
print <<"ENDE_HTML_CODE"; <html> ... <td style="width:11%" align="middle" bgcolor="$Bedingung">$HTML_Anzeige_Broker</td> ... </html> ENDE_HTML_CODE
+2 replies
1
2
3
4
5
print "Debug - TS I : $HTML_Anzeige_TS_I " , "\n";
print "Debug - TS II : $HTML_Anzeige_TS_II " , "\n";
print "Debug - Differenz : $HTML_Anzeige_TS_Ergebnis_Differenz" , "\n";
return( $HTML_Anzeige_TS_I , $HTML_Anzeige_TS_II , $HTML_Anzeige_TS_Ergebnis_Differenz );
1
2
3
4
5
6
7
8
sub get_three()
{
my $T_HTML_Anzeige_TS_I = "12:04:17";
my $T_HTML_Anzeige_TS_II = "12:14:53";
my $T_HTML_Anzeige_TS_Ergebnis_Differenz = "00:10:36";
return ( "$T_HTML_Anzeige_TS_I " , "$T_HTML_Anzeige_TS_II " , "$T_HTML_Anzeige_TS_Ergebnis_Differenz" );
}
1
2
3
4
5
6
7
my ( $one , $two , $three ) = get_three();
print "\n";
print "Variable I : $one" , "\n";
print "Variable II : $two" , "\n";
print "Variable III : $three" , "\n";
print "\n";
1
2
3
4
5
6
7
my ( $one , $two , $three ) = TS_Konvertierung();
print "\n";
print "Variable I : $one" , "\n";
print "Variable II : $two" , "\n";
print "Variable III : $three" , "\n";
print "\n";
1
2
3
4
Aufruf
------
my ( $HTML_Anzeige_TS_I , $HTML_Anzeige_TS_II , $HTML_Anzeige_TS_Differenz ) = &TS_Konvertierung( $Verarbeitung_TS_I , $Verarbeitung_TS_II );
1
2
3
4
Rückgabe der Paramter in Sub
----------------------------
return( "$HTML_Anzeige_TS_I" , "$HTML_Anzeige_TS_II" , "$HTML_Anzeige_TS_Differenz" );
+8 replies
+5 replies
+4 replies
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
DB_Query_Monitoring_DB {
my $HTML_Anzeige_Zaehler = 0;
foreach( @Ergebnis_SQL_DB )
{
my $Anzahl = 1;
my $x = 0;
# ------------------------------------------------------------
my $HTML_Anzeige_SSTs = $Ergebnis_SQL_DB[$i][3];
my $HTML_Anzeige_Broker = $Ergebnis_SQL_DB[$i][4];
my $HTML_Anzeige_MTs = $Ergebnis_SQL_DB[$i][7];
my $HTML_Anzeige_Status = $Ergebnis_SQL_DB[$i][9];
my $HTML_Anzeige_EC = $Ergebnis_SQL_DB[$i][10];
my $HTML_Anzeige_Anzahl = $Ergebnis_SQL_DB[$i][11];
# ------------------------------------------------------------
for ( $x = 0; $x < $Anzahl; $x++ )
{
if ( $Ergebnis_SQL_DB[$i][10] == '00000' )
{
my $Verarbeitung_TS_I = $Ergebnis_SQL_DB[$i][1];
my $Verarbeitung_TS_II = $Ergebnis_SQL_DB[$i][2];
my ( $HTML_Anzeige_TS_I , $HTML_Anzeige_TS_II , $HTML_Anzeige_TS_Differenz ) = &TS_Konvertierung( $Verarbeitung_TS_I , $Verarbeitung_TS_II );
my @HTML_Anzeige_Parameter = ( $HTML_Anzeige_Zaehler , $HTML_Anzeige_SSTs , $HTML_Anzeige_Broker , $HTML_Anzeige_MTs ,
$HTML_Anzeige_Status , $HTML_Anzeige_EC , $HTML_Anzeige_TS_I , $HTML_Anzeige_TS_II ,
$HTML_Anzeige_TS_Differenz , $HTML_Anzeige_Anzahl );
&Anzeige_Ergebnisse( @HTML_Anzeige_Parameter );
# Ausgabe des Rückgabe - Parameter
# print "\n";
# print "TS I : $HTML_Anzeige_TS_I" , "\n";
# print "TS II : $HTML_Anzeige_TS_II" , "\n";
# print "Differenz : $HTML_Anzeige_TS_Differenz" , "\n";
# print "\n";
}
if ( $Ergebnis_SQL_DB[$i][10] != '00000' )
{
my $Verarbeitung_TS_I = $Ergebnis_SQL_DB[$i][1];
my $Verarbeitung_TS_II = $Ergebnis_SQL_DB[$i][2];
my ( $HTML_Anzeige_TS_I , $HTML_Anzeige_TS_II , $HTML_Anzeige_TS_Differenz ) = &TS_Konvertierung( $Verarbeitung_TS_I , $Verarbeitung_TS_II );
my @HTML_Anzeige_Parameter = ( $HTML_Anzeige_Zaehler , $HTML_Anzeige_SSTs , $HTML_Anzeige_Broker , $HTML_Anzeige_MTs ,
$HTML_Anzeige_Status , $HTML_Anzeige_EC , $HTML_Anzeige_TS_I , $HTML_Anzeige_TS_II ,
$HTML_Anzeige_TS_Differenz , $HTML_Anzeige_Anzahl );
&Anzeige_Ergebnisse( @HTML_Anzeige_Parameter );
# Ausgabe des Rückgabe - Parameter
# print "\n";
# print "TS I : $HTML_Anzeige_TS_I" , "\n";
# print "TS II : $HTML_Anzeige_TS_II" , "\n";
# print "Differenz : $HTML_Anzeige_TS_Differenz" , "\n";
# print "\n";
}
}
print "\n";
$i++;
$HTML_Anzeige_Zaehler++;
}
}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="' . "" .'">' . $_[0] . '</td>';
print '<td style="width:9%" align="middle"' . 'bgcolor="' . "" .'">' . $_[1] . '</td>';
print '<td style="width:11%" align="middle"' . 'bgcolor="' . "" .'">' . $_[2] . '</td>';
print '<td style="width:7%" align="middle"' . 'bgcolor="' . "" .'">' . $_[3] . '</td>';
print '<td style="width:7%" align="middle"' . 'bgcolor="' . "" .'">' . $_[4] . '</td>';
print '<td style="width:9%" align="middle"' . 'bgcolor="' . "" .'">' . $_[5] . '</td>';
print '<td style="width:9%" align="middle"' . 'bgcolor="' . "" .'">' . $_[6] . '</td>';
print '<td style="width:9%" align="middle"' . 'bgcolor="' . "" .'">' . $_[7] . '</td>';
print '<td style="width:9%" align="middle"' . 'bgcolor="' . "" .'">' . $_[8] . '</td>';
print '<td style="width:7%" align="middle"' . 'bgcolor="' . "" .'">' . $_[9] . '</td>';
print '<td style="width:11%" align="middle"' . 'bgcolor="' . "" .'">' . "Platz - Halter" . '</td>';
print '</tr>';
print '<!-- usw. andere Zeilen der Tabelle -->';
print '</table>';
print '</BODY>';
print '</HTML>';
}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
sub Anzeige_Ergebnisse {
print '<HTML>';
print '<HEAD>';
print '<TITLE>Monitoring</TITLE>';
print '<SCRIPT TYPE="text/javascript">';
print 'var myNumber = ' . "$_[0]" . ';';
print 'function Zeigen() {';
print 'alert( "Nr. des DS : "+ myNumber);';
print '}';
print '</SCRIPT>';
print $_[0];
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="' . "" .'">' . $_[0] . '</td>';
print '<td style="width:9%" align="middle"' . 'bgcolor="' . "" .'">' . $_[1] . '</td>';
print '<td style="width:11%" align="middle"' . 'bgcolor="' . "" .'">' . $_[2] . '</td>';
print '<td style="width:7%" align="middle"' . 'bgcolor="' . "" .'">' . $_[3] . '</td>';
print '<td style="width:7%" align="middle"' . 'bgcolor="' . "" .'">' . $_[4] . '</td>';
print '<td style="width:9%" align="middle"' . 'bgcolor="' . "" .'">' . $_[5] . '</td>';
print '<td style="width:9%" align="middle"' . 'bgcolor="' . "" .'">' . $_[6] . '</td>';
print '<td style="width:9%" align="middle"' . 'bgcolor="' . "" .'">' . $_[7] . '</td>';
print '<td style="width:9%" align="middle"' . 'bgcolor="' . "" .'">' . $_[8] . '</td>';
print '<td style="width:7%" align="middle"' . 'bgcolor="' . "" .'">' . $_[9] . '</td>';
print '<td style="width:11%" align="middle"' . 'bgcolor="' . "" .'">' . '<a href="javascript:Zeigen()">Details</a>' . '</td>';
print '</tr>';
print '<!-- usw. andere Zeilen der Tabelle -->';
print '</table>';
print '</BODY>';
print '</HTML>';
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
print <<"EOM";
<HTML>
<HEAD>
<TITLE>EPROM - Monitoring</TITLE>
<SCRIPT TYPE="text/javascript">
var myNumber = $_[0];
function Zeigen() {
alert( "Nr. des DS : "+ myNumber);
}
</SCRIPT>
</HEAD>
<BODY BGCOLOR = "#FFFFFF">
EOM
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
1 2 3 4 5
print '<SCRIPT TYPE="text/javascript">'; print 'function Zeigen() {'; printf 'alert( "Nr. des DS : %s" );', $_[0]; print '}'; print '</SCRIPT>';
+2 replies
![[Powered by Battie]](/battie/img/powered.png)
