hallo,

ich möchte in TK ein fenster haben in dem ich commandos
eingebe und im gleichen fenster die antwort sehe.
bsp.
CMD dir -> ergibt die verzeichnisse
Telnet Login -> user name bzw password.

wie gesagt ich möchte alles in einem fenster haben.
das ganze soll ein kleines tool werden mit dem ich
per knopfdruck befehle sende und antwort auf dem
schirm beobachte kann.

habe noch nichts gefunden es sei denn man nimmt zwei
fenster.

danke schon mal
gruß rambo

Warum möchtest Du es in einem Fenster haben? Ev. möchtest Du ein Fenster mit der command.exe / cmd.exe öffnen?

du baust dir n textfeld und per Button löste ne sub aus die per $text->insert() das feld füllt ... solltest dir aber die insert() funktion genauer anschauen welche parameter du übergeben musst.
HTH

hi,
also ich baue mir gerade ein admin tool mit gui oberfläche,
in diesem tool sind zahlreiche buttons hinterlegt die mit eine
funktion verknüpft sind aber auch manuell durch eingaben
genutzt wird.
beispiel:
login oder oder halt andere befehle.
wenn man aber eine funktion abschickt wie
login userX dann kommt in der regel auch eine antwort zurück
bitte passwort eingeben. diese antwort gibt mir aber das system (server) zurück.
das heist ich möchte eigentlich schon so eine art cmd oder
command in perl einbetten.
eine schöne admin gui halt die einem das arbeiten erleichtert.
das grundgerüst gui mit button und funktionen habe ich aber
wie bekomme ich das was ich schicke und die antwort in
meiner gui angezeigt.
so wie telnet z.b.

ich glaube so was kann tk aber nicht in einem fester evtl.
muss ich in 2 machen was aber schade wäre.

merci
rambo

mir faellt da die Moeglichkeit ein, Tk::Text zu verwenden. Die letzte Zeile versiehst du mit einem Tag, damit sie sich optisch von den anderen abhebt, und setzt den Cursor dorthin und sagt scrollIntoView (oder wie das heisst). Wenn du jetzt ein Kommando ausfuehrst und z.B. auf einen Button namens ausfuehren klickst (oder vielleicht kann man auch die Returntaste dorthin binden), dann wird das command (ueber pipe-open?) ausgefuehrt, und der output wird oben in das Textfenster reingeschrieben (und vielleicht ans ende einen tag setzen, damit du die stelle, wo du neuen Output reinschreiben kannst, leichter wiederfindest...

jo genau :) ... wie gesacht ... schau dir die funktion insert() auch mal an. da kannst du / musst du mit genauen positionsangaben arbeiten.
Und dann kannste die Idee von Strat auch easy anwenden (wenn ich ihn richtig verstanden hab) ... holst dir das Ende von dem was du eingefügt hast, setzt den Cursor dorthin, wenn er da nicht sowieso schon ist, bindest die Returntaste oder nimmst nen button, dann kannst du ja alles auslesen was hinter der letzten Stelle steht.

habt ihr evtl. ein kleines beispiel für insert?
merci
rambo

mehr ist es eigentlich nicht. Das Einzige was man bei insert wissen muss, sind die Formen der Indizes. Meist reicht aber der Index end aus um etwas ans Ende anzuhaengen.

Gruss Christian.

edit: typo\n\n

<!--EDIT|coax|1077479352-->

[quote=Rambo,22.Feb..2004, 10:58]ich glaube so was kann tk aber nicht in einem fester evtl.
muss ich in 2 machen was aber schade wäre.[/quote]
Klar kann man das in Perl/Tk machen. ptksh (in der Standard-Distribution enthalten) kommt deinem Vorstellungen einer "Shell" recht nahe. Der Unterschied ist nur, dass hier Perl-Kommandos abgesetzt werden und keine Shell-Kommandos.

Aber dann bietet es sich an, im dortigen Code mal zu sehen, wie die Autoren das Problem lösen. Ich kenne die ptksh jetzt nicht, ich weiß nicht, ob es ein reines Perlmodul und ob es gut lesbar ist, aber Du kannst ja mal reinschauen.\n\n

<!--EDIT|Crian|1077533751-->