Hi everyone.
I d like to have u guys input about my code. Im writing a perl script that
would generate some primers. my input file calles " output.txt ) was generated
from primer3.
if u guys can take a look at my script and tell me what u detect that needs
to be correcte/ or something that i missed to include. hope to hear from u all.
#! /usr/bin/perl- w
#programpro.pl
use strict;
use primer3;
# initialize variables
my %sequences;
my $key;
my $file = output.txt;
# Read a primer3 output file
my $primer3 = primer3-> new ( -file=>data/output.txt);
# iterate over sequences
Foreach $key (keys (%sequences)) {
# Search for primers
my $primer = primer3=>new ($key,
$sequences {$key};
print $key\nLeft\t\t\tRight\n;
while ($primer=>getNextpair ( )) {
print $primer=> LeftOligo ( ) . \t .
$primer=>RightOligo( ) . \n ;
}
Print \n;
}
---------------------------------
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now.
