Python script to download covid genome !
..."complete": nm = x['accession'] print("downloading", nm) dna = Entrez.efetch(db='nucleotid...asta', retmode= 'text').read().split("\n")[1:] allseq[nm] = ''.join(dna) import json with open("d...1099 days ago
2880 days ago
Count the frequency of base G in a given DNA sequence
...usr/bin/perl use strict; use warnings; my $DNA = "GATTACACAT"; #initializ...y $currentPos = 0; #calculate the length of $DNA my $DNAlength = length($DNA)...f 'yes' increment $countG while($currentPos < $DNAlength){ my $base = substr($...2880 days ago
2880 days ago
Perl script to Mutate a DNA Sequence
...# This script randomly mutates the DNA sequence and generates 10 suc...pt it asks for the file name of the DNA sequence. # If the DNA seque...print "ENTER THE FILENAME OF THE DNA SEQUENCE:= "; $dnafilename =...tant = mutate($DNA); print "Mutate DNA\n\n"; print "HERE ARE THE...2879 days ago
Perl script to count the number of Adenine, Thymine, Guanine and Cytosine in your DNA Sequence
...pt it asks for the file name of the DNA sequence. If the sequence fil...g with the path. In windows: c:\dnafile.txt, In Linux: /home/us...FILENAME OF THE DNA SEQUENCE:= "; $dna_filename = ; chomp $dna_file...$errors = 0; foreach $base (@DNA) { if ( $base eq...2879 days ago
2873 days ago
Implementation of biological random mutation with Perl
...#sequence for a better recognition my $DNA="AAAAAAAAAAAAAAAAAAAAAAAAAAAA...tant; srand (time | $$). $mutant=mutate ($DNA); print "Mutate \ n". $DNA...print "$DNA \ n"; print "Here is the mutant DNA: \ n \ n"; print "$mutant...2864 days ago
Perl script to generate a random psuedo DNA sequence !
#!/usr/bin/perl print "Enter a number of nucleotides: \n"; chomp ($N = ); @b=qw/A T G C/;print ">Genome\n";while($l2846 days ago
Perl script introduces control structures, arrays and hashes.
#!/usr/bin/env perl use strict; use warnings; my @first_array = ('DNA', 'ATGCGTGC', 5, 'RNA', 'AUGC...'Number of seqs' => 2 ); print $sequence{'DNA'}, "\n"; # Control Loop: for...2825 days ago