使用 Perl 脚本实现交互式命令行程序的管理与测试自动化(2)

清单 10. exptelnet.pl

				
 #! /usr/bin/perl 
 use Expect; 
 my $PROMPT = '[/]/$/>/#]/s*$'; # 远程系统的命令提示符模式
 $obj = Expect->spawn( "telnet 9.125.13.44" ) or die "Couldn't spawn telnet, $!"; 
 $obj->expect( 10, 
        [ qr/login:/s*$/i, 
          sub{ my $self = shift; $self->send( "root/r" ); exp_continue;} 
        ], 
        [ qr/password:/s*$/i, 
          sub{ my $self = shift; $self->send( "zu88jie/r" ); exp_continue;} 
        ], 
        [ qr/$PROMPT/, 
          sub{my $self=shift; $self->send( "logout/r" ); exp_continue_timeout;} 
        ], 
 ); 

为{bj}（也就是说，在第一行没有找到匹配，因为有参数m，所以可以继续去下面的行去找是否有匹配），如果m和g都加上，则返回{bj,b7}（只加m不加g说明，可以去多行进行匹配，但是找到一个匹配后就返回，加入g表明将多行中所有的匹配返回，当然对于match方法是如此，对于exec呢，则需要执行多次才能依次返回）。3）对于string对象的match方法，不加入g，也只是返回第一个匹配，一直执行match方法也总是返回第一个匹配，加入g，则一次返回所有的匹配（注意这与表达式对象的exec方法不同，对于exec而言，表达式即使加上了g，也不会一次返回所有的匹配）。但是如果在同一个字符串上多次调用，设置了g标志则会继续查找新的匹配项，而没有设置的话只会返回第一个匹配项信息。

send：发送数据

清单 11. send 方法原型

				
 $obj->send( @strings ); 

[0035]优选地，可以通过大量终端202收集脚本，并通过预置的优化编译器进行编译，得到待检测脚本中隐藏的数据特征，将以上数据特征与脚本进行关联，而通过安全服务器206依据各终端202上传的数据特征在中进行特征匹配，并进一步地根据匹配结果对脚本指定相应的清除或者屏蔽措施。5.2.4对 本软件或者本软件运行过程中释放到任何终端内存中的数据、软件运行过程中客户端与服务器端的交互数据，以及本软件运行所必需的系统数据，进行复制、修改、 增加、删除、挂接运行或创作任何衍生作品，形式包括但不限于使用插件、外挂或非本软件经授权的第三方工具/服务接入本软件和相关系统。（3）精确匹配搜索：使用“”，如在百度中键入“大数据行业”，表示搜索“大数据行业”五个必须联在一起的，如果不加“”，搜到的为大数据及行业两个词并列显示结果，没有这么精确匹配。

log_file：设置日志记录

清单 12. log_file 方法原型

				
 $obj->log_file( $filename | $filehandle | undef ); 

可以排除这些格式的文件，以精简脚本，便于调试。7、，是一款专门监控ftp服务器文件访问操作日志的软件，可以详细记录局域网用户对ftp服务器文件的上传、下载、修改、删除、重命名等操作日志，可以记录访问者的ftp账户、ip地址、mac地址和主机名等信息，并可以将ftp服务器文件操作日志导出为excel格式，从而便于网管员实时审计局域网用户对ftp服务器文件上传和ftp服务器下载文件的情况，便于更好地保护ftp服务器的文件安全perl命令行应用程序详，保护单位无形资产和商业机密。小规模日志系统可以是“打开文件－写文件－关闭文件”，简单就是最好的，稍稍复杂的可以创建日志句柄引用不同的日志分类（文件），再加入日志等级等，再复杂的可以通过远程守护实现日志异地落地的日志服务器、日志文件转档等。

清单 13. 设置日志记录

				
 $obj = Expect->spawn( "ftp 9.9.9.9" ); 	
 # 使用"w"选项截断旧日志
 $obj->log_file( "./out.log", "w" );  

debug：设置调试信息

清单 14. debug 方法原型

				
 $obj->debug( 0 | 1 | 2 | 3 ); 

6.debug info生成调试信息，选择调试信息的详细程度，在debug情况下，一般选择program database或program database for editon and continue二者区别在于后者可以在调试过程中，修改代码后，部分编译后，在当前环境继续执行，虽然功能很强，建议还是用前者吧。这里以参考对象和分割对象为基准进行双向相互匹配，采用各自的私有区域度量二 者的匹配程度，选取取得最小值的两个区域作为匹配对象，定义为 ｌ（ｉ，ｊ）７一ａｒｇｍｉｎ（ＩＳｍｉ＼札，Ｉ＋ｌ札，＼ｓ。 飞利浦手机秘籍 ◆显示imei号：*#06# ◆显示状态行 *#2254*#: c, bs, rr, mmi, creat. ◆激活或关闭调试呼叫（debug call）模式 *#2255*# ◆显示总通话时间 *#2558*# ◆强迫重新接入网络 *#2562*# ◆显示和更改手机的保密码 *#7489*# ◆显示一些sim卡信息，例如相位等级（phase level）*#7378*# ◆获取sim卡锁信息，初始化和标志 *#3377*# ◆激活和关闭睡眠模式 *#7693*# ◆获取睡眠模式信息 *#8463*#[展开]。

