perl expert模塊 調(diào)用 echo輸出字符串被截?cái)鄦栴}

gx303841541

問題：
PC A 上perl腳本通過expert模塊ssh到PC B ，調(diào)用 echo 輸出字符串到文件，但是當(dāng)字符串較大時(shí)總是有一些行丟失或者被截?cái)嗟膯栴}，莫名其妙，望高手指點(diǎn)迷津：


原字符串：

1. 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
   
2. 222222222222
   
3. 333333333333
   
4. 44444
   
5. 55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555
   
6. 666666666666666666
   
7. 77777777777777777777777777

復(fù)制代碼

通過echo 到文件后變成：

1. 1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
   
2. 222222222222
   
3. 33333
   
4. 44444
   
5. 55555555555555555555
   
6. 6666666666
   
7. 77777777777777777777777777

復(fù)制代碼

以下為模擬問題的腳本：

1. #!/usr/bin/perl
   
2. 
   
3. use 5.010;
   
4. 
   
5. use Expect;
   
6. 
   
7. 
   
8. my @exp_result;
   
9. my $handle = exp_open('192.168.2.225', 'password', 'ubuntu');
   
10. my $cmd_buff;       
    
11. 
    
12. 
    
13. my $test = '
    
14. 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
    
15. 222222222222
    
16. 333333333333
    
17. 44444
    
18. 55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555
    
19. 666666666666666666
    
20. 77777777777777777777777777
    
21. 8888888888
    
22. 99999999999999999999999999999999999999999999999
    
23. 0000000000000000000000000
    
24. aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
    
25. bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
    
26. ccccccccccccccccccccccccccccccccccccccccccc
    
27. ddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
    
28. eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
    
29. 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
    
30. 222222222222
    
31. 333333333333
    
32. 44444
    
33. 55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555
    
34. 666666666666666666
    
35. 77777777777777777777777777
    
36. 8888888888
    
37. 99999999999999999999999999999999999999999999999
    
38. 0000000000000000000000000
    
39. aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
    
40. bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
    
41. ccccccccccccccccccccccccccccccccccccccccccc
    
42. ddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
    
43. eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
    
44. 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
    
45. 222222222222
    
46. 333333333333
    
47. 44444
    
48. 55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555
    
49. 666666666666666666
    
50. 77777777777777777777777777
    
51. 8888888888
    
52. 99999999999999999999999999999999999999999999999
    
53. 0000000000000000000000000
    
54. aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
    
55. bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
    
56. ccccccccccccccccccccccccccccccccccccccccccc
    
57. ddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
    
58. eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
    
59. 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
    
60. 222222222222
    
61. 333333333333
    
62. 44444
    
63. 55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555
    
64. 666666666666666666
    
65. 77777777777777777777777777
    
66. 8888888888
    
67. 99999999999999999999999999999999999999999999999
    
68. 0000000000000000000000000
    
69. aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
    
70. bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
    
71. ccccccccccccccccccccccccccccccccccccccccccc
    
72. ddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
    
73. eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
    
74. 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
    
75. 222222222222
    
76. 333333333333
    
77. 44444
    
78. 55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555
    
79. 666666666666666666
    
80. 77777777777777777777777777
    
81. 8888888888
    
82. 99999999999999999999999999999999999999999999999
    
83. 0000000000000000000000000
    
84. aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
    
85. bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
    
86. ccccccccccccccccccccccccccccccccccccccccccc
    
87. ddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
    
88. eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
    
89. 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
    
90. 222222222222
    
91. 333333333333
    
92. 44444
    
93. 55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555
    
94. 666666666666666666
    
95. 77777777777777777777777777
    
96. 8888888888
    
97. 99999999999999999999999999999999999999999999999
    
98. 0000000000000000000000000
    
99. aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
    
100. bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
     
101. ccccccccccccccccccccccccccccccccccccccccccc
     
102. ddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
     
103. eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
     
104. ';
     
105. 
     
106. 
     
107. my $test1 = "123";
     
108. 
     
109.     $handle->expect(0);
     
110.         $handle->clear_accum();
     
111.     $handle->send("ls -l\n");
     
112.     @exp_result = $handle->expect(2, '-re', 'tftpboot#');
     
113.     $cmd_buff = $handle->exp_before.$handle->exp_match.$handle->exp_after;
     
114.     $cmd_buff .= $handle->clear_accum();
     
115.     if (!defined($exp_result[0]))
     
