perl变量传入shell命令后提示shell语法错误

db_pub

有如下要求 取出nfs挂接的所有目录中剩余空间最大的一个，根据最大的再取得对应的目录
在perl中时获取最大的空间后，根据空间大小再取得对应挂接目录是提示如下错误
   @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
发现只要在带有变量的后面在接其他shell命令就会提示shell语法错误

jason680

回复 1# db_pub

what do you want to do?
说说你想做什么?

X-Y Problem
http://bbs.chinaunix.net/forum.p ... mp;fromuid=24785593

db_pub

回复 2# jason680


    多谢提醒，这个表达的是有点问题，希望大家引以为戒

db_pub

问题已经解决因为在获取$max的值之后没有用chomp函数去掉最后的换行符导致的，下面这样是正确的

@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

回复 1# db_pub
这段Perl程序居然用了awk，令人匪夷所思。其实这个问题可以这么用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. }
    

复制代码

或者如果你的操作系统够新的话，coreutils 7.5 +,可以用G,M,K作单位， 根本不用Perl:

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

复制代码

如果用k的话，在旧一点的系统上（RHEL 5.9)也能用：

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

复制代码

db_pub

回复 5# schnell18

谢谢你的回复，所负责的程序以前使用perl写的，我现在是实现新的功能扩展。现在是边看perl资料边做新功能扩展，很是蛋疼啊