使用perl的expect对linux下使用fdi…

最新推荐文章于 2024-09-03 10:30:00 发布

leexurui

最新推荐文章于 2024-09-03 10:30:00 发布

阅读量574

点赞数

分类专栏： perl语言

本文链接：https://blog.csdn.net/leexurui/article/details/39645431

版权

perl语言专栏收录该内容

2 篇文章 0 订阅

订阅专栏

http://blog.csdn.net/wangjiannuaa/article/details/7102587

http://www.php-oa.com/2009/09/16/perl-expect.html

有一种方法是使用EOF

fdisk /dev/sda <<EOF
n
p
1
1

EOF

因为linux下，EOF

<<EOF
（内容）
EOF

说明 <<EOF 的意思是 EOF 以后的内容,作为流输入 传给前面的应用, 直到遇到EOF ,中止输入..

注意 EOF 前面不能有空格

  下载和安装
 Expect 和 Expect::Simple 都可以从 CPAN 网站上直接下载，最新版本为 Expect-1.21 和 Expect::Simple-0.04。比较方便的安装方法是使用 Perl 自带的包管理工具 cpan：
 
 清单 1. 模块安装
                               
  perl -MCPAN -e 'install Expect::Simple'
 Expect 模块详解
 与最初的 Expect 语言类似，Expect 模块的主要功能也通过 spawn，expect，send 三个方法实现。
 spawn：启动目标程序
 
 清单 2. spawn 方法原型
                               
  $obj = Expect->spawn( $command, @parameters );
  
 spawn 是 Expect 类的主要方法之一，通过 fork 和 exec 启动目标程序，若成功则返回 Expect 对象，否则返回 undef。参数 $command 指定目标程序，@parameters 为可选参数。下面是一个简单的例子：
 
 清单 3. spawn 用法示例
                               
  $obj1 = Expect->spawn( "ftp 9.9.9.9" );           # 启动 ftp 进程
  $obj2 = Expect->spawn( "ftp", "9.9.9.9" );        # 与上一行等效 
  
 上述两行执行结果相同，但其实际处理过程存在细微差别。一般情况下我们可以把完整的命令行 ( 甚至可以是复合命令，包括命令、参数、管道符、重定向符等 ) 都写入 $command 而不指定 @parameters。
 注：在 spawn 的实现中，$command 和 @parameters 都原封不动地传递给了 Perl 的 exec 函数。根据 exec 函数的说明文档，如果传递进来的是多元列表参数，exec 直接将其传递给 execvp 系统调用；如果传递进来的是标量参数或者单元列表参数，exec 函数将检查是否存在 shell 元字符 ( 如 | & ; ( ) < > 等 )，若存在，则将此参数交给系统 shell 进行解析，否则将其分词后传递给 execvp 系统调用。因此如果 spawn 的是一个含有 shell 元字符的复合命令，我们一般只能将其完整写入 $command。
 expect：等待特定输出
 
 清单 4. expect 方法原型
                               
  $obj->expect( $timeout, @match_patterns );
  
 使用 Expect 对象的 expect 方法等待目标程序的特定输出。参数列表中 $timeout 设定超时 ( 以秒为单位 )，@match_patterns 提供一个或多个匹配模式，如果在设定时间内目标程序输出结果和 @match_patterns 中某元素匹配则成功返回。缺省情况下 expect 使用精确匹配，若想使用正则表达式，可以在该模式元素前加 '-re' 前缀 :
 
 清单 5. 启用正则表达式匹配
                               
  $obj->expect( 10, 'match me exactly', '-re'=>'match\s+me\s+exactly' );
  
 标量上下文中 expect 返回匹配模式在 @match_patterns 中的位置 ( 注意下标从 1 开始 )，若不成功则返回 undef。而列表上下文中 expect 返回一个包含详细匹配信息的列表：
 
 清单 6. expect 方法的列表返回值
                               
  ( $pos, $err, $match, $before, $after ) = $obj->expect( $timeout, @patterns );
  
 其中 $pos 就是在标量环境中的返回值，$err 是出错信息，$match 为成功匹配的字串，$before 为匹配字串之前的输出部分，$after 为匹配字串之后的输出部分。
 send：发送数据
 清单 11. send 方法原型
                               
  $obj->send( @strings );
  
 当交互式程序等待用户输入时，可以使用 send 方法向其提供输入数据。需要注意，send 送出的数据可能会回显在终端上 ( 具体与终端设置有关 )，此数据会进入 Expect 对象的匹配缓冲区，被下一个 expect 动作接收。为了避免 send 数据对 expect 匹配造成混乱，一般可以使用 $obj->stty("-echo" )方法关闭终端回显，或者在 spawn 前使用 $obj->raw_pty(1)将终端设定成 raw 模式 (raw 模式将关闭回显，禁止回车 - 换行符翻译 )，或者为expect 提供更加精确的匹配模式。
 
