Help for this page

Select Code to Download


  1. or download this
    my $pty = new IO::Pty;
my $read = $pty->slave;
my ($write,$err);
$ppid = open3($write, $read,$err, "$bin_dir/$bin $args $pidfile");
print "=>" .  $_ while(<$read>);
  2. or download this
    my $pty = new IO::Pty;
local *READ = $pty->slave;
my ($write,$err);
$ppid = open3($write, ">&READ",$err, "$bin_dir/$bin $args $pidfile");
print "=>" .  $_ while(<READ>);