【求助】perl expect 登陸問題

yanzy

有時候匹配得過去，有時候匹配不過去得，請大俠幫忙
問題在這一塊Are you sure you want to continue connecting (yes/no)?

1. 
   
2. #!/usr/bin/perl
   
3.   use Expect;
   
4. 
   
5. $ENV{TERM} = "vt100";
   
6. 
   
7.        my @server_ip=('10.8.4.136');
   
8.        my $ip=@_;
   
9.      # my $exp = Expect->new;
   
10. 
    
11. 
    
12. foreach $ip(@server_ip){
    
13.      my $timeout = 2;
    
14.      my $pass="Paic1234";
    
15.    
    
16. 
    
17.     $exp = Expect->spawn("ssh -l yanzy $ip");
    
18.     $exp->log_file("output.log");
    
19. 
    
20.    $exp->exp_internal(1);
    
21.    $exp->log_stdout(1);
    
22. 
    
23.     $exp->expect(2,[
    
24.                  qr/password:/i,
    
25.          sub {
    
26.                my $exp = shift ;
    
27.                $exp->send("$pass\n");
    
28.                exp_continue;
    
29.              }
    
30. 
    
31.                  ],
    
32. 
    
33.                 [
    
34.                     'connecting (yes/no)?',
    
35.                     sub {
    
36.                       my $exp = shift ;
    
37.                       $exp->send("yes\n");
    
38. 
    
39.                         }
    
40.                 ]
    
41. 
    
42.               );
    
43. 
    
44. 
    
45. [bankdplyop@cnsz040545 unix_deploy]$ auto2
    
46. Starting EXPECT pattern matching...
    
47. at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 561
    
48.         Expect::expect('Expect=GLOB(0xa64baa0)', 2, 'ARRAY(0xa64c230)', 'ARRAY(0xa64c280)') called at ./auto2 line 39
    
49. spawn id(3): list of patterns:
    
50.   #1: -re `(?i-xsm:password:)'
    
51.   #2: -re `connecting (yes/no)?'
    
52. 
    
53. 
    
54. spawn id(3): Does `'
    
55. match:
    
56.   pattern #1: -re `(?i-xsm:password:)'? No.
    
57.   pattern #2: -re `connecting (yes/no)?'? No.
    
58. 
    
59. The authenticity of host '10.8.4.136 (10.8.4.136)' can't be established.
    
60. RSA key fingerprint is 72:05:2f:55:58:ee:6f:e8:fa:36:69:cc:24:ec:d1:24.
    
61. Are you sure you want to continue connecting (yes/no)?
    
62. spawn id(3): Does `The authenticity of host \'10.8.4.136 (10.8.4.136)\' can\'t be established.\r\nRSA key fingerprint is 72:05:2f:55:58:ee:6f:e8:fa:36:69:cc:24:ec:d1:24.\r\nAre you sure you want to continue connecting (yes/no)? '
    
63. match:
    
64.   pattern #1: -re `(?i-xsm:password:)'? No.
    
65.   pattern #2: -re `connecting (yes/no)?'? YES!!
    
66.     Before match string: `The authenticity of host \'10.8.4.136 (10.8.4.136)\' can\'t be established.\r\nRSA key fingerprint is 72:05:2f:55:58:ee:6f:e8:fa:36:69:cc:24:ec:d1:24.\r\nAre you sure you want to continue '
    
67.     Match string: `connecting '
    
68.     After match string: `(yes/no)? '
    
69.     Matchlist: (`')
    
70. Calling hook CODE(0xa57a060)...
    
71. Sending 'yes\n' to spawn id(3)
    
72. at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 1267
    
73.         Expect::print('Expect=GLOB(0xa64baa0)', 'yes\x{a}') called at ./auto2 line 36
    
74.         main::__ANON__('Expect=GLOB(0xa64baa0)') called at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 760
    
75.         Expect::_multi_expect(2, 'undef', 'ARRAY(0xa64c4d0)') called at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 565
    
76.         Expect::expect('Expect=GLOB(0xa64baa0)', 2, 'ARRAY(0xa64c230)', 'ARRAY(0xa64c280)') called at ./auto2 line 39
    
77. Sending '\003' to spawn id(3)
    
78. at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 1267
    
79.         Expect::print('Expect=GLOB(0xa64baa0)', '\x{3}') called at ./auto2 line 42
    
80. Starting EXPECT pattern matching...
    
81. at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 561
    
82.         Expect::expect('Expect=GLOB(0xa64baa0)', 2) called at ./auto2 line 43
    
83. spawn id(3): list of patterns:
    
84. 
    
85. 
    
86. spawn id(3): Does `(yes/no)? '
    
87. match:
    
88. 
    
89. Starting EXPECT pattern matching...
    
90. at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 561
    
91.         Expect::expect('Expect=GLOB(0xa64baa0)', 1, '$passwd') called at ./auto2 line 45
    
92. spawn id(3): list of patterns:
    
93.   #1: -ex `$passwd'
    
94. 
    
95. 
    
96. spawn id(3): Does `'
    
97. match:
    
98.   pattern #1: -ex `$passwd'? No.
    
99. 
    
100. Starting EXPECT pattern matching...
     
101. at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 561
     
102.         Expect::expect('Expect=GLOB(0xa64baa0)', 2) called at ./auto2 line 47
     
103. spawn id(3): list of patterns:
     
104. 
     
105. 
     
106. spawn id(3): Does `'
     
107. match:
     
108. 
     
109. fcntl returned undef during exp_init of Expect=GLOB(0xa64baa0), 錯誤的文件描述符

復制代碼

demil

為什么 第二個'connecting (yes/no)? 匹配沒有exp_continue？ 而且匹配connecting (yes/no)也不能這么寫吧，看是不是需要轉義

yanzy

有時候就匹配過去了··很奇怪呢

xiaobing927

重貼一下，你這個圖標太多不想看

yanzy

已經(jīng)重新編輯了下，請高手指點下

xiaobing927

‘connecting (yes/no)? ’
  對應的sub語句完事后，sleep下，可能是運算響應問題

yanzy

將sleep設置到了10秒以上  幾率為二分之一。

xiaobing927

是設置在send yes的前面還是后面？

yanzy

$exp->send("yes\n");

在send得后面

xiaobing927

應該設置在前面，我之前遇到過類似的錯誤，不知道我們的是不是一樣。
分析問題很可能在于，出現(xiàn)（yes/no）的提示后你立刻去send  yes，而這時被登錄機器那邊還沒有完全準備好接收yes，所以算是輸入錯誤，又重現(xiàn)出現(xiàn)（yes/no），。如此反復........