this is the one which i wrote by myself if its wrong plz letme knw <\p> <code> @chromosome = <CHROMOSOMEFILE>; close CHROMOSOMEFILE; shift (@chromosome); $chromosome = join( '', @chromosome); $chromosome =~ s/\s//g; $length = length ($chromosome); #print "len ::$length\n"; $startpos= 0; $endpos = 100000; $total_count=0; for($i=0;$i<=$length; $i += 100000) { $sublen=$endpos-$startpos; $frag=undef; $frag = substr($chromosome, $startpos,$sublen); print OF "$frag\n"; #@chromosome = split ( '250\n', $chromosome); ; $startpos += 100000; $endpos +=100000; } print OF "Total number of positions:: $total_count\n"; exit; <\code>
In reply to programme to get the sequence with cut ends of 250 bp on both sides and also i need to get the cut pieces please suggest the rigght way by anisha3
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |