I need a help to write a tricky perl script I have a file with contents like this (cluster.txt)
Cluster 4
0 9606aa, >gi|78706840|ref|N... *
Cluster 5
0 9270aa, >gi|24653966|ref|N... * 1 7210aa, >gi|24653978|ref|N... at 99%
Cluster 6
0 9196aa, >gi|24660328|ref|N... *
Cluster 7
0 8943aa, >gi|28558739|ref|N... *
Cluster 8
0 8930aa, >gi|45552153|ref|N... * 1 8647aa, > gi|45552149|ref|N... at 100%
From this file i want to extract gi code if its score is givn as at 100% -
You can see the last line having a score of at 100% then retrieve that gi code (given in red color )and then search in another file (data.txt) wich contains data in this format and delete from > mark to next > mark.
gi|24649526|ref|NP_732948.1| CG5991-PB, isoform B [Drosophila melanogaster]
MVSYFVPRGRFLLKAGNLRQVVQQQHQPAQLQLQPIKGPQPQAQNASLPVARHLRQFSSNPASKEAPLHH RRPQHKQQPNPSQELAQIRRNILSRWTGFLLRWAPMGICVFGAIEWQLQKNRCEKEGKPRTASELQSRIY CSLPLRIISRCWGWLAACYLPPSLRPYVYGWYSNTFDVNLSEAMYPEYEHYNSLAEFFTRPLKEGVRVID QQAPLVSPADGKVLHFGSASDSLIEQVKGVSYSIEDFLGPLETVEQANSGASYAQALKKKSDGSTELYQC VIYLAPGDYHRFHSPTAWKPTIRRHFSGELLSVSPKVAGWLPGLFCLNERVLYMGQWKHGFFSYTAVGAT NVGSVEIYMDADLKTNRWTGFNVGKHPPSTYEYDELVLNKELTEAPKEFGKGDLVGQFNMGSTIVLLFEA PKNFKFDIIAGQKIRVGESLGHIVGSK
gi|45550806|ref|NP_651210.2| CG6000-PA, isoform A [Drosophila melanogaster]
MMALRVARSQIPFSTARNTQSNLLQRFYSQAPQIGIVDYDVVKKLPSEPQKLLIDVREPEELKETGQIPA SINIPLGVVSQELAASEQLFKSKYGREKPKPETEIIFHCKIGKRSLKAAEAAAALGFKNVKNYQGSWLDW AEREGLPK
gi|45552149 |ref|NP_732951.1| CG6000-PB, isoform B [Drosophila
melanogaster] MAGKNRSQKRRLYSTARLAKEALRLQKLPPHWDSRM
gi|17738165|ref|NP_524474.1| CG5436-PA [Drosophila melanogaster]
MPAIGIDLGTTYSCVGVFQYGKVEIIANDQGNRTTPSYVAFTDSERLIGDAAKNQVAMNPKNSVFDAKRL IGRRFDDSKIQEDIKHWPFKVINDNGKPKISVEFKGANKCFSPEEISSMVLTKMKETAEAYLGTTVKDAV ITVPAYFNDSQRQATKDAGAIAGINVLRIINEPTAAALAYGLDKNLKGERNVLIFDLGGGTFDVSILTID EGSLFEVRSTAGDTHLGGEDFDNRLVNHFAEEFKRKYKKDLRSNPRALRRLRTAAERAKRTLSSSTEASL EIDALYEGHDFYSKVSRARFEELCGDLFRNTLEPVEKALKDAKMDKSQIHDIVLVGGSTRIPKVQNLLQN FFGGKTLNLSINPDEAVAYGAAIQAAILSGDKSSEIKDVLLVDVAPLSLGIETAGGVMTKLIERNSRIPC KQSKTFTTYADNQPAVTIQVFEGERALTKDNNVLGTFDLTGVPPAPRGVPKIDVTFDLDANGILNVTAKE QGTGNAKNITIKNDKGRLSQADIDRMLSEAEKYAEEDERHRQRIAARNQLETYLFGVKEAAENGGDRISA ADKSSIVERCSEAMKWLDSNTTAEKEEYEYKLKELEQFCSPIMTKMHKGGGDGQQAPNFGQQAGGYKGPT VEEVD -- This is very urgent, Pls help HAppy perl
