Think about Loose Coupling | |
PerlMonks |
Create separated column for my fileby 345qwerty (Novice) |
on Aug 10, 2017 at 10:47 UTC ( [id://1197150]=note: print w/replies, xml ) | Need Help?? |
Hello, I had a file which contained 3 columns I wrote a code, which prints us added 4 column But there is some mistake My INPUT FILE:
5 Q CAA 16 Q CAG 21 Q CAA 74 Q CAA 80 Q CAG 82 Q CAG 84 Q CAG 85 Q CAG 89 Q CAG 90 Q CAG 91 Q CAG 92 Q CAG 93 Q CAA 94 Q CAG 95 Q CAG 96 Q CAG 98 Q CAG 99 Q CAG 100 Q CAG My OUTPUT FILE: 5 Q CAA OUT 16 Q CAG OUT 21 Q CAA OUT 74 Q CAA OUT 80 Q CAG OUT 82 Q CAG OUT 84 Q CAG OUT 85 Q CAG OUT 89 Q CAG IN 90 Q CAG IN 91 Q CAG IN 92 Q CAG IN 93 Q CAA IN 94 Q CAG IN 95 Q CAG IN 96 Q CAG IN 98 Q CAG OUT 99 Q CAG OUT 100 Q CAG OUT BUT now I have somethis like this:5 Q CAA OUT16 Q CAG OUT 21 Q CAA OUT 74 Q CAA OUT 80 Q CAG OUT 82 Q CAG OUT 84 Q CAG OUT 85 Q CAG OUT 89 Q CAG IN 90 Q CAG IN 91 Q CAG IN 92 Q CAG IN 93 Q CAA IN 94 Q CAG IN 95 Q CAG IN 96 Q CAG IN 98 Q CAG OUT 99 Q CAG OUT 100 Q CAG OUT Here is my code:
THE PART OF THE CODE WHICH MUST BE CHANGED TO REMOVE THIS MISTAKE IS: Do you have any suggestions? Thank you! 2017-08-12 Reparented by Athanasius
In Section
Seekers of Perl Wisdom
|
|