PNG  IHDR;IDATxܻn0K )(pA 7LeG{ §㻢|ذaÆ 6lذaÆ 6lذaÆ 6lom$^yذag5bÆ 6lذaÆ 6lذa{ 6lذaÆ `}HFkm,mӪôô! x|'ܢ˟;E:9&ᶒ}{v]n&6 h_tڠ͵-ҫZ;Z$.Pkž)!o>}leQfJTu іچ\X=8Rن4`Vwl>nG^is"ms$ui?wbs[m6K4O.4%/bC%t Mז -lG6mrz2s%9s@-k9=)kB5\+͂Zsٲ Rn~GRC wIcIn7jJhۛNCS|j08yiHKֶۛkɈ+;SzL/F*\Ԕ#"5m2[S=gnaPeғL lذaÆ 6l^ḵaÆ 6lذaÆ 6lذa; _ذaÆ 6lذaÆ 6lذaÆ RIENDB` #!/usr/bin/perl -w ## Demonstration of chatting with a bash shell. use strict ; use IPC::Run qw( start pump finish timeout ) ; $IPC::Run::debug = 10 ; my ( $in, $out ) ; die "usage: runsu " unless @ARGV ; my $user = @ARGV > 1 ? shift : $ENV{USER} || $ENV{USERNAME} ; my $passwd = shift ; my $h = start( [qw(su - ), $user], 'pty>', \$out, timeout( 5 ), ) ; pump $h until $out =~ /^password/im ; $in = "$passwd\n" ; ## Assume atomic prompt writes ## and that a non-word is the last char in the prompt. $out = '' ; pump $h until $out =~ /([^\r\n\w]\s*)(?!\n)$/ ; my $prompt = $1 ; print "Detected prompt string = '$prompt'\n" ; $prompt = quotemeta $prompt ; for ( qw( ls ps fOoBaR pwd ) ) { $in = $_ . "\n" ; $out = '' ; $h->timeout( 5 ) ; # restart the timout pump $h until $out =~ s/\A((?s:.*))(?=^.*?$prompt(?!\n)\Z)//m ; print map { "su: $_\n" } split( /\n/m, $1 ) ; } $in = "exit\n" ; finish $h ;