1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#!/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 ;
|
