perl按要求分割文件，急！！！！求指教

1291987565

，第一列不管，根据第二列把文件分割，将相同的数字分在一个文件里，一个文件分成多个，怎么分

ytphrx

#读取文件内容
open(FILE,"filename");
my @list=<FILE>;
close(FILE);
my %result;
#以第二列的数字为key创建包含数组的散列，并且把第二列数字一样的行push到同一个$key下。
foreach my $temp (@list)
  {
   if($temp=~/SNP_A-\d+\s*(\d+).*/i)
     {
      push($result{$1},"$temp\n");
     }
   }
#输出每个$key下的内容到文本文件中，以$key为文件名。
while(my($key,$value)=each(%result))
{
  open(FILE,"${key}.txt");
  print FILE @$value;
  close(FILE);
}
这样行不？

liunerd

my @fh;
open my $src, '<', 'sourcefile' or die "CAN'T READ\n";

while (my $num = (split /\s+/, (my $thisline = <$src>) )[1]){
        my $destfh = 'filtered'.$num;
        open $$destfh, '>>', "$destfh" or die "CAN'T WRITE $destfh\n", $fh[$num] = 1 unless defined $fh[$num];
        print {$$destfh} $thisline;
}

for(0..$#fh){
        my $destfh = 'filtered'.$_, close($$destfh) if defined $fh[$_];
}

close($src);

sourcefile什么的，换上你自己的文件名。