perl變量傳入shell命令后提示shell語(yǔ)法錯(cuò)誤

db_pub

有如下要求 取出nfs掛接的所有目錄中剩余空間最大的一個(gè)，根據(jù)最大的再取得對(duì)應(yīng)的目錄
在perl中時(shí)獲取最大的空間后，根據(jù)空間大小再取得對(duì)應(yīng)掛接目錄是提示如下錯(cuò)誤
   @nfsSize = `df -k | grep ":" | /usr/bin/awk '{print \$4}'`;
   @nfsDir = ();
   $max = 0;
   foreach $arrayTmp (@nfsSize)
   {
     if($max < $arrayTmp)
    {
      $max = $arrayTmp;
    }
   }
   
   @nfsDir = `df -k | grep ':' | grep $max |  /usr/bin/awk '{print \$4, \$NF}'`;
   print "nfsdir @nfsDir \n";

sh: syntax error at line 2: `|' unexpected
發(fā)現(xiàn)只要在帶有變量的后面在接其他shell命令就會(huì)提示shell語(yǔ)法錯(cuò)誤

jason680

回復(fù) 1# db_pub

what do you want to do?
說(shuō)說(shuō)你想做什么?

X-Y Problem
http://www.72891.cn/forum.p ... mp;fromuid=24785593

db_pub

回復(fù) 2# jason680


    多謝提醒，這個(gè)表達(dá)的是有點(diǎn)問(wèn)題，希望大家引以為戒

db_pub

問(wèn)題已經(jīng)解決因?yàn)樵讷@取$max的值之后沒(méi)有用chomp函數(shù)去掉最后的換行符導(dǎo)致的，下面這樣是正確的

@nfsSize = `df -k | grep ":" | /usr/bin/awk '{print \$4}'`;
   @nfsDir = ();
   $max = 0;
   foreach $arrayTmp (@nfsSize)
   {
     if($max < $arrayTmp)
    {
      $max = $arrayTmp;
    }
   }
   chomp $max;
   @nfsDir = `df -k | grep ':' | grep $max |  /usr/bin/awk '{print \$4, \$NF}'`;
   print "nfsdir @nfsDir \n";

schnell18

回復(fù) 1# db_pub
這段Perl程序居然用了awk，令人匪夷所思。其實(shí)這個(gè)問(wèn)題可以這么用Perl干凈利落的搞定：

1. #!/usr/bin/env perl
   
2. 
   
3. use strict;
   
4. 
   
5. my @entries;
   
6. open (my $fh, "du -k  |") or die "Fail to open pipe";
   
7. while(<$fh>) {
   
8.     chomp;
   
9.     my ($size, $file) = split(/\s+/, $_);
   
10.     push @entries, [$file, $size];
    
11. }
    
12. 
    
13. foreach my $entry (sort { $b->[1] <=> $a->[1] } @entries) {
    
14.     printf "%s\t%d\n", $entry->[0], $entry->[1];
    
15. }
    

復(fù)制代碼

或者如果你的操作系統(tǒng)夠新的話，coreutils 7.5 +,可以用G,M,K作單位， 根本不用Perl:

1. du -sh * | sort -h -r

復(fù)制代碼

如果用k的話，在舊一點(diǎn)的系統(tǒng)上（RHEL 5.9)也能用：

1. du -sk * | sort -n -r

復(fù)制代碼

db_pub

回復(fù) 5# schnell18

謝謝你的回復(fù)，所負(fù)責(zé)的程序以前使用perl寫(xiě)的，我現(xiàn)在是實(shí)現(xiàn)新的功能擴(kuò)展�，F(xiàn)在是邊看perl資料邊做新功能擴(kuò)展，很是蛋疼啊