sub DB_Rueckgabe_PS { print "Inhalte fuer die Auswertung : " , "\n"; print "\n"; for ( my $i = 0; $i < @DB_Rueckgabe_Parameter ; $i++ ) { print "$DB_Rueckgabe_Parameter[$i]" , "\n"; } # ----------------------------------------------------------------------------------------------- # # Testumgebung - Neue Features $Anzahl_TS = @DB_Rueckgabe_TS; $DB_Rueckgabe_TS[$Anzahl_TS] = "TRENNER_TS"; $Anzahl_Parameter = @DB_Rueckgabe_Parameter; $DB_Rueckgabe_Parameter[$Anzahl_Parameter] = "TRENNER_WERTE"; # ----------------------------------------------------------------------------------------------- # system( "$Uebergebene_PS.pl" , $Schalter_DB_Rueckgabe , $Uebergebene_PS , $Uebergebene_SSTs , $Uebergebene_MTs , @DB_Rueckgabe_TS , @DB_Rueckgabe_Parameter ); }