Re^5: Capture::Tiny alternative

Could you please provide an example code how can I run external program using pty and read its stdout in real time ? Also I need to know if programm exit successfully , is it possible with pty ?

Sorry, I have read IO::Pty docs and it is not very clear what should I do.

Comment on Re^5: Capture::Tiny alternative

Replies are listed 'Best First'.
Re^6: Capture::Tiny alternative by Anonymous Monk on Mar 25, 2017 at 21:21 UTC
Okay, here's an example of IO::Pty usage. I do not know if there are any modules out there to support such functionality. `sub pty_spawn { my $pty = new IO::Pty; $pty->set_raw(); # stty -opost -echo! my $pid = fork // die; unless ($pid) { $pty->make_slave_controlling_terminal(); # $pty->slave->clone_winsize_from(\*STDIN); close STDIN; close STDOUT; open STDIN, "+>&", $pty->slave; open STDOUT, "+>&", $pty->slave; exit !exec @_; } close $pty->slave; return $pty; }` [download] Calling `pty_spawn(@cmd)` leaves you with the $pty handle (the master side), that you can read and write. You'll need an event loop if you plan to do both. But if you only read, it should be easy. And you've got the $pid to wait on as usual (for exit status).	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^6: Capture::Tiny alternative
by Anonymous Monk on Mar 25, 2017 at 21:21 UTC

Okay, here's an example of IO::Pty usage. I do not know if there are any modules out there to support such functionality.

sub pty_spawn {
    my $pty = new IO::Pty;
    $pty->set_raw();    # stty -opost -echo!

    my $pid = fork // die;

    unless ($pid) {
        $pty->make_slave_controlling_terminal();
        # $pty->slave->clone_winsize_from(\*STDIN);
        close STDIN;
        close STDOUT;
        open STDIN, "+>&", $pty->slave;
        open STDOUT, "+>&", $pty->slave;

        exit !exec @_;
    }

    close $pty->slave;
    return $pty;
}
[download]

Calling pty_spawn(@cmd) leaves you with the $pty handle (the master side), that you can read and write. You'll need an event loop if you plan to do both. But if you only read, it should be easy. And you've got the $pid to wait on as usual (for exit status).

[reply]
[d/l]
[select]