[Perl] capture program output

[SNo0py]

Hi Leute,

ich will den CD-Brenn-Vorgang unter GNU/Linux ein wenig mittels Perl automatisieren, d.h so eine Art "Wizard" für die Shell bauen.

mkisofs gibt auf der Konsole den aktuellen Status aus, bestehend aus den % finished und der vorraussichtlichen Dauer. Jeweils eine Zeile.

Jetzt will ich aber nicht den ganzen Screen auffüllen sondern immer nur die letzte Zeile am Schirm darstellen - wie geht das mit Perl?

Danke!

[ruprecht69]

Stderr/Stdout redirecten

while (Zeilenweise einlesen)
{
Parsen
Eigenen Output ausgeben
}

fürn Terminal Steuerung auf CPAN suchen, evtl. Termcap etc.

[SNo0py]

Und wohin redirecten? Wie sieht das genaue Codefragment aus?

[helios]

den output von einem programm kannst du unter anderem so capturen:

my @output;
my $zeile;

@output = `ps -ef`;

foreach $zeile (@output)
{
  print $zeile;
}

[SNo0py]

Ja, aber so bekomme ich den ganzen Output, das ist schon klar.

Ich will das parallel zum Perl-Script cdrecord läuft und die Ausgabe ständig einzeilig aktualisiert wird, d.h. sobald cdrecord eine Zeile auf STDOUT ausgibt, will ich die in meinem Perl-Script einlesen können.

[helios]

ja hab auch grad mitbekommen, dass du das anders meinst.
aber mit open müssts gehen, da kriegst du synchron zeilenweise den output des aufgerufenen programms:

open (OUTPUT, "tail -f test.txt|") || die "can't fork: $!";
while (<OUTPUT>)
{
  print;
}