Perl script to count the number of Adenine, Thymine, Guanine and Cytosine in your DNA Sequence
...the same directory of this script, enter the name of the file along...ome/user/sequence/dnafile.txt print "ENTER THE FILENAME OF THE DN...he file does not exist!!! \n"; print "Cannot open file \"$dna_file...f ( $base eq 't' ) { ++$count_of_T; } elsif (...2943 days ago
Retrieve NCBI GenBank records with a range of accession numbers
...atabase => undef, returnType => undef, maxRecords...eturn_type=s' => \$param{returnType}, 'm|max_records=i' =...(\d+).*(\S+)/s; my $count = $1; my $query_key...}++; } print( $OUTFILE $efetch_result );...2943 days ago
A multilayer perceptron (MLP) neural network in Perl
...eural network in Perl Original source code by Phil Brierley #Translated into perl - ccolbourn Oct 2004 #...= 4; my $LR_IH = 0.7; my $LR_HO = 0.07; ################ Data dependent settings ######### my $numIn...2943 days ago
Extract a random sequence from a file
...xt'; open my $in_fh, '', $outputfile; my $size = 21; my $count = 10; while (my $line...$genome = $1; my $len_genome = length $genome; my @start_points = shuffle(0 .. $len_genome-$...2942 days ago
2937 days ago
Blast result parser with Perl and Bioperl
...t start, hit end, positives, and identical # The results are tab-deliminated and ready for import into a spreadsheet program for br...nfo for tab-deliminated columns print OUT "query_name\tquery_length...quences print OUT $hit->length . "\t";...2942 days ago
Find and replace ambiguous characters in fasta file with Perl and Bioperl
...p\n". " -m: missing character\n". "Print out the name of sequences wit...in all files are marged. If no \n". "argument is given, it will take STDIN...ousChar($thisSeq); if ($ambig ne "") { print STDERR $s->id(), "\t$ambig\n"...2942 days ago
Perl program to implement sliding window !
#!/usr/bin/perl -w my $filename = 'data.txt'; open(my TR, '2942 days ago
2942 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";2941 days ago