2076 days ago
Perl script to break the contigs by 'N'
#!/usr/bin/perl -w use Bio::SeqIO; use strict; my $fasta = Bio::SeqIO->new( -file => "$A...2063 days ago
Perl script to run in parellel !
#!/usr/bin/perl use strict; use warnings; use Parallel::ForkManager; use Bio::SeqIO; my ($sequence_data_ref) = parse_gen...my $file=shift; my (%sequence_data); my $file_content = new Bio::SeqI...1687 days ago
1515 days ago
Python script to check sequence length in multifasta file
#!/usr/bin/python from Bio import SeqIO import sys cmdargs = str(sys.argv) for seq_record in SeqIO.parse(str(sys.argv[1]), "fasta"): output_line = '%s\t%i' % \ (seq_record.id, len(seq_record)) print(output_line)1216 days ago
1216 days ago
Parse the NCBI taxonomy database with Perl !
use Bio::DB::Taxonomy; use warnings; my $sps="human"; # Get one from a NCBI taxonomy database my $dbh = Bio::DB::Taxonomy->new(-source...or($nam); #print $ancestor_taxon; use Bio::T...ss { my ($lineageId,$classNode)=@_; use Bio::Tree...1173 days ago
Perl script to get all the descendent in a tree !
use warnings; use Bio::DB::Taxonomy; #Rotifera 10190 # Get one from a NCBI taxonomy database my $dbh = Bio::DB::...1165 days ago
Perl script to check perl modules and download NCBI, BUSCO, Taonomy, Silva databases !
use strict; use warnings; use ExtUtils::Installed; use LWP::Simple; use Archive::Extra...Tiny', 'Data::Dumper', 'File::Basename', 'Bio::S...istics::R', 'Math::Round', 'File::Find', 'Bio::DB::...1161 days ago
1159 days ago