數(shù)組問題

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.

復(fù)制代碼

@jboos_space的內(nèi)容為/dev/sda10             94G   40G   50G  45% /jboss_app加一個(gè)空格，問題是我訪問$jboos_space[1],結(jié)果應(yīng)該是94G,而運(yùn)行結(jié)果是uninitialized，訪問$jboos_space[0]結(jié)果是/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;

復(fù)制代碼

返回的值是個(gè)標(biāo)題值啊，1

回復(fù) 2# wenhq


   

yinyuemi

回復(fù) 3# kernel69


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

kernel69

試試，有結(jié)果了，給你回復(fù)，

回復(fù) 4# yinyuemi


   

kernel69

測試OK，感謝大牛

回復(fù) 4# yinyuemi