Perl script to count the number of Adenine, Thymine, Guanine and Cytosine in your DNA Sequence
...In Linux: /home/user/sequence/dnafile.txt print "ENTER THE FILENAME OF THE DN...unless ( open(DNAFILE, $dna_filename) ) { print "Sorry the file does not exis...++$count_of_G; } else { print "Error - Unknown base: $base\...2930 days ago
Retrieve NCBI GenBank records with a range of accession numbers
...} ); if ( defined( $param{help} ) ) { print_usage(); exit(0); }...r !( defined( $param{returnType} ) ) ) { print_usage(); exit(1); }...$param{retries}++; } print( $OUTFILE $efetch_result );...2930 days ago
A multilayer perceptron (MLP) neural network in Perl
#!/usr/local/bin/perl -w #################################################### #MLP neural network in Perl Original source code by Phil Brierley #Translated into p...2930 days ago
Extract a random sequence from a file
...= $1; my $len_genome = length $genome; my @start_points = shuffle(0 .. $len_genome-$size); next unless @start_points >= $count; print substr($genome, $_, 21), "\n"...2929 days ago
Blast result parser with Perl and Bioperl
...nfile,$numHits,$outfile) = @ARGV; print "Parsing the BLAST result ......e "Cannot open $outfile: $!"; # print the header info for tab-delim...my $hit = $result->next_hit) { print OUT "\t" if ($count > 0);...its); } } } close OUT; print " DONE!!!\n";2928 days ago
Find and replace ambiguous characters in fasta file with Perl and Bioperl
...1 ...]\n". " -h: help\n". " -m: missing character\n". "Print out the name of sequences wit...); my $ambig = AmbiguousChar($thisSeq); if ($ambig ne "") { print STDERR $s->id(), "\t$ambig\n"...2928 days ago
Perl program to implement sliding window !
#!/usr/bin/perl -w my $filename = 'data.txt'; open(my TR, '2928 days ago
2928 days ago
Perl to print indivisual nucleotide from a sequence!
#!/usr/bin/perl use strict; use warnings; my $string = "ATGCTTGCGT?AAATG??CT?GCGTA"; my @chars = split("", $string); print "First character: $chars[0]\n";2928 days ago
2924 days ago