Results for "dna"
Bio-Scripts
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...1141 days ago
- ...warnings; #assign strings to variables my $DNA = "GATTACACAT"; my $polyA =...AAAA"; #concatenate two strings my $modifiedDNA = $DNA.$polyA; #calculate...t the value of the variable and its length my $DNAlength = length($modifiedDNA);...
2922 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($...2922 days ago
- ...strict; use warnings; my $DNA = "GATTACACAT"; #transcribe DNA to RNA - T changes to U my $...ind the reverse complement of $DNA using substitution operator...A/T/g; $rcDNA =~ s/G/C/g; $rcDNA =~ s/C/G/g; print "Reverse...in the reverse sequence if($rcDNA =~ /ATG/){ print "Start cod...
2922 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...2921 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...2921 days ago
- ...r the DAS server. Example: # http://genome.ucsc.edu/cgi-bin/das/calJac3/dna?segment=chr14:482280,483280 my $URL_gene ="http://genome.ucsc.edu/cgi-bin/das/papAnu2/dna?segment=chr"; $URL_gene .= $...
2915 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...2906 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($l2888 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...2867 days ago
