用expect和vmware交互时发生的问题

sunkun_99

用expect模块去一个vmware系统某个目录/proc/scsi/qla2xxx/下有两个文件0和1， 想通过expect模块来获取文件名，然后发送cat命令读出文件内容。
取文件没有问题， 但是发送命令时文件名却被加上莫名期奇妙的字符，不知是何原因？请教各位大侠！

程序运行结果如下：

1. [root@ilaus1-dev test]# a.pl
   
2. FileName:    0
   
3. ls /proc/scsi/qla2xxx/;0m0m
   
4. 0  1
   
5. -sh: 0m0m: not found
   
6. ~ #
   
7. *********************************
   
8. FileName:    1
   
9. ls /proc/scsi/qla2xxx/;0m1m
   
10. 0  1
    
11. -sh: 0m1m: not found
    
12. ~ #
    
13. *********************************
    
14. [root@ilaus1-dev test]#

复制代码

可以看到文件名0 和 1 没有任何问题，但是发送命令却变成了0m0m和0m1m。
程序源码如下：

1. #! /usr/bin/perl
   
2. use strict;
   
3. use Expect;
   
4. use Data::Dumper;
   
5. 
   
6. my $conn = Expect->new();
   
7. $conn->log_stdout(0);
   
8. $conn->spawn("ssh 192.168.1.103") or die "Can't spawn!";
   
9. my $rc = $conn->expect(3,'-re', qr/#/);
   
10. my @temp;
    
11. if($rc) {
    
12.     $conn->send("ls /proc/scsi/qla2xxx\n");
    
13.         my $out;
    
14.         while($conn->expect(3,'-re', qr/[\s\S]+/)) {
    
15.             $out .= $conn->match();
    
16.         }
    
17.         @temp = split /\n+/, $out;
    
18.         @temp = grep !/ls|#/, @temp;
    
19. }
    
20. foreach (@temp) {
    
21.         my @t = split /\s+/, $_;
    
22.         foreach (@t) {
    
23.             print "FileName:    ",$_,"\n";
    
24.            
    
25.             #这行发送命令将$_中的0或者1加上了其他字符，不知是和原因？？？
    
26.             $conn->send("ls /proc/scsi/qla2xxx/".$_."\n");
    
27.             
    
28.             my $out;
    
29.             while($conn->expect(3,'-re', qr/[\s\S]+/)) {
    
30.                 $out .= $conn->match();
    
31.             }
    
32.         print $out,"\n*********************************\n";
    
33.         }
    
34. }
    
35. $conn->close() or die "Can't close!\n";

复制代码