Ein - / Ausblenden von Tabellen - Javascript & PERL CGI (Perl/CGI)

[thread]19534[/thread]

Ein - / Ausblenden von Tabellen - Javascript & PERL CGI

Tags: perl5 CGI Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+24 replies

Gast PERLScripter

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 :

Code: (dl )

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 )

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)

+7 replies
Gast PERLScripter

2015-03-03 13:57

Leider musste ich den Post aufteilen, der er ihn sonst als SPAM erkennt
& nicht veröffentlicht. Beim 2. Teil kommt auch immer die Meldung :
"Posting Not Accepted" !!!

WARUM ????

Vielen Dank im Voraus !

PERLScripter
Last edited: 2015-03-03 14:18:10 +0100 (CET)
- +5 replies
- Linuxer
  
  2015-03-03 14:21
  
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  
  Warum nicht einfach registrieren und anmelden? Du bist doch eh häufiger hier?
  Dann dürfte es leichter werden.
  
  Für korrektes Rumraten, warum beim zweiten Posting ein Fehler kommt, fehlen schlicht Informationen und ich kann nicht in die Interna hier schauen. Was versuchst Du denn da zu posten?
  
  Vielleicht postest Du zu schnell hintereinander? Schon mal versucht, den zweiten Post erst einige Minuten später einzutragen?
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +2 replies
  - PERLScripter
    
    2015-03-03 15:05
    
    User since
    2015-03-03
    12 Artikel
    BenutzerIn
    
    Hi Linuxer,
    
    Ja. Logischerweise ist das die bessere Alternative. Allerdings
    löst eine Anmeldung nicht die Problematik, dass das Forum
    meinen Post nicht akzeptiert. Es kommt immer noch die Meldung :
    "Post not accepted". Ist nichts ausser Text und einem Code -
    Teil, natürlich in [code][/code] eingefasst. Bin langsam
    ratlos. Das hatte ich noch nie :-(
    
    Viele Grüße
    PERL Scripter
    
    modedit Editiert von GwenDragon: Code-Tags in NOPARSE gestellt
    Last edited: 2015-03-03 15:38:08 +0100 (CET)
    - pq
      
      2015-03-03 15:07
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      wie gesagt, geprüft wird nur das erste posting. einmal akzeptiert, sollte das problem nicht mehr auftauchen.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +2 replies
  - pq
    
    2015-03-03 15:06
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    2015-03-03T13:21:35 Linuxer
    Vielleicht postest Du zu schnell hintereinander? Schon mal versucht, den zweiten Post erst einige Minuten später einzutragen?
    
    dann käme allerdings eine andere fehlermeldung. es handelt sich auch nur um einige sekunden wartezeit.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - PERLScripter
      
      2015-03-03 15:08
      
      User since
      2015-03-03
      12 Artikel
      BenutzerIn
      
      Hi pq,
      
      Ah. Danke für die Info. Dann müsste
      der Post ja jetzt durchgehen.
      
      Viele Grüße
      PERLSCripter
- pq
  
  2015-03-03 15:04
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  sorry, das ist dann ein false positive von unserem antispam-provider akismet.
  am besten, wie linuxer schon schrieb, registrieren, dann wird nur noch dein erster beitrag geprüft.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
rosti

2015-03-03 14:47

User since
2011-03-19
3194 Artikel
BenutzerIn

Am Besten machst Du die Abfrage so, dass die dabei entstehende Datenstruktur direkt und ohne Umschweife eine Template-Engine versteht. Die Ausgabe der Spalten wird dann nur noch im Template festgelegt. Z.B. HTML::Template und die Abfage als arrayref mit der Slice-Option.

Raubtier

2015-03-03 14:57

User since
2012-05-04
1054 Artikel
BenutzerIn

user image

Guest PERLScripter

Code (perl): (dl )

                if ( $Ergebnis_SQL_DB[$i][10] == '00000' )
                        {               
                                &Anzeige_Ergebnisse();
                        }
                        
                if ( $Ergebnis_SQL_DB[$i][10] != '00000' )
                        {               
                                &Anzeige_Ergebnisse();
                }

Mit == und != vergleichst du Zahlen, keine Strings! Wenn, dann also $irgenwas == 0 bzw. $irgendwas != 0 oder aber du vergeichst Zeichenketten mit eq, ne usw., also $irgendwas eq '00000'.

Und Funktionen bitte ohne & aufrufen (außer du weißt, wozu du das & brauchst).

+4 replies

PERLScripter

2015-03-03 15:10

User since
2015-03-03
12 Artikel
BenutzerIn
[default_avatar]

So. Dies ist nun der 2. Teil meines Original Posts.
Sorry für die Vewirrung ! :-)

