亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: perl按要求分割文件，急�。。�！求指教 [打印本頁]

作者: 1291987565 時(shí)間: 2014-05-06 21:49
標(biāo)題: perl按要求分割文件，急�。。�！求指教

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

作者: ytphrx 時(shí)間: 2014-05-07 00:48
本帖最后由 ytphrx 于 2014-05-07 01:36 編輯

#讀取文件內(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 時(shí)間: 2014-05-07 12:19
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什么的，換上你自己的文件名。

歡迎光臨 Chinaunix (http://72891.cn/)