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

( ($results_dir  = shift @ARGV) &&
  ($name         = shift @ARGV) ) || 
    die "usage: list_completed results_directory name (of output file -- name.14.out) > list\n";

opendir(RESULTS, "$results_dir") ||
    die "could not open directory";

@result_files = grep( /$name\.\d+\.pfam_output/, readdir(RESULTS));

# print "@result_files\n";

closedir(RESULTS);

foreach $file (@result_files)
{
    @lines = `grep Query $results_dir/$file`;

    foreach $line (@lines)
    {
        ($id) = ($line =~ /\s(R[A-Z]{2}\d{5})\s/);
        print "$id\n"; 
    }
}
