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

1291987565

，第一列不管，根據(jù)第二列把文件分割，將相同的數(shù)字分在一個(gè)文件里，一個(gè)文件分成多個(gè)，怎么分

ytphrx

#讀取文件內(nèi)容
open(FILE,"filename");
my @list=<FILE>;
close(FILE);
my %result;
#以第二列的數(shù)字為key創(chuàng)建包含數(shù)組的散列，并且把第二列數(shù)字一樣的行push到同一個(gè)$key下。
foreach my $temp (@list)
  {
   if($temp=~/SNP_A-\d+\s*(\d+).*/i)
     {
      push($result{$1},"$temp\n");
     }
   }
#輸出每個(gè)$key下的內(nèi)容到文本文件中，以$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什么的，換上你自己的文件名。