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

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)