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...1126 days ago
2907 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($...2907 days ago
2907 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...2906 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...2906 days ago
2900 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...2891 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($l2873 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...2852 days ago