Probleme bei Übergabe leerer Variablen (Graphische Oberflächen)

[thread]20358[/thread]

Probleme bei Übergabe leerer Variablen

Tags: perl5 GUI Tk Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+4 replies

YAPD

2017-08-16 19:21

User since
2015-09-20
146 Artikel
BenutzerIn

user image

Hallo Leute,

leider brauche ich mal wieder Eure Unterstützung. :)
Wahrscheinlich bin ich blind und sehe das Problem,
bzw. die Stelle, an der hängt, einfach nicht :-|

Nun zum Problem :

Ich habe ein TK Fenster, das eine MListbox enthält.
In dieser sind natürlich Zeilen enthalten, die ich
über ein Popup Menu ( rechte Maustaste ) oder über
einen Button löschen kann.

Mein Problem ist der Button :

Eingebunden ist dies so :

Bei Mausklick auf die Zeile wird diese ausgewählt & das Ergebnis, also der Inhalt zurückgegeben :

Code: (dl )

$Auflistung_Benutzer_Inhalte -> bindRows( "<Button-1>" , sub { @Rueckgabe_Auflistung_Benutzer_Selektierung = &Auflistung_Benutzer_Selektierung } );

Die Auswahl der Zeile geschieht in der Sub Auflistung_Benutzer_Selektierung so :

Code: (dl )

sub Auflistung_Benutzer_Selektierung {

	my ( $ML_Struktur , $ML_Eintraege ) = @_;
 
	my @Auflistung_Benutzer_Selektierung = $ML_Struktur -> curselection;
	
	foreach( @Auflistung_Benutzer_Selektierung )
	{
		my @Auflistung_Benutzer_Selektierung_Details = $ML_Struktur -> getRow( $ML_Eintraege -> { -row } );
		return( @Auflistung_Benutzer_Selektierung_Details );
	}

}

Das Rückgabeergebnis wird dann verwendet, um die Daten für die Entfernung des Datensatzes
zu übergeben :

Code: (dl )