116.     {
     
117.         print("expect /'tmp#'/ TIMEOUT!");
     
118.     }
     
119.     $handle->expect(0.001);
     
120.     $cmd_buff .= $handle->clear_accum();
     
121. 
     
122. 
     
123.         print "------------------------\n";
     
124. 
     
125.     $handle->expect(0);
     
126.         $handle->clear_accum();
     
127.     $handle->send("echo -e \"$test\" > test.cfg\n");
     
128.     @exp_result = $handle->expect(2, '-re', 'tftpboot#');
     
129.     $cmd_buff = $handle->exp_before.$handle->exp_match.$handle->exp_after;
     
130.     $cmd_buff .= $handle->clear_accum();
     
131.     if (!defined($exp_result[0]))
     
132.     {
     
133.         print("expect /'tmp#'/ TIMEOUT!");
     
134.     }
     
135.     $handle->expect(0.001);
     
136.     $cmd_buff .= $handle->clear_accum();
     
137. 
     
138. 
     
139. 
     
140. 
     
141. ##########################################################
     
142. sub exp_open(){
     
143.        
     
144.         my ($host, $password, $expect_pattern) = @_;
     
145.         $handle = Expect->new;
     
146.         $handle->raw_pty(1);
     
147.        
     
148.         $handle = Expect->spawn("ssh $host");
     
149.         $handle->log_file("exp.log");
     
150.         $handle->log_stdout(1);
     
151.        
     
152.         print("ssh [$host] [$password] [$expect_pattern]\n");
     
153. 
     
154. 
     
155.         my $ret = $handle->expect(10,[
     
156.                                                 qr/password:/i,
     
157.                                                 sub {
     
158.                                     my $self = shift ;
     
159.                                     $self->send("$password\n");
     
160.                                                                 exp_continue;
     
161.                             }
     
162.                          ],
     
163.                          [
     
164.                                                 'connecting (yes/no)?',
     
165.                                                 sub {
     
166.                                     my $self = shift ;
     
167.                                                                 $self->send("yes\n");
     
168.                                                                 exp_continue;
     
169.                              }
     
170.                          ],
     
171.                          [
     
172.                                                 "$expect_pattern",
     
173.                                                 sub {
     
174.                                                                 my $self = shift ;
     
175.                                                                 $self->clear_accum();
     
176.                                                                 $self->expect(0.001);
     
177.                                                                 $self->clear_accum();
     
178.                                                                 $self->send("cd /tftpboot\n");
     
179.                              }
     
180.                          ]
     
181.                      );
     
182.     if (!defined($ret))
     
183.     {
     
184.         die("TIMEOUT! [$!]");
     
185.     }       
     
186. 
     
187. 
     
188.     $handle->send("\n");
     
189.     my @exp_result = $handle->expect(2, '-re', 'tftpboot#');
     
190.     if (!defined($exp_result[0]))
     
191.     {
     
192.         die("exec CMD FAILED!! [$!]");
     
193.     }
     
194.    
     
195. 
     
196. 
     
197.         $handle->clear_accum();
     
198.         $handle->expect(0.1);
     
199.         $handle->clear_accum();
     
200.         return $handle;
     
201. }
     

復(fù)制代碼

laputa73

終端是有寬度的，你echo的時(shí)候就折斷了。
要是不需要交互，就不用expect了。

gx303841541

哦？但是被截?cái)嗟牟灰欢ㄊ亲铋L(zhǎng)的行哦！還有就是字符串內(nèi)容較少時(shí)，即便最長(zhǎng)的行業(yè)沒有被截?cái)�，這個(gè)怎么解釋呢？回復(fù) 2# laputa73


   

gx303841541

你好，你的意思是expect的問題是吧？那我想要在A機(jī)上跑腳本到B上執(zhí)行還有別的辦法嗎？回復(fù) 2# laputa73


   

laputa73

回復(fù) 4# gx303841541


    如果你不需要交互性的命令，可以配置key方式認(rèn)證，然后直接"ssh  $ip  ''echo aaaaa'"這樣
   如果沒法配key,必須密碼登錄，用expect登錄也沒問題。

laputa73

你是說輸出到文件里面的內(nèi)容缺了？
那就是在傳遞$test時(shí)丟失了
試試$exp->raw_pty(1);

gx303841541

$exp->raw_pty(1);這個(gè)已經(jīng)有了！
不過我加了 $exp->log_stdout(1); 后倒是正常了！不過不懂怎么回事。。。。




回復(fù) 6# laputa73