My naive test case using 'tie' still suffers some racelike issues, causing missing and (after about 10s) duplicate outputs. Should I be tieing a handle directly instead of opening a handle on a variable and tieing that?

Edit: Answer: yes (working code below) 

#!/usr/bin/env perl
use v5.36;
=comment

vbox - root
    scrollbox 
        vbox 
           static
           static
           ...
    entry

=cut
use Tie::Simple;
use Tickit::Async;
use Tickit::Widgets qw(ScrollBox Static VBox Entry);
#use Tickit::Widget::Entry::Plugin::History;
use Tickit::Widget::Entry::Plugin::Completion;
use IO::Async::Loop;
use IO::Async::Timer::Periodic;
use IO::Async::Timer::Countdown;
use IO::Async::Loop::Select;
STDOUT->autoflush;

my $loop = IO::Async::Loop->new;

my $root =         Tickit::Widget::VBox->new; 
my $vbox =         Tickit::Widget::VBox->new; # contains multiple item
+s to scroll through
my $scrollbox = Tickit::Widget::ScrollBox->new->set_child( $vbox );
for (1..100){
my $a = 100 - $_;
$vbox->add( Tickit::Widget::Static->new( text   => "a hundred bottles 
+minus $_ is $a \n" ))
}

my $tickit = Tickit::Async->new( root => $root);
my $term = $tickit->term;
my $lines = $term->lines;

 
$root->add($scrollbox, force_size => $lines - 1); # , expand => 1);
my $entry =     Tickit::Widget::Entry->new( 
    text      => "enter command > ",
    on_enter => sub {
          my ( $self, $line ) = @_;
        print_to_terminal($line);
        $scrollbox->scroll_to(1e5);
        $line =~ s/^.+?>\s*//;
        $self->set_text('');
        my $prompt = 'enter command > ';
        $self->set_text($prompt);
        $self->set_position(99);
    }
    );
my $prompt = 'enter command > ';
$entry->set_text($prompt);
$entry->set_position(99);
$root->add($entry);
my $i;
redirect_stdout();
timer(0.5,0.5, sub{ ++$i; say(join'',$i,'-','X'x40)});

$tickit->run;

sub prompt {
    my $prompt = 'enter command > ';
    $entry->set_text($prompt);
    $entry->set_position(99);
}
our ($command_output, $output_fh, $old_output_fh);
sub redirect_stdout {
    open(FH, '>', '/dev/null') or die; 
    FH->autoflush;
    $old_output_fh = select FH;
       tie *FH, 'Tie::Simple', '', 
             WRITE     => sub {  },
            PRINT         => sub { my $text = $_[1]; print_to_terminal
+($text) };
             PRINTF    => sub {  },
             READ      => sub {  },
             READLINE  => sub {  },
             GETC      => sub {  },
             CLOSE     => sub {  };
            
}
sub restore_stdout {
    select $old_output_fh;
    close $output_fh;
}
sub print_to_terminal ($txt) {
    $vbox->add( Tickit::Widget::Static->new( text => $txt ));
    $scrollbox->scroll_to(1e5);
}
sub timer ($delay, $interval, $coderef ) {
    my $timer;
    if ($interval == 0){
        $timer = IO::Async::Timer::Countdown->new(
            delay => $delay,
            on_expire => $coderef, 
        );
    }
    else {
        $timer = IO::Async::Timer::Periodic->new(
            interval => $interval,
            on_tick => $coderef,
        );
    }
    $timer->start;
    $loop->add($timer);
    $timer
}

[download]

In reply to Re^2: Race when redirecting output. by gnosti
in thread Race when redirecting output. by gnosti

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.