compare two files to get a match

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I have two files ptt.txt and mapped.txt :

ptt.txt

Location    Strand    Length    PID    Gene    Synonym    Code    COG 
+   Product
1..1524            +    507    15607143    dnaA    Rv0001    -    COG0
+593L    chromosomal replication initiator protein DnaA
2052..3260    +    402    15607144    dnaN    Rv0002    -    COG0592L 
+   DNA polymerase III subunit beta
3280..4437    +    385    15607145    recF    Rv0003    -    COG1195L 
+   DNA replication/repair protein RecF
[download]

mapped.txt

gi|50953765|ref|NC_002755.2|-587160    83    gi|448814763|ref|NC_00096
+2.3|    1329307
[download]

I want to find out if the third column of mapped.txt lies within the range of first column of ptt.txt. if it lies within that range then print the row of ptt.txt along with the third column value of mapped.txt please if anyone can help me with this

Comment on compare two files to get a match Select or Download Code

Replies are listed 'Best First'.
Re: compare two files to get a match by Discipulus (Canon) on May 06, 2016 at 07:49 UTC
Anonymousquestion are welcome but.. what have you tried so far and where you encountered problems? Try to translate into Perl a simple manual procedure, this normally works. Me and others monks are happy to (try to) help you but is better to help you to code better than offer you solutions you may not understand. try my first suggestion and post some code. In addition i see that third column of mapped.txt is `NC_002755.2` (counting from zero) or `ref` counting from 1: how can this lie between `1..1524` ? You want to compare every line of first file against every line of the second one? L* There are no rules, there are no thumbs.. Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.	[reply] [d/l] [select]
Re: compare two files to get a match by Anonymous Monk on May 06, 2016 at 08:15 UTC
See how to compare column 1 to column 2 and vice versa from multiple rows.	[reply]


Think about Loose Coupling
	PerlMonks