Results for "Print"
Bio-Scripts
Python script to download covid genome !
...nk/files/ncov-sequences.yaml").text) seqs = seqs['genbank-sequences'] print("got %d sequences" % len(seqs...in x and x['gene-region'] == "complete": nm = x['accession'] print("downloading", nm) dna =...1138 days ago
BioPerl to convert between sequence formats from Fasta to Genbank
...= Bio::SeqIO->newFh('-file' => "$inFile" , '-format' => 'Fasta'); $out = Bio::SeqIO->newFh('-format' => 'Genbank'); print $out $_ while ;...2918 days ago
- ...if ($seqFile =~ /\.fa$/) # if file ends in .fa { print "Processing $seqFile\n";.../; #User can process these files as per their need print "$patFile \t$seqFile \t $outp...
2918 days ago
- ...difiedDNA = $DNA.$polyA; #calculate the length of $modifiedDNA and #print out the value of the variable and its length my $DNAlength = length($modifiedDNA); print "Modified DNA: $modifiedDNA h...
2919 days ago
Count the frequency of base G in a given DNA sequence
...NAlength){ my $base = substr($DNA,$currentPos,1); if($base eq "G"){ $countG++; } $currentPos++; } #end of while loop #print out the number of Gs print "There are $countG G bases\n"...2919 days ago
- ...anges to U my $RNA = $DNA; $RNA =~ s/T/U/g; print "RNA sequence is $RNA\n";.../g; $rcDNA =~ s/G/C/g; $rcDNA =~ s/C/G/g; print "Reverse complement of $DNA i...he sequence $rcDNA =~ tr/ACGT/TGCA/; #then - print the reverse complement print...
2919 days ago
Read lines from input file – print lines that match a regular expression
...ne; #read the line-by-line for each line ask if it matches the regex print it if it matches while($li...ne; if ($line =~ /^ATG?C*[ATCG]+?A{3,10}$/) { print "$line\n"; } } e...2919 days ago
Check if your coputer ready to use BioPerl
#!/usr/bin/perl use strict; use warnings; #bioperl example code use strict; use warnings; #make the bioperl module (class) accessible to your program use Bio::Seq; print"ok - ready to use Bio::Seq";2919 days ago
Parse a genbank file using regular expressions
...) { if (/(LOCUS\s*)(\w*)(.*)/) { print "Locus: $2\n"; } elsif (/(VERSION.*GI:)(\d*)/) { print "GI: $2\n"; } elsif...$cds_start = $2; $cds_end = $4; print "CDS: $cds_start - $cds_end\n...2919 days ago
Perl script to Mutate a DNA Sequence
...xt # In Linux : /home/user/sequence/rnafile.txt use File::Path; print "ENTER THE FILENAME OF THE DN...; chomp $dnafilename; unless ( open(DNAFILE, $dnafilename) ) { print "Cannot open file \"$dnafilen...2918 days ago
