comparison parse_primersearch.pl @ 5:b321e0517be3 draft

Uploaded

4:be070a68521e

#!/usr/bin/perl
#parse_primersearch.pl
#reformat EMBOSS primersearch output into columnar Galaxy interval format 

#Copyright 2012 John McCallum 
#New Zealand Institute for Plant and Food Research
#This program is free software: you can redistribute it and/or modify
#     it under the terms of the GNU General Public License as published by
#    the Free Software Foundation, either version 3 of the License, or

#    along with this program.  If not, see <http://www.gnu.org/licenses/>.

open (IN, "<$ARGV[0]");
open (OUT, ">$ARGV[1]");

#print OUT  "primerset_id","\t","sequence_id","\t","hit_start","\","mismatches","\t","amplimer_size",\n";



while (<IN>) {
         /^Primer name (\S+)/  && ($name = $1);  # get primer set name

5:b321e0517be3

#!/usr/bin/perl
#parse_primersearch.pl
#reformat EMBOSS primersearch output into columnar Galaxy interval format 
#usage  perl parse_primersearch.pl <input primersearch file> <tabular output file>
#Copyright 2012 John McCallum 
#New Zealand Institute for Plant and Food Research
#This program is free software: you can redistribute it and/or modify
#     it under the terms of the GNU General Public License as published by
#    the Free Software Foundation, either version 3 of the License, or

#    along with this program.  If not, see <http://www.gnu.org/licenses/>.

open (IN, "<$ARGV[0]");
open (OUT, ">$ARGV[1]");





while (<IN>) {
         /^Primer name (\S+)/  && ($name = $1);  # get primer set name