#!/usr/bin/perl
# Converts stsprimer text file into a tabulated html file
open (INPUT, "<$ARGV[0]");
while (){
if ($_ =~ /^([^\s\t]+)[\s\t]+([^\s\t]+)[\s\t]+([aAcCgGtT]+)[\s\t]+([aAcCgGtT]+)[\s\t]+([~0-9][^\s\t\n]+)\n/ ){
$sts = $1;
$locus = $2;
$primera = $3;
$primerb = $4;
$size = $5;
print "| $sts | $locus | $primera | $primerb | $size |
\n";
}
elsif ($_ =~ /^([^\s\t]+)[\s\t]+([aAcCgGtT]+)[\s\t]+([aAcCgGtT]+)[\s\t]+([~0-9][^\s\t\n]+)\s*\n/ ){
$sts = $1;
$primera = $2;
$primerb = $3;
$size = $4;
print "| $sts | | $primera | $primerb | $size |
\n";
}
elsif ($_ =~ /^([^\s\t]+)[\s\t]+([^\s\t]+)[\s\t]+hybridized[\s\t]+([~0-9][^\s\t\n]+)\s*\n/ ){
$sts = $1;
$locus = $2;
$size = $3;
print "| $sts | $locus | hybridised | | $size |
\n";
} else {
print;
}
}