--------------------------------------------------------------------

Nun zu meinem Problem :

Ich möchte realisieren, dass wenn ich auf Link ( noch deaktiviert )
in der Spalte, in der gerade "Platzhalter" steht, klicke, eine weitere Tabelle öffnet / schließt. Dort würden dann die Informationen des jeweiligen Datensatzes stehen, er müsste also unterscheiden, welcher Datensatz
ausgewählt ist.

Ich habe bereits dieses Script gefunden, das auch einwandfrei funktioniert, wenn ich es so aufrufe :

Code: (dl )

#!"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>';

}

Wenn ich allerdings das Script etc. in mein PERL Script integrieren will, funktioniert es nicht, er blendet weder aus noch zeigt er die Überschrift an :-((

Habt ihr vielleicht eine Ahnung, wieso ? Ich hoffe, ihr könnt mir weiterhelfen.

Vielen Dank im Voraus !

PERLScripter
Last edited: 2015-03-03 15:11:39 +0100 (CET)

+3 replies

PERLScripter

2015-03-03 15:20

User since
2015-03-03
12 Artikel
BenutzerIn
[default_avatar]

2015-03-03T14:10:32 PERLScripter
Wenn ich allerdings das Script etc. in mein PERL Script integrieren will, funktioniert es nicht, er blendet weder aus noch zeigt er die Überschrift an :-((

Zum Beispiel habe ich probiert, den Script Teil im Header unterzubringen, dann habe ich den Bereich <tr> in meiner Tabelle noch eine entsprechende ID gegeben und für "Platzhalter" den Verweis auf das Script ( <a href="javascript:onoff()"> angelegt. Das sähe dann so aus :

Code: (dl )

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>';

}

Leider ohne Erfolg.

Viele Grüße
PERLSCripter
Last edited: 2015-03-03 15:25:37 +0100 (CET)

+2 replies
Raubtier

2015-03-03 15:33
User since
2012-05-04
1054 Artikel
BenutzerIn
Du hast hier geschätzt 1000 print-Befehle und sonst nichts drin.

Vereinfachung, Scritt 1: Mache ein print draus und benutze ein HERE-doc.
Code (perl): (dl )

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
Dann muss man sich wenigstens nicht mehr mit den " und ' abquälen.

Schritt 2: Sorge dafür, dass deine Variablen sinnvoll übergeben werden, d.h. nicht über globale Variablen.

Schritt 3: Separiere Code und die Anzeige. Also beispielsweise, indem du sowas wie Template::Toolkit nutzt.
- PERLScripter
  
  2015-03-04 12:12
  
  User since
  2015-03-03
  12 Artikel
  BenutzerIn
  
  Hallo Raubtier,
  
  entschuldige, dass ich dir erst jetzt antworte, aber war den
  ganzen Abend unterwegs. :-)
  
  Danke für deine Hinweise, die ich versucht habe, so umzusetzen.
  
  1. Die Prints habe ich entsprechend umgewandelt
  2. Ich habe nun alle Variablen als lokale Variablen definiert
  ausser sämtliche, die mit "HTML_Anzeige_" beginnen, da diese
  von verschieden Subs bzw. einem weiteren PERL Script verwendet
  werden, also global sind.
  
  3. Nur bei der Verwendung von Template::Toolkit habe ich leider noch
  starke Probleme, es einzubinden.
  
  Viele Grüße
  PERLScripter

+2 replies

PERLScripter

2015-03-04 18:08

User since
2015-03-03
12 Artikel
BenutzerIn
[default_avatar]

NOch eine ergänzende, aber wichtige Frage.

Ich möchte 3 Werte aus der Sub "&TS_Konvertierung()"
zurückgeben und diese dann weiter verarbeiten. Anbei
der Code der Sub für die Verarbeitung der Time - Stamps,
bzw. die einfache Rückgabe über "return" :

Code: (dl )

	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 );

Eine kleines Test Script, dass ich verwendet habe, läuft
so ohne Probleme :

Sub für Aufruf

Code: (dl )

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" );
}

Sub für Rückgabe dreier Werte :

Code: (dl )

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";

Wenn ich diesen Code so in meine normale Sub - Routine
einfüge, gibt er die Werte einwandfrei zurück.

Ich habe schon einiges probiert, bin aber langsam ratlos.

Ich hoffe, ihr könnt mir hier weiterhelfen.

So sah das dann bei mir aus :

Code: (dl )

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";

Vielen Dank im Voraus
PERLScripter
Last edited: 2015-03-04 18:09:44 +0100 (CET)

PERLScripter

2015-03-05 13:24

User since
2015-03-03
12 Artikel
BenutzerIn
[default_avatar]

Also ich habe gerade die Lösung schon alleine
gefunden. Danke für Eure Hilfe :-(

Die Lösung war :

Code: (dl )

Aufruf
------

my ( $HTML_Anzeige_TS_I , $HTML_Anzeige_TS_II , $HTML_Anzeige_TS_Differenz ) = &TS_Konvertierung( $Verarbeitung_TS_I , $Verarbeitung_TS_II );

Hatte die Sub fälschlicherweise 2 mal aufgerufen.

Code: (dl )

Rückgabe der Paramter in Sub
----------------------------

return( "$HTML_Anzeige_TS_I" , "$HTML_Anzeige_TS_II" , "$HTML_Anzeige_TS_Differenz" );

Das wars. Einfacher als gedacht.

Viele Grüße
PERLSCripter

+8 replies

PERLScripter

2015-03-05 13:29

User since
2015-03-03
12 Artikel
BenutzerIn
[default_avatar]

Hallo Zusammen,

Trotz all der Hilfe, habe ich leider noch keinen
Hinweis auf mein ursprüngliches Problem des Ein -
& Ausklappens einer Tabelle nach Klick auf einen
Link von Euch erhalten.

Der Hinweis von Raubtier war hilfreich, löst die
Trennung von Template::Toolkit denn schon das
Problem ? Steige leider hier nicht durch.

Dankeschön.

Viele Grüße
PERLScripter
Last edited: 2015-03-05 13:30:07 +0100 (CET)

+5 replies

Raubtier

2015-03-05 13:39

User since
2012-05-04
1054 Artikel
BenutzerIn

user image

Es ist aber auch extrem schwierig, die zu helfen, weil wir ja nicht wissen, was du genau machst. Zum Beispiel die Frage mit den 3 Rückgabeparametern: da gibt du ein Beispiel, das bei dir funktioniert und fragst, warum das nicht geht, wenn du es einbaust. Tja, wie sollen wir das wissen?! Außerdem: wenn du eine sub 2x aufrufst, sollte sie doch trotzdem funktionieren. Daher ist völlig unklar, warum das die Fehlerursache gewesen sein sollte.

Dann habe ich schon darauf hingewiesen, dass Funktionen normalerweise nicht mit & aufgerufen werden, aber in deiner Lösung machst du es schon wieder (hat allerdings nichts mit deinem Problem zu tun).

Dein Problem scheint ja eher ein JavaScript-Problem zu sein. Hast du schon mal in den Entwicklertools deines Browsers geschaut, ob da irgendeine Fehlermeldung kommt?
Last edited: 2015-03-05 13:41:22 +0100 (CET)

+4 replies

PERLScripter

2015-03-05 13:57

User since
2015-03-03
12 Artikel
BenutzerIn
[default_avatar]

Hallo Raubtier,

Danke für die Rückmeldung. Ich weiss dass es teilweise schwierig ist, den Leuten zu helfen, wenn sie nur Teile des Codes posten, aber da es ein geschäftliches Script ist, muss auch der Datenschutz gewährt sein. ;-)

Ich versuche es nochmal genauer zu erläutern :

Nach der Abfrage auf der DB verarbeite ich die zurückgegeben Zeilen einzeln mit einer foreach Schleife. Dies ist die gesamte Schleife, nur die DB Abfrage draüber fehlt wie gesagt :

Code: (dl )

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++;
    }
}

