Thread Konsolen Ausgabe unterdrücken
(18 answers)
Opened by LukeStriker at 2011-01-19 10:09
Natürlich arbeite ich mit use strict hab $xyz ne Zeile weiter oben deklariert.
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 # altes Fehlerhandle sichern open my $failhandle, ">&STDERR"; # Fehlermeldungen unterdrücken open(STDERR, '>', 'NUL') or die $!; my $res=system("psexec \\\\$fcserver -u $loginname -p $passwordcopytoserver -f -c getevents.exe $fceinDate"); # STDERR wieder zurücksetzen, Fehlermeldung aktivieren open STDERR, '>&', $failhandle; if ($res!=0) {die "Es ist ein Fehler aufgetretten beim ausfuehren von getevents.exe auf $fcserver:\n1.NET-Framework auf $fcserver?\n2.richtiger Servername/Login/Passwort?($fcserver $loginname)\n3.Verbindung zum Server?\n";} funktioniert, danke ;) Hier noch das Problem mit dem TK Modul. Was fett ist wird automatisch ausgegeben Tk::Error: Es ist ein Fehler aufgetretten beim ausfuehren von getevents.exe auf test_server: 1.NET-Framework auf test_server? 2.richtiger Servername/Login/Passwort?(test_server Mytestuser) 3.Verbindung zum Server? Tk callback for .toplevel.button2 Tk::__ANON__ at C:/Perl/site/lib/Tk.pm line 250 Tk::Button::butUp at C:/Perl/site/lib/Tk/Button.pm line 175 <ButtonRelease-1> (command bound to event) Weiß jemand wie ich das TK callback etc rausbekomme? Wäre nur noch eine Schönheitskorrektur aber mich würds interessieren. Der "Fehler" liegt im TK-Modul wenn ich das richtig sehe? Falscher Aufruf, Rückgabewert durch das die? Last edited: 2011-01-25 09:32:31 +0100 (CET) |