perl/etc/WoodyMiaoLin/PbeBefore2015/make_sample_table.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 open I1, "<", "../a.information/Sample_Info.txt";
   6 my %sam_inf;
   7 while (<I1>) {
   8         s/^(\S+)//;
   9         $sam_inf{$1} = $_;
  10 }
  11 close I1;
  12
  13 open I2, "<", "../b.find_hybrid/sample_genotype_region.txt";
  14 open O, ">", "PBE_sample_table.txt";
  15 while (<I2>) {
  16         chomp;
  17         /^(\S+)/;
  18         if ($sam_inf{$1}) {
  19                 print O $_, $sam_inf{$1};
  20         } else {
  21                 print O $_, "\n";
  22                 warn $1;
  23         }
  24 }
  25 close I2;
  26 close O;