input line:
hg19_ensGene_ENST00000237247 range=chr1:67208779-67210057 5'pad=0 3'pad=0 strand=+ repeatMasking=none
info to be extracted:
chr1:67208779-67210057:+
The perl code i use till now that works successfully is:
Expand|Select|Wrap|Line Numbers
- while(<LOC>){
- chomp;
- if(/^>(\w+)\s\w+\=(chr\w+)\:(\d+)\-(\d+)/)
- $loc{$1} = "$2:$3:$4:$5";
- print $loc{$1}."\n";
- }
- }
however i am unable to extract + info from the input line above.