Den Aufruf der Sub "&TS_Konvertierung" überspringe ich in diesem Post,
er funktioniert ja mittlerweile einwandfrei.

Also übergibt er alle Parameter über das Array @HTML_Anzeige_Parameter an die Sub - Routine "&EPROM_Anzeige_Ergebnisse()". Im Moment sieht diese noch folgender maßen aus :

Code: (dl )

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>';

}

Ich ändere das noch in eine For - Schleife, damit ich Prints
löschen kann.

So funktioniert das Script einwandfrei. Mein Problem ist nun wie beschrieben, dass ich unter jedem Datensatz noch eine zusätzliche Tabelle darstellen möchte, die über einen Link ein - / ausklappbar ist.

Genau hier hänge ich gerade. Nach einigem Herumprobieren habe ich folgendes angepasst :

Code: (dl )

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>';

Die Krux ist, dass wenn ich auf den Link "Details" klicke, in der Meldung immer steht : "Nr. des DS : 1". Das print $_[0]; zeigt, dass der Wert beim 1. DS "0" und beim 2. DS "1" ist. Also ist die Übergabe richtig, nur der Aufruf klappt nicht.

Oder sehe ich das falsch ??

Vielen Dank im Voraus !

Viele GRüße
PERLSCripter
Last edited: 2015-03-05 14:38:00 +0100 (CET)