清单 15. expdebug.pl

				
 #! /usr/bin/Perl 
 use Expect; 
 $obj = Expect->spawn( "ftp 9.125.13.44" ) or die $!; 
 $obj->exp_internal( 1 ); # 打开对象内部调试信息
 $obj->expect( 10, "Name" ); 
 $obj->soft_close( ); 

运行结果为：

清单 16. expdebug.pl 输出详细匹配过程

				
 Starting EXPECT pattern matching... 
 ... 省略中间输出 ... 
 spawn id(3): Does `'
 match: 
  pattern #1: -ex `Name'? No. 
 ... 省略中间输出 ... 
 match: 
  pattern #1: -ex `Name'? YES!! 
    Before match string: `Connected to 9.125.13.44./r/n220 AIX6144 FTP server ...'
    Match string: `Name'
    After match string: ` (9.125.13.44:root): '
    Matchlist: () 

从结果中可以监视目标程序每一条输出与 expect 模式的匹配情况，若匹配成功还能查看 before/match/after 字串，这对于调试程序大有帮助。

interact：返回交互模式

清单 17. interact 方法原型

				
 $obj->interact( ); 

为了把质疑权还给学生，老师首先要相信学生有质疑的兴趣，需要和能力，这是不可没有的前提。长期以来培训模式比较单一，习惯沿用以课堂讲授为主的培训模式，而在目前看来这一传统模式已不适应现代教育发展的需要及新时期教师培训的目标和要求[2]. 特别在当前为培养一支具有先进课程理念、适应课改工作需要的学校教师，充分发挥中小学教师在推动和实施基础教育课程改革的积极作用，有必要利用及时实践模式对培训模式进行改进. 所谓模式，是理论与实践操作的中介.及时实践模式即在教育理论、培训思想的指导下，对培训过程的结构、程序、培训的方式方法等因素进行优化组合，同时利用信息技术作为载体，形成相对稳定、系统化的培训范式.它包括教育思想、培训理论、培训目标、操作程序、角色地位和培训策略等方面的内容，因而构建某一具体培训模式必须要以正确的教育理论为培训指导思想，确定一定的培训目标，明确教师与学员的角色地位，设计安排培训策略和具体的技术操作程序，并把这些要素有机地结合起来. 课堂授课边讲边实践，例如计算机技术提高培训，可以以教师演示操作为指导，学员动手制作为主，在机房完成教学实践。假定有两个用户a和b，a在vb环境下编写了一段程序，在本人的机器上能够正常运转，当a把这段程序拷贝到b的机器上和b交流的时分，b机器上恰恰没有装置vb环境，此时关于二者的交流可能存在障碍。

clear_accum 与 set_accum：操纵匹配缓冲区

清单 18. clear_accum 与 set_accum 方法原型

				
 $obj->clear_accum( ); 
 $obj->set_accum( $value ); 

如果使用默认缓冲4096字节的话，grep会等到缓冲区满以后再调用write()清除缓冲，这大概会读入40行才发生一次（译者注：缓冲策略是写入流/文件的充分条件，不是必要的。根据程序的默认，“辅助对象”是不会出现在代数区中，但是可以在“查看”菜单中选择“辅助对象”，然后在代数区中就可以看到了。每次都会优先使用eden区，若eden区满，就将对象复制到第二块内存区上，然后清除eden区，如果此时存活的对象太多，以至于survivor不够时，会将这些对象通过分配担保机制复制到老年代中。

清单 19. 操纵匹配缓冲区内容

				
 $obj->notransfer( 1 ); 
 $obj->expect( $timeout, 
            # 1 保留 accumulator 内容 , pattern1 将被再次匹配
	    [ "pattern1", 
              sub { my $self = shift; ... } 
            ], 
            # 2 将 accumulator 内容设置为 after string，即截断 before 和 match string 
            [ "pattern2", 
              sub { my $self = shift; ...; $self->set_accum( $self->after( ) );} 
            ], 
            # 3 将 accumulator 内容清空
	    [ "pattern3", 
              sub { my $self = shift; ...; $self->clear_accum( );} 
            ], 
 ); 

示例中$obj->notransfer( 0 | 1 )方法用于设置是否保留匹配缓冲区内容。0 是默认行为 ( 清除 before 和 match)；1 为保留所有内容。保留缓冲区内所有内容会导致原先匹配过的模式被再次匹配 (#1)。我们也可手动设置 accumulator 内容来影响下一次匹配 (#2 #3)。

Expect::Simple 模块详解

Expect::Simple 对 Expect 模块进行了封装，隐藏其内部复杂机制。此模块处理一些简单的应用已经足够。

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-118246-2.html