$Fenster_Benutzer_Verwaltung -> Button( -command => sub{ &Fenster_Entfernung_Benutzer( $Fenster_Benutzer_Verwaltung , @Rueckgabe_Auflistung_Benutzer_Selektierung ) } ,

Die Sub - Routine für die Entfernung des DS sieht so aus ( ohne MySQL ) :

Code: (dl )

sub Fenster_Entfernung_Benutzer {
	
	my ( $Fenster_Benutzer_Verwaltung ,  @DB_Eintraege_Entfernung ) = @_;																																																	# Ermittlung des Haupt - Fensters & der DB - Einträge
	
	# Selektierung freier Bereiche der Benutzer - Oberfläche
	
	if ( not @DB_Eintraege_Entfernung )
	{
		print "Fehler bei der Erkennung des Eintrages" , "\n";																																																				
		print "Fehler - Nr. : 2101"   , "\n";																																																								
		my $Fehler_Verarbeitung_Nummer = "2101";																																																																																																											
		# &Fehler_Verarbeitung( $Fehler_Verarbeitung_Nummer );																																																				
	}
	
	# Selektierung eines Eintrags der Benutzer - Oberfläche

	if ( @DB_Eintraege_Entfernung )
	{	
		my $DB_Entfernung_Benutzer_Fenster = $Fenster_Benutzer_Verwaltung -> Toplevel( -title => 'Entfernung des Benutzers' );																																				# Initialisierung des Fensters für die Benutzer - Entfernung
	
		my $Breite = 235;																																																													# Breite des Fensters
		my $Hoehe  = 245;																																																													# Höhe des Fensters
	
		$DB_Entfernung_Benutzer_Fenster -> geometry( $Breite . 'x' . $Hoehe );
		
		# Darstellung der Labels
		
	    $DB_Entfernung_Benutzer_Fenster -> Label( -text => "Label  fuer  die  Entfernung des" , -height => 1 , -width => 26 , -font => 'Times 10' , -relief => 'groove' , -border => 0 , -borderwidth => 0 , -anchor => "w" ) -> place( -x => 26 , -y => 28 );
	    $DB_Entfernung_Benutzer_Fenster -> Label( -text => "Benutzer - Eintrages  : "         , -height => 1 , -width => 26 , -font => 'Times 10' , -relief => 'groove' , -border => 0 , -borderwidth => 0 , -anchor => "w" ) -> place( -x => 26 , -y => 46 );
	    
	    $DB_Entfernung_Benutzer_Fenster -> Label( -text => "$DB_Eintraege_Entfernung[ 1 ]" , -height => 1 , -width => 29 , -background => "white" , -relief => 'groove' , -anchor => "n" ) -> place( -x => 25 , -y => 82 );
	    $DB_Entfernung_Benutzer_Fenster -> Label( -text => "$DB_Eintraege_Entfernung[ 2 ]" , -height => 1 , -width => 29 , -background => "white" , -relief => 'groove' , -anchor => "n" ) -> place( -x => 25 , -y => 104 );
	    $DB_Entfernung_Benutzer_Fenster -> Label( -text => "$DB_Eintraege_Entfernung[ 3 ]" , -height => 1 , -width => 29 , -background => "white" , -relief => 'groove' , -anchor => "n" ) -> place( -x => 25 , -y => 126 );
	    $DB_Entfernung_Benutzer_Fenster -> Label( -text => "$DB_Eintraege_Entfernung[ 5 ]" , -height => 1 , -width => 29 , -background => "white" , -relief => 'groove' , -anchor => "n" ) -> place( -x => 25 , -y => 148 );
	    $DB_Entfernung_Benutzer_Fenster -> Label( -text => "$DB_Eintraege_Entfernung[ 6 ]" , -height => 1 , -width => 29 , -background => "white" , -relief => 'groove' , -anchor => "n" ) -> place( -x => 25 , -y => 170 );
			
	    $DB_Entfernung_Benutzer_Fenster -> Button( -text => 'OK'   , -width => 13 , -command => sub { &DB_Benutzer_Entfernung( $DB_Entfernung_Benutzer_Fenster ,  @DB_Eintraege_Entfernung ) } ) -> place( -x => 25  , -y => 205 );										
	    $DB_Entfernung_Benutzer_Fenster -> Button( -text => 'Ende' , -width => 13 , -command => [ $DB_Entfernung_Benutzer_Fenster => 'destroy' ] ) -> place( -x => 116 , -y => 205 );
       
	    $DB_Entfernung_Benutzer_Fenster -> MainLoop( );
	}
}

Soweit so gut. Das funktioniert auch alles wunderbar, so lange ich mindestens 1 Datensatz in der MListbox habe.

SOBALD diese leer ist, also in der Datenbank kein Eintrag vorhanden ist, funktioniert die Auslösung des Fehler - Codes
2101 im Code nicht mehr, sondern er öffnet das Fenster ohne Einträge für die Löschung. In der Kommandozeile steht dann
logischerweise :

Code: (dl )

Use of uninitialized value $h in addition (+) at D:/Strawberry/perl/site/lib/Tk/MListBox.pm line 679.
Use of uninitialized value $y in addition (+) at D:/Strawberry/perl/site/lib/Tk/MListBox.pm line 679.
Use of uninitialized value $DB_Eintraege_Entfernung[1] in string at E:\Programmierung\Administrators\Tray.pl line 1163.
Use of uninitialized value $DB_Eintraege_Entfernung[2] in string at E:\Programmierung\Administrators\Tray.pl line 1164.
Use of uninitialized value $DB_Eintraege_Entfernung[3] in string at E:\Programmierung\Administrators\Tray.pl line 1165.
Use of uninitialized value $DB_Eintraege_Entfernung[5] in string at E:\Programmierung\Administrators\Tray.pl line 1166.
Use of uninitialized value $DB_Eintraege_Entfernung[6] in string at E:\Programmierung\Administrators\Tray.pl line 1167.

Wie verhindere ich, dass diese Werte über übergeben werden. Und worauf zum Teufel verweist der Fehler mit $x &y ? XD

Ich hoffe, ich habe Euch mein Problem verständlich gemacht &
ihr habt einen Tipp für mich.

Viele Grüße
YAPD

Yet Another Perl Developer

YAPD

2017-08-16 19:37

User since
2015-09-20
146 Artikel
BenutzerIn

user image

Ich habe auch schon mal probiert, mir das Ergebnis bei
der Ausgabe anzeigen zu lassen :

Code: (dl )

@Rueckgabe_Auflistung_Benutzer_Selektierung = &Auflistung_Benutzer_Selektierung;
print "Ergebnis Rueckgabe : @Rueckgabe_Auflistung_Benutzer_Selektierung" , "\n";
[code]

Mein Problem ist, dass wenn ich auf einen freien Bereich in der MListbox klicke,
das Ergebnis, also das Array leer ist. Sowohl wenn ein Eintrag vorhanden ist, 
als auch wenn die MListbox leer ist. Ist ein Eintrag vorhanden, löst er den
Fehler - Code aus. Ist sie leer, kommt der o.g. Fehler ????

Ich sehe gerade den Unterschied nicht. :-|

Viele Grüße
YAPD

Yet Another Perl Developer

rosti

2017-08-17 07:18

User since
2011-03-19
3194 Artikel
BenutzerIn

Der Sinn eines bedingungslosen return in einer Schleife erschließt sich mir nicht. Faktisch führt das dazu das die Schleife nur einmal durchläuft bis zum return. Und das macht eine Schleife überflüssig.

Ansonsten prüfe ob Deine Variablen initialisiert sind. Wenn sie das nicht sind, überlege was Dein Programm in solchen Fällen machen soll.

MfG
Gast Christoph

2017-08-22 17:15
Code: (dl )

$lb->curselection
gibt undef, oder ein Arrayref zurück.
Last edited: 2017-08-22 17:18:34 +0200 (CEST)

View all threads created 2017-08-16 19:21.