Results for "Perl script"
Bio-Scripts
(JitMetaENV) ➜ JitMeta conda install grabseqs -c louiejtaylor -c bioconda -c conda-forge Collecting package metadata (current_repodata.json): done Solving environment: done ==> WARNING: A newer version of conda exists.1231 days ago
- # To follow these instructions, we'll assume your system admins have alre...er where you want to install different Perls, and cd into it: # Note tha...ant to maintain such software: export PERL_BASE="$HOME/perl" mkdir -p $...MSKCC: curl -sL https://cpanmin.us | $PERL_B...
2158 days ago
Python script to download covid genome !
#!/usr/bin/env python3 # these are the publicly available "complete" sequences # https://www.gisaid.org/ has more (1200?), but they require you to sign up import...1150 days ago
R script to visualize fastANI core-genome comparison
####### # Purpose: Visualize fastANI core-genome comparison # Usage: Rscript # Output: .pdf # Uses genoPlot...1115 days ago
BioPerl to convert between sequence formats from Fasta to Genbank
#!/usr/local/bin/perl -w # Sequence formats to choose: Fasta, EMBL. GenBank, Swissprot, PIR and GCG use Bio::SeqIO; $inFile = "BRCA2.fa"; $in = Bio::SeqIO-...2930 days ago
- #!/usr/local/bin/perl -w # Can be easily modified to run any command on every sequence in a folder # Directory of sequences $myDir = "/home/anjana/seqs"; # Outp...
2930 days ago
- #!/usr/bin/perl use strict; use warnings; #assign strings to variables my $DNA = "GATTACACAT"; my $polyA = "AAAA"; #concatenate two strings my $modifiedDNA =...
2931 days ago
Count the frequency of base G in a given DNA sequence
#!/usr/bin/perl use strict; use warnings; my $DNA = "GATTACACAT"; #initialize $countG and $currentPos my $countG = 0; my $currentPos = 0; #calculate the le...2931 days ago
- #!/usr/bin/perl use strict; use warnings; my $DNA = "GATTACACAT"; #transcribe DNA to RNA - T changes to U my $RNA = $DNA; $RNA =~ s/T/U/g; print "RNA sequenc...
2931 days ago
Read lines from input file – print lines that match a regular expression
#!/usr/bin/perl use strict; use warnings; my $line; #read the line-by-line for each line ask if it matches the regex print it if it matches while($line = ){...2931 days ago
