2886 days ago
2886 days ago
2886 days ago
Perl subroutine to read and write files
...',$file) # $string = InOut('read',$file) # InOut('write',$file,\$string) # InOut('write',$file,\@array) #$string = "YO!"; #InOut('write','file.txt',\$string); sub InOut {...2880 days ago
Perl script introduces control structures, arrays and hashes.
...st_array); my $another_way_of_getting_size_of_array = @first_array; # implicit way print "Scalar of array: $size_of_array\n\n"; print "Perl's index size of array: $#first_array\...2877 days ago
Blast script to index and extract sequence !!
# look at the file $ head EC4115.fa >NC_011353.1 Escherichia coli O157:H7 str. EC4115 chromosome, complete genome. AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATT...2867 days ago
2719 days ago
2708 days ago
2708 days ago
Perl script to remove the duplicate sequences from multifasta file
...file => ">$file.uniq", -format => "fasta"); while(my $seqs = $seqio->next_seq) { my $id = $seqs->display_id; my $seq = $seqs->seq; unless(exists($unique{$seq})) { $o...2705 days ago