各位兄弟们帮忙了!perl如何实现命令交互问题

shwglm

UID: 7662
帖子: 149
积分: 342
在线时间: 1 天 6 小时

1^# shwglm 发表于 2006-05-09 17:29

各位兄弟们帮忙了!perl如何实现命令交互问题

open (list,"|tacmd login -s http://localhost");
print list sysadmin."\n";
close(list);
此命令为IBM tivoli应用程序命令，在执行命令后提示输入：用户名
当输入完用户名后又提示输入：密码
上述程序只能将用户名作为命令输入，请各位兄弟帮忙如何使程序自动将密码也作为命令输入。

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

2^# apile 发表于 2006-05-09 18:08

用expect吧...

very_99

UID: 1568
帖子: 12
积分: 27
在线时间: 10 分钟

3^# very_99 发表于 2006-05-09 22:05

有个 io::file的模块

不过交互式的用expect太方面了

jingqs

UID: 41447
帖子: 72
积分: 165
在线时间: 7 小时

4^# jingqs 发表于 2008-02-21 14:25

expect 没有windows版的啊，请问有没有其他方法

addf

UID: 20776
帖子: 1
积分: 2
在线时间: 10 分钟

5^# addf 发表于 2008-02-21 15:53

装个cygwin用expect

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

6^# apile 发表于 2008-02-22 09:14

Net::Telnet 也可以....只是比较麻烦......