https://bioinformaticsonline.com/snippets/view/30033/perl-script-to-insert-sequence-in-contig? https://bioinformaticsonline.com/snippets/view/30033/perl-script-to-insert-sequence-in-contig Mon, 05 Dec 2016 00:34:49 -0600 https://bioinformaticsonline.com/snippets/view/30033/perl-script-to-insert-sequence-in-contig # sub signature: #insertSEQintoCONTIGatLOC( SEQ , CONTIG , LOC ) ; sub insertSEQintoCONTIGatLOC{ my ( $SEQ , $CONTIG , $LOC ) = @_; substr( $CONTIG , $LOC , -length($CONTIG) ) = $SEQ ; return $CONTIG; } $s = "ATATGATGATAGATGATAGTAGATAGATAGATAGATAGATAG"; print "s = $s \n"; print 'insert = '.($s = insertSEQintoCONTIGatLOC( "CCCC ", $s , 26 ))."\n"; print " (now, s = '$s' ) \n"; # OUTPUT: # s = ATATGATGATAGATGATAGTAGATAGATAGATAGATAGATAG # insert = 'CCCC ' # (now, s = ATATGATGATAGATGATAGTAGATAGCCCCATAGATAGATAGATAG' )";]]> Jit