揭开Expect的神秘面纱

• 
  一个有趣的事情是该脚本没有使用spawn命令。 该expect脚本会与任何调用该脚本的进程交互。
  
  如果该脚本名为prompt，那么它可以用在任何C风格的shell中。
  
  
  % set a='prompt "Enter an answer" silence 10'
  Enter an answer: test
  
  % echo Answer was "$a"
  Answer was test
  prompt设定的超时为10秒。如果超时或者用户仅仅输入了回车符号，echo命令将输出
  
  Answer was "silence"
  
  一个更复杂的例子
  
  下面我们将讨论一个更加复杂的expect脚本例子，这个脚本使用了一些更复杂的控制结构和很多复杂的交互过程。这个例子用来实现发送write命令给任意的用户，发送的消息来自于一个文件或者来自于键盘输入。
  
  #!/usr/bin/expect
  # Write to multiple users from a prepared file
  # or a message input interactively
  
  if {$argc<2} {
  send_user "usage: $argv0 file user1 user2 ... "
  exit
  }
  send_user命令用来显示使用帮助信息到父进程(一般为用户的shell)的标准输出。
  
  set nofile 0
  # get filename via the Tcl lindex function
  set file [lindex $argv 0]
  if {$file=="i"} {
  
  set nofile 1
  } else {
  # make sure message file exists
  if {[file isfile $file]!=1} {
  send_user "$argv0: file $file not found. "
  exit }}
  
  这部分实现处理脚本启动参数，其必须是一个储存要发送的消息的文件名或表示使用交互输入得到发送消的内容的"i"命令。
  
  变量file被设置为脚本的第一个参数的值，是通过一个Tcl函数lindex来实现的，该函数从列表/数组得到一个特定的元素。[]用来实现将函数lindex的返回值作为set命令的参数。
  
  如果脚本的第一个参数是小写的"i"，那么变量nofile被设置为1，否则通过调用Tcl的函数isfile来验证参数指定的文件存在，如果不存在就报错退出。
  
  可以看到这里使用了if命令来实现逻辑判断功能。该命令后面直接跟判断条件，并且执行在判断条件后的{}内的命令。if条件为false时则运行else后的程序块。
  
  set procs {}
  # start write processes
  for {set i 1} {$i<$argc}
  {incr i} {

  （出处：网侠）

• 上一页 [1] [2] [3] 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 揭开Expect的神秘面纱 相关文章：
• ·多普达手机全揭露
• ·世界魔术大师大卫魔术揭密
• ·揭开面罩 看看Vagaa的真面目
• ·Md5密码破解武器大揭密
• ·里面的世界很精彩——硬盘构造再揭秘
• ·九种常用输入法特殊符号功能揭密
• ·召唤兽内丹（新技能）揭秘（上）
• ·迅雷5.0内测版新功能完全揭密
• ·叶子猪大话攻略：老版野鬼全揭秘
• ·揭密Vista到底需要用多少内存
• 揭开Expect的神秘面纱 相关软件
• ·软件破解全程大揭密

上一篇:将OS/2应用程序移植到Linux(用C语言)

下一篇:利用linux内核模块实现TTY hijacking

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