pq

2015-03-05 14:06
User since
2003-08-04
12208 Artikel
Admin1
benutze bitte ein here-doc, wie Raubtier vorschlug.
das hier kann kein mensch lesen.
du wirst dich wundern, wieviel lesbarer das wird.

zusätzlicher hinweis: je nach browser kannst du zum debuggen den befehl console.log('...') verwenden. dann einfach die developer-console öffnen.
alert ist auf dauer ja doch ein bisschen nervig.

edit:
als beispiel:
Code: (dl )

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
Last edited: 2015-03-05 14:09:11 +0100 (CET)
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
PERLScripter

2015-03-06 16:25

User since
2015-03-03
12 Artikel
BenutzerIn

KÖnnte mir vielleicht jemand darauf eine Antwort geben ?
Vielen Dank !
Linuxer

2015-03-06 17:04
User since
2006-01-27
3870 Artikel
HausmeisterIn
Hi, warum arbeitest Du eigentlich mit Variablen im Javascript? Kannst Du den Wert nicht direkt einbauen?

Z.B. so:
Code (perl): (dl )

1 2 3 4 5

print '<SCRIPT TYPE="text/javascript">'; print 'function Zeigen() {'; printf 'alert( "Nr. des DS : %s" );', $_[0]; print '}'; print '</SCRIPT>';
Aber prinzipiell erkenne ich derzeit nicht, warum da in der Ausgabe eine anderes Ergebnis rauskommen sollte als beim direkten "print $_[0]".
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

+2 replies
Linuxer

2015-03-05 13:53

User since
2006-01-27
3870 Artikel
HausmeisterIn

Wo siehst oder hast Du denn ein Problem?

Lediglich Dein Betreff hat was mit Ein-/Ausblenden von Tabellen zu tun.
Der Text und Code Deines Beitrags beschreibt nur, wie Du Daten holst und darstellen lässt.

Aber was genau Deine Frage ist, das beschreibst Du nicht. Oder übersehe ich da was?

Was has Du genau vor? Beschreibe genauer, was Du hast/willst und dann wird es sicher auch Antworten geben.
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- PERLScripter
  
  2015-03-05 13:58
  
  User since
  2015-03-03
  12 Artikel
  BenutzerIn
  
  Hi Linuxer,
  
  Danke. Siehe oben. Ich hoffe, dass es verständlich ist.
  
  Viele Grüße
  PERLScripter
  Last edited: 2015-03-05 14:35:46 +0100 (CET)

View all threads created 2015-03-03 13:43.