3012 days ago
3012 days ago
3012 days ago
Perl subroutine to read and write files
...('read',$file) # InOut('write',$file,\$string) # InOut('write',$file,\@array) #$string = "YO!"; #InOut('write','file.txt',\$string); sub InOut { my($bit,$file,$data) = @_; if($b...3006 days ago
Perl script introduces control structures, arrays and hashes.
#!/usr/bin/env perl use strict; use warnings; my @first_array = ('DNA', 'ATGCGTGC...my $i=0; $i 'ATCGATGCT', 'RNA' => 'AUGC', 'Number of seqs' => 2...3003 days ago
Blast script to index and extract sequence !!
...ATACTTTAACCAATATAGGCATAGCGCACAGACAGATAAAAATTACAGAGTAC # generate the blast database $ makeblastdb -dbtype nuc...TTGACTTAGGTCACTAAATACTTTAACCAATATAGGCATAGCGCACAGAC .... # query the blast database by id and coordi...2993 days ago
Perl script to insert sequence in contig !!
# sub signature: #insertSEQintoCONTIGatLOC( SEQ , CONTIG , LOC ) ; sub insertSEQintoCONTIGatLOC{ my ( $SEQ , $CONTIG , $LOC ) = @_; substr( $CONTIG , $LOC , -length(...2849 days ago
2845 days ago
2834 days ago
2834 days ago