perl截获某个应用程序的输入输出

perl截获某个应用程序的输入输出

小弟现在遇到一个问题,大家探讨一下!

    如何截获一个应用程序的输入输出呢?举个例子,比如SQLPLUS,我希望看起来并不是使用SQLPLUS,而是在使用我提供的一个工具.

    看起来是这样的:

              使用者:   输入SQL                                                               显示输出结果
         
         程序:                  获取输入  调用SQLPLUS执行   返回执行结果

    现在没有太好的思路,大家给出点主意吧!!!
写个代码包装一下这个程序啊。哈哈。如果只想要获得程序的输入输出数据,那就需要使用钩子。这和我原先想获取bash shell的输入输出一样,难啊。
Expect