add_left2right.pl
#!/usr/bin/perl
open my $left,"<",$ARGV[0];
open my $right,"<",$ARGV[1];
open(OUT,">./aaa");
my @right_list = ();
while (<$right>) {
($a,$b,$c,$d) = split(/,/,$_);
push @right_list,"$c,$d \n";
}
while (<$left>) {
($aa,$bb,$cc,$dd) = split(/,/,$_);
chomp($aa,$bb,$cc,$dd);
foreach my $r (@right_list) {
chomp($r);
($e,$f) = split(/,/,$r);
if($e == $cc && $f == $dd) {
print OUT "$aa,$bb,$cc,$dd \n";
}
}
}
