Thread Konsolen Ausgabe unterdrücken (18 answers)
Opened by LukeStriker at 2011-01-19 10:09

LukeStriker
 2011-01-25 09:11
#144980 #144980
User since
2010-04-21
69 Artikel
BenutzerIn
[default_avatar]
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)

View full thread Konsolen Ausgabe unterdrücken