数组问题

kernel69

1. cat auto_ssh.pl
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. use lib '/home/zhangguiliang/perl/lib/lib/perl5/site_perl/5.8.8/';
   
5. use Net::OpenSSH;
   
6. 
   
7. my @hostname = qw(192.168.2.11);
   
8. 
   
9. my $cmd1 = 'ls -l';
   
10. my $cmd2 = 'df -h';
    
11. 
    
12. 
    
13. for my $host ( @hostname ) {
    
14. 
    
15.         my $ssh = Net::OpenSSH -> new( $host, timeout => 600 );
    
16.         #my @out = $ssh -> capture( $cmd1 );
    
17.         my @space = $ssh -> capture( $cmd2 );
    
18.         print @space;
    
19.         print '-' x 30 . "\n";
    
20.         my @jboos_space  = grep /jboss/, @space;
    
21.         print $jboos_space[2]
    
22. }
    
23. 
    
24. 
    
25. $ ./auto_ssh.pl
    
26. Filesystem            ɝ  ӑԃ ¿ʓ`ӑԃ% 1Ӕص
    
27. /dev/sda9             2.0G  497M  1.4G  26% /
    
28. /dev/sda1              92M   13M   74M  15% /boot
    
29. none                  2.0G     0  2.0G   0% /dev/shm
    
30. /dev/sda2             9.9G  4.3G  5.2G  46% /home
    
31. /dev/sda10             94G   40G   50G  45% /jboss_app
    
32. /dev/sda5             5.0G   43M  4.7G   1% /mysql
    
33. /dev/sda7             5.0G   43M  4.7G   1% /tmp
    
34. /dev/sda3             9.9G  3.0G  6.5G  32% /usr
    
35. /dev/sda6             5.0G  484M  4.2G  11% /var
    
36. ------------------------------
    
37. Use of uninitialized value in print at ./auto_ssh.pl line 21.

复制代码

@jboos_space的内容为/dev/sda10             94G   40G   50G  45% /jboss_app加一个空格，问题是我访问$jboos_space[1],结果应该是94G,而运行结果是uninitialized，访问$jboos_space[0]结果是/dev/sda10             94G   40G   50G  45% /jboss_app，怎样修改才能访问$jboos_space[0]是/dev/sda10，$jboos_space[1]是94G，依次往后，谢谢

wenhq

split          ?

kernel69

我也这么想的，

1. my @jboos_space  = split /\s+/,grep /jboss/, @space;

复制代码

返回的值是个标题值啊，1

回复 2# wenhq


   

yinyuemi

回复 3# kernel69


    my @jboos_space  = map{split /\s+/}grep {/jboss/} @space;

kernel69

试试，有结果了，给你回复，

回复 4# yinyuemi


   

kernel69

测试OK，感谢大牛

回复 4# yinyuemi