This is a test version of Biostars. For the public version, visit https://www.biostars.org.
Compare Array Value With Hash And Delete Key If It Matches In A File,

Hi frens, i have a .txt file which has 3 col so my Quesn is perl code has to search key of colm1 in colm 2 if it matches then Delete the only key and other value in the col 3 keeping the search element of colm 1 as it is so how do i do that,

this is my file

file.txt
GT_Bbr_0016_1_480_35484GT_Bbr_0016_46_435_35483ATGACACTTGCATTTGTTGTGCCGGGACTCGATGAGGCGACC
GT_L88643_263_1190_12695GT_Bbr_0016_1_480_35484GAGAAGGCCATCGCGATTCTGCAGAACCGACTGAGCCAG
GT_Bbr_0016_46_435_35483GT_Bbr_0018_181_486_98952AACTATTTCAAGGCATTCCGCGCGAATTTCCTCAAGGCTACGGG
GT_Bbr_0022_1455_1120_107083GT_Bbr_0018_231_436_98956GATTATTTTCGGCGCCACGGGAACTGGTCTCGTGTATTCATGGGTGGTG
GT_Bbr_0023_43_972_86322GT_L88643_263_1190_12695ACCCAGGATTTAGGAGCCAGAGGAGAAGGCCATCGCGATTCT
GT_L88643_543_910_12692GT_L88643_543_910_12692AGGACAGGTCAATGATGCTGGGAATTGGTATCTCTTTGATCG
    GT_L88643_608_845_12686GACAGGTCAATGATGCTGGGAATTGGTATCTCTTTGATCGCTC
    GT_L88643_685_768_12688GCTGGAAATTGGTATCTCTTTGATCGCTCTTCTGGAGTCATGAG
    GT_L88643_482_971_12687CTACGACTGAACAATCCACATCAAAAAAAAATGGGATTGTGAA

n my output file should look like this:

out.txt
GT_Bbr_0016_1_480_35484GT_Bbr_0018_231_436_98956GATTATTTTCGGCGCCACGGGAACTGGTCTCGTGTATTCATGGGTGGTG
GT_L88643_263_1190_12695GT_L88643_608_845_12686GACAGGTCAATGATGCTGGGAATTGGTATCTCTTTGATCGCTC
GT_Bbr_0016_46_435_35483GT_L88643_685_768_12688GCTGGAAATTGGTATCTCTTTGATCGCTCTTCTGGAGTCATGAG
GT_Bbr_0022_1455_1120_107083GT_L88643_482_971_12687CTACGACTGAACAATCCACATCAAAAAAAAATGGGATTGTGAA
GT_L88643_263_1190_12695GT_Bbr_0018_181_486_98952AACTATTTCAAGGCATTCCGCGCGAATTTCCTCAAGGCTACGGG
GT_L88643_543_910_12692

i tried using spltting file by \t

while($line=(<File>))
    {
    chomp($line);
    @F=split('\t+',$line);
        $hash{$F[1]}=$F[2];
        if ($F[0] eq $F[1])
        {
            print "$line\n";
            # delete($hash{keys});
        }
    }

BUT THIS dint work so could any of u plzz help how to do this,,,,

IF U CANT MAKE OUT THE FILE WHICH I PASTED ABOVE SEEM TO HAVE SOME PROB WITH ALIGNMENT, LEAVE IT A SIDE

SO MY ONLY QSN IS: WANT TO COMPARE Col 1 VALUES WITH CoL 2 VALUES, IF IT MATCHES I JUZ WANT TO DELETE THAT MATCHED VALUE IN Col 2 WITH CORRESPONDING VALUE IN Col 3 : KEEPING Col 1 INTACT, I TRIED WITH ABOVE CODE

perl

Take some time to figure out how to fix the layout of the question.

I tried as much as I could columns aren't getting fixed as in the Text Box,

0 answers

No answers yet.

Log in to answer this question.