#!/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; } }