sub PS_Analyse { my $i = 0; print "------------------------------------------------------------------------" , "\n"; splice( @ARGV , 0 , 4 ); $i = 0; foreach $DB_Parameter_Zaehler ( @ARGV ) { my $Anzahl = 1; my $x = 0; for ( $x = 0; $x < $Anzahl; $x++ ) { if ( defined( $DB_Parameter_Zaehler ) and $DB_Rueckgabe_MTs == '1' ) { $Uebergabe_Parameter_Analyse = $ARGV[$i]; &Auswahl_Requests($Uebergabe_Parameter_Analyse); } if ( defined( $DB_Parameter_Zaehler ) and $DB_Rueckgabe_MTs == '2' ) { $Uebergabe_Parameter_Analyse = $ARGV[$i]; &Auswahl_Replys($Uebergabe_Parameter_Analyse); } } $i++; } }