Supportnet / Forum / Skripte(PHP,ASP,Perl...)
Fehler bei Datenübergabe von Perl-Modul an Perl-Programm.
Frage
Hallo,
ich dilletiere an einem Perl/TK-Programm, in das ein Modul (DDSELECT) eingebunden wird,
welches eine Variable ($DDPfad) exportiert. Den Inhalt dieser Variablen möchte ich
in eine Textvariable des ENTRY-widget verschieben, damit er in dessen Eingabefeld
angezeigt wird.
Der Inhalt von $DDPfad ist korrekt vorhanden (1. Testprint), das Kopieren von $DDPfad
nach $einpfad ist aber nicht möglich (2. Testprint), auch dann nicht, wenn ich den
Variablenpfad angebe ("$main::einpfad = $DDSELECT::DDPfad;").
Ich finde keine Erklärung für dieses Verhalten. Kann mir jemand einen Tip geben?
freundliche Grüße
bolzen
[code]
##################################################
:
use DDSELECT;
:
my $einpfad;
my $auspfad;
:
:
$getdirectory = $mw->Entry(-selectbackground => "white",
-text => $einpfad,
-textvariable => \$einpfad)->place(-x => 130,
-y => 31,
-height => 20,
-width => 250);
$mw->Button(-text => 'Suchen...',
-command => sub{$DDPfad = "";
$einpfad = &DDSelect($DDTitel);
$einpfad = $DDPfad;
$mw->waitVariable(\$DDPfad);
print "(ein1) = $DDPfad\n";
print "(ein2) = $einpfad\n";
\&exit;},
-background => 'light yellow',
:
:
##################################################
Ergebnisse der Print-Anweisungen:
(ein1) = D:/040324
(ein2) =
[/code]
Antwort 1 von Grinser
Dann setzt doch mal dein
print "(ein1) = $DDPfad\n"
vor die Zeile:
$mw->waitVariable(\$DDPfad);
Jetzt sind beide blank was:-)
Weist du was du da überhaupt treibst oder plügst du gerade im Sourcecode von anderen.
print "(ein1) = $DDPfad\n"
vor die Zeile:
$mw->waitVariable(\$DDPfad);
Jetzt sind beide blank was:-)
Weist du was du da überhaupt treibst oder plügst du gerade im Sourcecode von anderen.