Results for "PA"
Bio-Scripts
Parse a genbank file using regular expressions
#! /usr/local/bin/perl -w $genbank = "genbank_file.txt"; open (GENBANK, $genbank) || die "cannot open $gb_report for reading: $!"; # Flag for multiline trans...2930 days ago
- .../anjana/seqs"; # Output directory (relative to $myDir or full path) $outputDir = "OutDir"; # Path to pattern file $patFile =...#User can process these files as per their need print "$patFile \t$seqFile \t $outputDir...
2929 days ago
Perl script to Mutate a DNA Sequence
...t in the same directory of this script, enter the file name with its full path. # Example: # In windows:...:\rnafile.txt # In Linux : /home/user/sequence/rnafile.txt use File::Path; print "ENTER THE FILENA...2929 days ago
Perl script to count the number of Adenine, Thymine, Guanine and Cytosine in your DNA Sequence
...file name of the DNA sequence. If the sequence file is not available in the same directory of this script, enter the name of the file along with the path. In windows: c:\dnafile...2929 days ago
Retrieve NCBI GenBank records with a range of accession numbers
...#FILE: ncbi_search.pl #AUTH: Paul Stothard (paul.stothard@gmail.com) use...( 'q|query=s' => \$param{query}, 'o|output_fil...lt = get($esearch); $param{retries}++; }...ss ( ( defined( $param{maxRecords} ) && ( $param{...2929 days ago
A multilayer perceptron (MLP) neural network in Perl
...########### Data dependent settings ######### my $numInputs = 3; my $numPatterns = 4; ######################################## my $patNum; my $errThisPat; my $ou...2929 days ago
- ...; use warnings; use LWP::Simple; use XML::XPath; use XML::XPath::XMLParser; # Use DAS of...\n"; if (! $size) { die "ERROR: You must pass three arguments: chr. num.,...URL_gene ="http://genome.ucsc.edu/cgi-bin/das/papAnu2/dna?segment=chr"; $URL_...
2923 days ago
Blast result parser with Perl and Bioperl
...freely distributed under GNU General Public License. # This script will parse a NCBI blastx output file...\n", if (@ARGV != 3); my ($infile,$numHits,$outfile) = @ARGV; print "Parsing the BLAST result ...";...2927 days ago
- #!/usr/bin/env perl # Usage: fastaRead.pl data.fa use strict; use warnings; my $filename = $ARGV[0]; my $sequence; open my $fileH, "
2927 days ago
- ...AAAAAAAAAAAAA”; $dna3 = “ATGAAAAAAAAAATGAAAAAAAAAAAATGAAAA”; $pattern = “ATG”; # match pattern to dna1 $m = $dna1 =~ m...pattern found in dna2 : $m2 \n”; # find the position of the pattern match in dna1 $pos =...
2922 days ago
