#! /usr/local/bin/perl -w

use strict;

my $num_of_params;
$num_of_params = @ARGV;

if ($num_of_params < 2)
{                       
   die ("\n You haven't entered enough parameters \n\n");
}

open (FH, $ARGV[0]) or die "unable to open file";

open (OUTFILE, ">$ARGV[1]");

# declare some variables.

my $line;
my @array;
my $first=0;
my $second=0;
my $third;
my $fourth;
my $fifth;
my $others;               
     
 do {
print STDOUT "\nPlease select the catergory of results that you wish to see;\n\n
\t1. first \n\t2. second \n\t3. third \n\t4. fourth \n\t5. others\n\t6. Exit program\n\n";

$choice = <STDIN>;

chomp $choice;

print "\nIdentifier \t\t%identity \n\n";

  while (<FH>)
  {                           
  $line = $_;

        chomp ($line);
        @array = ();
        @array = split (/\s+/, $line);

        $array[8] =~ s/\%//g;

            
 if ((($array[1] =~ m{/:yes\|\w+\|\w+}) || ($array[1] =~ m{/:maybe\|\w+\|\
w+})) && ($array[8] > 95) && ($choice eq 1))
    {
  
    $first = "$array[1]\t$array[8]\n";
    print $first;
    print OUTFILE $first;
    }

  elsif ((($array[1] =~ m{/:no\|\w+\|\w+}) || ($array[1] =~ m{/:noway\
|\w+\|\w+})) && ($array[8] > 95) && ($choice eq 2))
    {
      $second = "$array[1]\t$array[8]\n";
      print $second;
      print OUTFILE $second;
   }
                                     
  elsif ((($array[1] =~ m{/:definatley\|\w+\|\w+}) || ($array[1] =~ m{/:highly\|\w
+\|\w+})) && ($array[8] < 95) && ($choice eq 3))
    {
 
      $third = "$array[1]\t$array[8]\n";
      print $third;
      print OUTFILE $third;
    }

   elsif ((($array[1] =~ m{/:no\|\w+\|\w+}) || ($array[1] =~ m{/:noway
\|\w+\|\w+})) && ($array[8] < 95) && ($choice eq 4))
    {
     ;
     $fourth = "$array[1]\t$array[8]\n";
     print $fourth;
     print OUTFILE $fourth;
    }                        

 elsif (($choice eq 5) && (($array[1] =~ m{/:perhaps\|\w+\|\w+}) || ($array[1] =~ m{
/:possibly\|\w+\|\w+}) || ($array[1] =~ m{/:unsure\|\w+\|\w+}) || ($array[1] =~ m{/:
maybe\|\w+\|\w+})) && ($array[8] > 0))
  {
   $others = "$array[1]\t\t$array[8]\n";
   print $others;
   print OUTFILE $others;
  }

  elsif ($choice eq 6)
  {

  last;
  }
 }
}
until ($choice eq 6);   

close OUTFILE;