for-yim.pl

for-yim.pl

use strict;
use warnings;
use JSON::XS;
use Text::CSV_XS;
use Data::Printer;

my $csv = Text::CSV_XS->new({ binary => 1, sep => "\t" });
open my $code_fh, "<", $ARGV[0] or die $!;
#open my $codon_fh, "<", $ARGV[1] or die $!;
my %code_map = ();
while(my $row = $csv->getline($code_fh)) {
    my ($code, $c) = @{ $row };
    $code_map{$code} = $c;
}

$code_map{"---"} = "*";

$csv= Text::CSV_XS->new({ binary => 1, sep => " " });
my %data = ();
open my $codon_fh, "<", $ARGV[1] or die $!;
while(my $row = $csv->getline($codon_fh)) {
    my ($code, $c1, $c2, $c3, $c4) = @{ $row };
    next if $c4 > 0.15;
    print join("\t", $code, $c1, $c4)."\n";
#    if (my $c = $code_map{$code}) {
#        $data{$c}{$c1} = $c4;
#    }
}

#print JSON::XS->new->encode(\%data);