perl expert模块 调用 echo输出字符串被截断问题

gx303841541

问题：
PC A 上perl脚本通过expert模块ssh到PC B ，调用 echo 输出字符串到文件，但是当字符串较大时总是有一些行丢失或者被截断的问题，莫名其妙，望高手指点迷津：


原字符串：

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

复制代码

通过echo 到文件后变成：

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

复制代码

以下为模拟问题的脚本：

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. }
     

复制代码

laputa73

终端是有宽度的，你echo的时候就折断了。
要是不需要交互，就不用expect了。

gx303841541

哦？但是被截断的不一定是最长的行哦！还有就是字符串内容较少时，即便最长的行业没有被截断，这个怎么解释呢？回复 2# laputa73


   

gx303841541

你好，你的意思是expect的问题是吧？那我想要在A机上跑脚本到B上执行还有别的办法吗？回复 2# laputa73


   

laputa73

回复 4# gx303841541


    如果你不需要交互性的命令，可以配置key方式认证，然后直接"ssh  $ip  ''echo aaaaa'"这样
   如果没法配key,必须密码登录，用expect登录也没问题。

laputa73

你是说输出到文件里面的内容缺了？
那就是在传递$test时丢失了
试试$exp->raw_pty(1);

gx303841541

$exp->raw_pty(1);这个已经有了！
不过我加了 $exp->log_stdout(1); 后倒是正常了！不过不懂怎么回事。。。。




回复 6# laputa73