请问在Perl中如何嵌套执行系统命令？

dbetter

Solaris系统下有一eaw程序，进入后可执行APLOC这个命令，在Perl中这样写

1. 
   
2. #!/usr/bin/perl
   
3. system('eaw');
   
4. system('APLOC');
   

复制代码

执行时是进了eaw这个界面没错，可是后面的一句命令APLOC没有送进来，而是等我从eaw程序退出后再执行，怎么样才能把它送进eaw这个程序？（系统上不让装expect，因此有没有别的办法？）

[ 本帖最后由 dbetter 于 2006-9-14 16:20 编辑 ]

dbetter

perl调用外部命令默认只会在上一条命令执行完毕后才会执行下一条，而且是独立执行的，不会把第二条命令做为第一条命令的输入，怎么办？(不使用Expect)

[ 本帖最后由 dbetter 于 2006-9-14 16:29 编辑 ]

aaronvox

进界面这种没有啥办法吧
Net::Telnet

等高手出现中...

flw

1. system( "APLOC | eaw" );

复制代码

shucho

# 看看pipe可以么
open EAW, "|eaw";
print EAW "APLOC¥n";

shucho

sorry, 日文键盘，应该是:

# 看看pipe可以么
open EAW, "|eaw";
print EAW "APLOC\n";

饭饭

加个 & 放在后台列 ??

随便说说的 . 呵呵

xiaoquqi

还是用net::telnet吧 比较容易实现
$telnet_hd->cmd(eaw);
$telnet_hd->waitfor(PROPMT);
$telnet_hd->print(APLOC);