Perl script to break the contigs by 'N'
...bj = $fasta->next_seq() ) { #gets contig id my $contig = $seqobj->display_id(); #gets contig sequence my $seq = $seqobj->seq; my $lenseq=length $seq; $seq = uc $seq; #now...2103 days ago
Perl script to split fasta sequence / overlaps
#!/usr/bin/perl use strict; use warnings; my $len = 5000; my $over = 200; my $seq_id=$ARGV[0]; my $seqFile = $ARGV[1]; my $seq; open(my $fh, "2084 days ago
Perl script to create a consensus of nucleotide sequences !
...motif_count=0; my @words =(); my %H = ( A=>[], T=>[], C=>[], G=>[] ); s/\s//g for @mi; my ($w) = sort {$b $a} map {length} @mi; # set w to the length of the longest element...2073 days ago
2060 days ago
Perl script to split fasta sequence and create overlaps
#!/usr/bin/perl use strict; use warnings; my $len = 5000; my $over = 200; my $seq_id=$ARGV[0]; my $seqFile = $ARGV[1]; my $seq; open(my $fh, "2013 days ago
Perl script to run in parellel !
...ontent->next_seq()) { my $sequence = $gene_info->seq(); my $accession_number = $gene_info->display_id; my $len = $gene_info->length; my $GCcount = $sequen...1727 days ago
1645 days ago
Perl subroutine to creating kmer !
sub k_mers { my ($sequence, $k) = @_; my $len = length($sequence); my @result = (); for (my $i = 0; $i1608 days ago
1598 days ago
Bash command to install Miniconda !
...131.3, 2606:4700::6810:8303, ... Connecting to repo.anaconda.com|104.16.130.3|:443... connected. HTTP request sent, awaiting response... 200 OK Length: 71785000 (68M) [application/...1596 days ago