用sort排序,传递@有问题?

yisn

如果是一个二维数组,类似这样:

1. while (<grp_INPUT>){
   
2.     $ll=trim($_);
   
3.     push(@list,[split(/\t/,$ll)]);
   
4. }
   
5. 
   
6. @rank = sort seniority4 @list;
   

复制代码

上面的排序是可以正常的.



但我现在@list是由另一个指针指向的. 比如下面的@ff里的每个元素指向一个二维数组(@list)

1. sub splitFileByCS2Mem {
   
2.   my($f,$cid,$sid)=@_;
   
3.   my %fmap=getChrMap();
   
4.   my($line,@l,@ff);
   
5.   open(CS_INPUT,"<$f") || die "Cannot open $f.\n";
   
6.   while($line=<CS_INPUT>) {
   
7.     $line=trim($line);
   
8.     @l=split('\t',$line);
   
9.     push(@{$ff[$fmap{$l[$cid].$l[$sid]}]},[@l]);
   
10.   }
    
11.   close(CS_INPUT);
    
12.   return(@ff);
    
13. }

复制代码

现在想对@ff中的每个二维数组排序:

1. 
   
2.    @ff=splitFileByCS2Mem('xx.txt',0,1);
   
3.     for $j(0..$#ff) {
   
4.       #对unmethy排序
   
5.     $up=$ff[$j];
   
6.      @rank = sort sort4 @{$up};  #####这句出错了...  "Can't use an undefined value as an ARRAY reference"
   
7. }
   

复制代码

不知道要怎么写sort的那个参数才可以?

yisn

... 我知道原因了,是@ff内有些元素没有地址,导致的错误.

@rank = sort sort4 @{$up}; 这个是没错的. 写成 @$up也一样.

starwing83

你用的push，ff里面应该是一堆数组的引用的数组的引用的数组吧？