libipc-run-perl 0.92-1 / usr / share / doc / libipc-run-perl / examples / runsh

#!/usr/bin/perl -w

## Demonstration of chatting with a bash shell.

use strict ;

use IPC::Run qw( start pump finish timeout ) ;

my ( $in, $out, $err ) ;

my $h = start(
   [qw(sh -login -i )], \$in, \$out, \$err,
      debug => 0,
      timeout( 5 ),
) ;

## The first thing we do is to convert the user's prompt.  Normally, we would
## do a '' as the first command in the for () loop so we could detect errors
## that bash might emit on startup.  In this case, we need to do this
## initialization first so that we have a prompt to look for so we know that
## it's ready to accept input.  This is all because the startup scripts
## that bash runs set PS1, and we can't have that.
$in = "PS1='<PROMPT> '\n" ;

## bash prompts on stderr.  Consume everything before the first
## <PROMPT> (which is the second prompt bash issues).
pump $h until $err =~ s/.*(?=^<PROMPT> (?!\n)\Z)//ms ;

for ( qw( ls ps fOoBaR pwd ) ) {
   $in = $_ . "\n" ;
   $out = '' ;
   pump $h until $err =~ s/\A(<PROMPT> .*)(?=^<PROMPT> (?!\n)\Z)//ms ;
   print map { "sh err: $_\n" } split( /\n/m, $1 ) ;
   print map { "sh: $_\n" } split( /\n/m, $out ) ;
}

finish $h ;