Programm soll die eigene Ausgabe lesen (Allgemeines zu Perl)

[thread]5977[/thread]

Programm soll die eigene Ausgabe lesen

ronald

2003-12-19 11:07

User since
2003-08-15
76 Artikel
BenutzerIn
[default_avatar]

Irgendwo habe ich mal gelesen, dass ein Programm seine eigene Bildschirm-Ausgabe wieder einlesen kann.

Folgendes Problem:
Ich habe ein Modul, das etwas auf den Bildschirm schreibt.

in dem Testprogramm für das Modul steuere ich über einen Parameter (bzw. über eine Methode) dass die Ausgabe nicht auf den Bildschirm kommt sondern als Rückgabewert.
Aber je mehr das Modul wächst desto umständlicher wird es.
Mittlerweile sind so viele Tricks drin, dass ich das Orignalverhalten kaum noch testen kann.

Am saubersten wäre es, wenn das Modul seine Daten ganz normal auf den Bildschirm schreibt - und das Testprogramm sie von dort wieder einliest.

Irgendwo habe ich mal gelesen, wie das geht.
Aber weder im Cookbook noch im AdvancedPerlProgramming kann ich es finden. Entweder bin ich blind, müde oder es steht wo anders.

Wer kann helfen?

2003-12-19 12:12

User since
2003-08-04
12208 Artikel
Admin1

http://groups.google.de/groups?....num%3D8

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Relais

2003-12-19 12:21

User since
2003-08-06
2244 Artikel
ModeratorIn

Vorschlag:

Laß Dein Modul sämtliche Bildschirmausgaben über eine besondere Routine
durchführen. Zum Beispiel:

Code: (dl )

$self->quaek( @auszugebendes ); # so die Ausgaben

sub quaek {
    shift;
    print @_;
    # return @_;
}

# oder ohne OO:

quaek( @auszugebendes ); # so die Ausgaben

sub quaek {
    print @_;
    # return @_;
}

Nun brauchst Du nur noch die quaek-Routine zu ändern (oder bei OO könntest Du sie auch in einer abgeleiteten Klasse überschreiben).

Von der Ausgabe zu lesen ist so nicht nötig.

Erst denken, dann posten --
26. Deutscher Perl- u. Raku -Workshop 15. bis 17.04.2024 in Frankfurt/M.

Winter is Coming

2003-12-19 12:37

User since
2003-08-04
12208 Artikel
Admin1

da find ich das mit dem tie() aber eleganter... =)

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Crian

2003-12-19 13:00

User since
2003-08-04
5866 Artikel
ModeratorIn

Einlesen der Ausgabe?

Code: (dl )

programm1|programm2

Wenn Du die Ausgaben des eigenen Programms weiterverwenden willst, musst Du Dir die irgendwie merken (zusätzlich in einen Array schreiben beim Ausgeben?).\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

ronald

2003-12-19 14:55

User since
2003-08-15
76 Artikel
BenutzerIn
[default_avatar]

Hat sich erledigt.
Es war doch im Cookbook:

Code: (dl )

Filtering Your Own Output
Problem
You want to postprocess your program's output without writing a separate program to do so.

Solution
Use the forking form of open to attach a filter to yourself. For example, this will restrict your program to a hundred lines of output:

head(100);
while (<>) {
    print;
} 

sub head {
    my $lines = shift || 20;
    return if $pid = open(STDOUT, "|-");
    die "cannot fork: $!" unless defined $pid;
    while (<STDIN>) {
        print;
        last unless --$lines;
    } 
    exit;
}

Das ist für mein Testprogramm aber nicht brauchbar, weil der geforkte Prozess die ganze Rückgabe nimmt.

Ich habe mich dann doch für den Ansatz von @Relais entschieden (der funktioniert und ist handhabbar).
Vielen Dank an dieser Stelle.

Ronald

View all threads created 2003-12-19 11:07.