Konsole in Perl-Programm anzeigen? (Graphische Oberflächen)

pktm

2007-11-07 13:55

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Wie könnte man das machen, dass die Ausgaben eines Programmes, welches gestartet wird, in dem Programm selbst angezeigt werden?
Manchmal habe ich das Problem, dass ich keine Konsole habe (z.B. wenn ich das Programm mit WinPerl starte), aber gerne eventuelle Ausgaben sehen würde, die das Programm macht.
Ideen?
Mein Programm ist in Perl/Tk geschrieben.

Grüße, pktm

http://www.intergastro-service.de (mein erstes CMS :) )

renee

2007-11-07 13:58

User since
2003-08-04
14371 Artikel
ModeratorIn

Soll das "interaktiv" sein? Oder einfach nur die Ausgabe anzeigen?

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit;

my $output = qx{perl programm.pl};
my $text = $mw->Text->pack;
$text->insert( 'end', $output );

MainLoop;

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

pktm

2007-11-07 14:03

User since
2003-08-07
2921 Artikel
BenutzerIn

Es soll nur die Ausgabe anzeigen, also wenn auf einen Button gedrpckt wird und etwas kommt möchte ich das sehen. Allerdings will ich das in dem selben Programm, welches die Ausgaben erzeugt. Geht sowas? Seinen eigenen STDOUT & STDERR verfolgen? Mit Tk?

http://www.intergastro-service.de (mein erstes CMS :) )

renee

2007-11-07 14:21

User since
2003-08-04
14371 Artikel
ModeratorIn

Musst Du genauer erläutern...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

pktm

2007-11-07 14:32

User since
2003-08-07
2921 Artikel
BenutzerIn

Am besten ist wohl anhand eines Beispielprogrammes erläutert:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit();

$mw->Button(
	-text => 'Drück mich!',
	-command => sub{
		print "ausgabe\n";
		warn "warnung\n";
	},
)->pack();

$mw->MainLoop();

Immer, wenn da der Button gedrückt wird erscheint in der Konsole, meinem STDOUT die Ausgabe. Die Konsole sehe ich aber nicht immer, ich will die Ausgabe aber trotzdem sehen. Also dachte ich mit, wäre es doch vielleicht möglich, in meine grafische Oberfläche noch ein Textfeld einzubauen, in welchem alle Ausgaben (des Programmes, das gerade läuft) angezeigt werden.

http://www.intergastro-service.de (mein erstes CMS :) )

murphy

2007-11-07 14:43

User since
2004-07-19
1776 Artikel
HausmeisterIn

Es sollte möglich sein, eine Subklasse von IO::Handle zu erstellen, die die Ausgaben in irgendeinen Widget schreibt, davon eine Instanz zu erzeugen und diese mittels select als Standardausgabeziel auszuwählen.

When C++ is your hammer, every problem looks like your thumb.

Spieler

2007-11-07 16:17

User since
2007-09-24
70 Artikel
BenutzerIn
[default_avatar]

Hallo,
falls du so etwas meinst:
aus perldoc Tk::Text :

Code: (dl )

 use Tk;
 use strict;

 my $mw = MainWindow->new;
 my $text = $mw->Text(qw/-width 40 -height 10/)->pack;

 tie *STDOUT, ref $text, $text;

 print "Hello Text World!\n";

 MainLoop;

murphy

2007-11-07 17:51

User since
2004-07-19
1776 Artikel
HausmeisterIn

@Spieler: Das ist ja nett -- ich wusste gar nicht, dass diese Möglichkeit beim Tk-Textwidget schon eingebaut ist, ich verwende so selten Tk.

When C++ is your hammer, every problem looks like your thumb.

pktm

2007-11-07 20:03

User since
2003-08-07
2921 Artikel
BenutzerIn

Spieler+2007-11-07 15:17:23--
Hallo,
falls du so etwas meinst:
aus perldoc Tk::Text :
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
 use Tk;
 use strict;

 my $mw = MainWindow->new;
 my $text = $mw->Text(qw/-width 40 -height 10/)->pack;

 tie *STDOUT, ref $text, $text;

 print "Hello Text World!\n";

 MainLoop;

Cool! Genau sowas habe ich gesucht!

http://www.intergastro-service.de (mein erstes CMS :) )

ptk

2007-11-07 21:47

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Zu Diagnosezwecken benutze ich gerne CPAN:

Tk::Stderr, mit dem ein Text-Widget automatisch gezeugt wird, sobald eine Ausgabe auf STDERR erfolgt.