Shell Programming and Scripting

ABC1   DEF11
ABC3   DEF7
ABC7   DEF36

DEF7   light   23
DEF11  over      2
DEF11  over    1
DEF17  blue       0

[home@perl_beginner]perl -e ' $col1=1; $col2=0; ($f1,$f2)=@ARGV; open(F2,$f2); while (<F2>) { s/\r?\n//; @F=split /\t/, $_; $line2{$F[$col2]} .= "$_\n" }; $count2 = $.; open(F1,$f1); while (<F1>) { s/\r?\n//; @F=split /\t/, $_; $x = $line2{$F[$col1]}; if ($x) { $num_changes = ($x =~ s/^/$_\t/gm); print $x; $merged += $num_changes } } ' Input_file_1 Input_file_2 > merge.txt
ABC1   DEF11   DEF11   over      2
ABC1   DEF11   DEF11   over    1
ABC3   DEF7    DEF7    light   23

[home@perl_beginner]perl merge.pl Input_file_1 1 Input_file_2 0 > merge.txt
ABC1   DEF11   DEF11   over      2
ABC1   DEF11   DEF11   over    1
ABC3   DEF7    DEF7    light   23

#!/usr/bin/perl
($f1,$col1,$f2,$col2)=@ARGV;
open(F2,$f2);
while (<F2>) {
  s/\r?\n//;
  @F=split /\t/, $_;
  $line2{$F[$col2]} .= "$_\n";
};
$count2 = $.; 
open(F1,$f1);
while (<F1>) {
  s/\r?\n//;
  @F=split /\t/, $_;
  $x = $line2{$F[$col1]};
  if ($x) {
    $num_changes = ($x =~ s/^/$_\t/gm);
    print $x; 
    $merged += $num_changes;
  }
}