怎樣包裹一個(gè) shell 程序

s5unty

假設(shè)一段 shell 腳本如下：

#! /bin/sh -e #. /usr/share/debconf/confmodule /usr/bin/bc

執(zhí)行該腳本后，進(jìn)程并不立即退出，而是轉(zhuǎn)移到 bc 中繼續(xù)執(zhí)行，直到 bc 程序退出。

現(xiàn)在我想在 Perl 腳本中實(shí)現(xiàn)類似的包裹程序，發(fā)現(xiàn)簡(jiǎn)單的使用 ` 并不能滿足要求。

有請(qǐng)高手指點(diǎn)！��！

tmp

#!/usr/bin/perl


open PIPE, "|bc" or die "$!\n";
my $ret;
while (<>) {
  print PIPE $_;
  $ret=<PIPE>;
  print "$ret\n";
  
}

s5unty

才知道 perl 有 Debian:ebConf::Client::ConfModule 。

Lonki

控制復(fù)雜交互的話, 用Expect吧

s5unty

Expect ，有空要見識(shí)一下

Lonki

我指的是perl的Expect :>
perldoc Expect

它是從Tcl Expect移植過來的,
只要是人手工敲鍵盤完成的命令流, 基本上都能完成, 特別適用于自動(dòng)化/測(cè)試.