linux下使用fdisk命令对硬盘自动分区需要进行交互命令的选择，如果有多个硬盘需要分区，想用脚本实现自动化分区。

 
    $exp 
    = new Expect;  
    #new一个Expect. 
  

 
    $exp 
   ->spawn( 
   $command 
   , 
   @params 
   );  
    #fork和exec一个新进程用来执行$command命令. 
  

 
    $exp 
   ->expect( 
   $timeout 
   , 
   $content 
   ); 
    #'-re'.在$timeout内,期待出现包含$content内容的正则表达式,如果不加re默认是精确匹配,也可以使用正则表达式,expect($timeout,re=>''). 
  

 
    $exp 
   -> 
   send 
   ( 
   $string 
   );  
    #向终端发送字符 
  

 
    $exp 
   ->debug(0|1|2);  
    #打印debug 信息,不同的数字表示不同的bug级别 
  

 
    $exp 
   ->interact();   
    #和用户进行交互,把控制权转交给用户 
  

 
    $exp 
   ->soft_close();  
    #软关闭,直到$timeout时间到达,才关掉该进程 
  

 
    $exp 
   ->hard_close();  
    #硬关闭,立刻关闭该进程 
  

 
    $exp 
   ->match();   
    #返回匹配的结果 
  

 
    $exp 
   ->match_number(); 
    #返回匹配的个数 
  

 
    $exp 
   ->send_slow(); 
    # 就是让command慢慢敲进去.. 
  

$exp ->stty(); #它和外部命令 stty 类似,设定 terminal 的模式,-raw 还是 -cooked.开关回显 echo 和 -echo.

原本的expect脚本语言实现fdisk 自动分区

$ vi fdisk.exp

Shell代码

1. #!/usr/bin/expect -f

3. spawn fdisk /dev/hda

4. expect -exact "Command (m for help): "

5. send -- "p\r"

6. expect -exact "Command (m for help): "

7. send -- "q\r"

8. expect eof

$ chmod +x fdisk.exp
$ ./fdisk.exp ## 输出如下

Shell代码

1. spawn fdisk /dev/hda

3. The number of cylinders for this disk is set to 9729.

4. There is nothing wrong with that, but this is larger than 1024,

5. and could in certain setups cause problems with:

6. 1) software that runs at boot time (e.g., old versions of LILO)

7. 2) booting and partitioning software from other OSs

8. (e.g., DOS FDISK, OS/2 FDISK)

10.Command (m for help): p

11.

12.Disk /dev/hda: 80.0 GB, 80026361856 bytes

13.255 heads, 63 sectors/track, 9729 cylinders

14.Units = cylinders of 16065 * 512 = 8225280 bytes

15.

16. Device Boot Start End Blocks Id System

17./dev/hda1 * 1 1275 10241406 83 Linux

18./dev/hda2 1276 1340 522112+ 82 Linux swap

19./dev/hda3 1341 9729 67384642+ 5 Extended

20./dev/hda5 1341 4987 29294496 83 Linux

21./dev/hda6 4988 6203 9767488+ 83 Linux

22./dev/hda7 6204 7419 9767488+ 83 Linux

23./dev/hda8 7420 8635 9767488+ 83 Linux

24./dev/hda9 8636 9729 8787523+ 83 Linux

25.

26. Command (m for help): q

或者

vim ./Auto_partitions.exp
#!/usr/bin/expect
set SIZE ""
set date [exec date "+%Y-%m-%d"]
set DEV [exec fdisk -l | grep "Disk /dev/*" | cut -c 6-13 | grep -v "a" ]
puts "$DEV"
spawn fdisk $DEV
expect "Command (m for help):"
exec sleep 0.5
send "n\r"
expect "*"
send "p\r"
expect "(1-4):"
send "1\r"
expect "default 1):"
send "\r"
expect "*):"
send "\r"
expect "Command (m for help):"
send "w\r"
interact

使用expect实现自动登录的脚本，网上有很多，可是都没有一个明白的说明，初学者一般都是照抄、收藏。可是为什么要这么写却不知其然。本文用一个最短的例子说明脚本的原理。
　　脚本代码如下：