#!/usr/bin/perl -w
# parse_unigene_unique.pl

use strict;

my $outputfile = "frig";;
my $i;
my $count;

while (<>) {

        if (/^\s+$/) {
                next;
        } elsif (/#.*containing\s+(\d+)/) {
                $count = $1;
                $i = 1;
                print "conditional 2: $count\n";
        } elsif (/^(>.*\/ug\=(\S+).*$)/) {

                if ($outputfile eq "frig") {
                        $outputfile = $2;
                        unless ( open(SEQ, ">$outputfile\.ugc") ) {
                          die "Cannot open file \"$outputfile\" to write to!\n\n";
                }

                        print SEQ "$1\n";
                        $i++;

                } elsif (($outputfile ne "frig") && ($i == 1)) {
                close(SEQ);

                        $outputfile = $2;

                        unless ( open(SEQ, ">$outputfile\.ugc") ) {
                          die "Cannot open file \"$outputfile\" to write to!\n\n";
                        }

                        print SEQ "$1\n";
                        $i++;
                } elsif (($outputfile ne "frig") && ($i <= $count)) {

                        print SEQ "$1\n";
                        $i++;
                        }

        } elsif (/(\S+)/) {

                print SEQ "$1\n";
        }
}
exit;