perl/etc/WoodyMiaoLin/PbeBefore2015/addSampleInfo.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 open I1, "<", "Sample_Info.txt";
   6 open I2, "<", "Origin_STR_SNP.txt";
   7 open O, ">", "STR_gt_info.txt";
   8
   9 my %info;
  10 while (<I1>) {
  11         s/\r\n$//;
  12         my @a = split /\t/;
  13         $info{$a[0]} = $_;
  14 }
  15 close I1;
  16
  17 while (<I2>) {
  18         s/\r\n$//;
  19         my @a = split /\t/;
  20         print O $_, "\t", $info{$a[0]}, "\n";
  21 }
  22 close I1;
  23 close I2;
  24 close O;