#!/usr/bin/perl -w

use strict;

# locus2clone.pl, last update:  8/4/03
# creates a locus2clone relations file from the clone2locus relations file
#   the locus2clone file will be used to spread loci
# by Chet Langin, clangin@siu.edu
# SIU Plant Biotechnology and Genome Core-facility

open INPUT_FILE, "<clone2locus_relations.txt"
  or die "Cannot open input file:  $!\n";
open OUTPUT_FILE, ">locus2clone_relations.txt"
  or die "Cannot open output file:  $!\n";

while(<INPUT_FILE>) {
  chomp;
  my @fields = split/\t/;
  print OUTPUT_FILE "$fields[1]\t$fields[0]\t$fields[2]\n";
} # while

close INPUT_FILE;
close OUTPUT_FILE;