请教perl的expect的使用，telnet到目标主机后，如何取某文件的数据到本地进行处理

copywu

看了Expect的在线手册，
http://search.cpan.org/~rgiersig/Expect-1.15/Expect.pod
可是没看懂，请帮忙分析一下


如，使用expect telnet到目标主机，取文件/proc/stat的内容
然后在perl脚本中对该文件中的内容进行处理，得出cpu利用率

#!/bin/perl -w use Expect; my $exp = new Expect; #$Expect::Log_Stdout = 0; my $host = $ARGV[1]; my $username = $ARGV[2]; my $password = $ARGV[3]; my $command = "telnet $host"; $exp=Expect->spawn($command) or die "Cannot spawn $command: $!\n"; $exp->expect(30, “login:”); $exp->send("$username\n"); $exp->expect(30, "assword:"); $exp->send("$password\n"); $exp->send("cat /proc/stat\n"); #此处使用cat取文件内容，在命令行中有输出，但是我该如何取这里数据来处理呢？ $exp->send("exit\n"); $exp->soft_close();

DQP

为啥不ftp， scp

copywu

因为目标主机只开放telnet
取文件只是一个举例，其实问题应该是如何将在目标主机上执行的命令返回信息截取到本地进行分析

churchmice

真是个悲剧阿
为啥要bypass $ARGV[0]

copywu

4楼的兄弟能说明白些吗？不理解你的意思。。。

churchmice

你这命令行参数
my $host = $ARGV[1]
那$ARGV[0]去哪了？
调用的时候难道是

1. 
   
2. ./script_name dummy host username password
   

复制代码

???

churchmice

ok, try this code

1. 
   
2. use strict;
   
3. use warnings;
   
4. use Expect;
   
5. my $exp = new Expect;
   
6. $Expect::Log_Stdout = 0;
   
7. my $host     = $ARGV[0];
   
8. my $username = $ARGV[1];
   
9. my $password = $ARGV[2];
   
10. my $command  = "telnet $host";
    
11. $exp = Expect->spawn($command) or die "Cannot spawn $command: $!\n";
    
12. $exp->expect( 30, "login:" );
    
13. $exp->raw_pty(1);
    
14. 
    
15. $exp->send("$username\n");
    
16. $exp->expect( 30, "assword:" );
    
17. 
    
18. $exp->send("$password\n");
    
19. $exp->expect( 1, '$' );
    
20. 
    
21. $exp->print("cat /proc/stat\n");
    
22. $exp->expect( 1, undef );
    
23. 
    
24. #此处使用cat取文件内容，在命令行中有输出，但是我该如何取这里数据来处理呢？
    
25. 
    
26. my $read = $exp->before();
    
27. print $read;
    
28. $exp->send("exit\n");
    
29. $exp->soft_close();
    

复制代码

$read里面的内容需要你自己提取一下

[ 本帖最后由 churchmice 于 2009-5-4 13:23 编辑 ]

copywu

哦，谢谢churchmice

$ARGV[0]我在程序里有其他用处，这里抄代码上来时候忘记改了呵呵，