Perl script to break the contigs by 'N'
#!/usr/bin/perl -w use Bio::SeqIO; use strict; my $fasta = Bio::SeqIO->new( -file => "$ARGV[0].parts.fasta",-format=>'fasta'); open(SCAFF,">$ARGV[0].parts.scaf...2074 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_genome_files($ARGV[0]); my %genome=%{$se...1698 days ago
1525 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)1226 days ago
1226 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 => 'flatfile',...1184 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::Taxonomy->new(-source => 'flatfile',...1176 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::Extract; # # First, check if all the required modules have been installed in the...1172 days ago
1170 days ago
Perl script to check modules installed !
#use strict; use warnings; use ExtUtils::Installed; # # First, check if all the required modules have been installed in the system # BEGIN { my @import_m...1167 days ago