~vamsi-krishnak/+junk/libBipartiteMatch

« back to all changes in this revision

Viewing changes to PerlScripts/seperate.pl

  • Committer: Vamsi Kundeti
  • Date: 2008-12-18 04:00:39 UTC
  • Revision ID: vamsi.krishnak@gmail.com-20081218040039-h1w0l0dln1v9x3cj
libBipartiteMatch inital import

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
open(MAIN_TESTS,"total_tests.txt") or die("$!\n");
 
2
open(RUNTHIS,">not_finished.txt") or die("$!\n");
 
3
open(FINISHED,"finished_tests.txt");
 
4
%test_hash;
 
5
while(<FINISHED>){
 
6
         $line = $_;
 
7
          chomp($line);
 
8
          $test_hash{$line} = 1;
 
9
}
 
10
while(<MAIN_TESTS>){
 
11
        $line = $_;
 
12
        chomp($line);
 
13
        if(exists $test_hash{$line}){
 
14
                next;
 
15
        }else{
 
16
                print RUNTHIS "../bipartite1 $line\n";
 
17
        }
 
18
 
 
19
}
 
20
 
 
21
close(RUNTHIS);
 
22
close(MAIN_TESTS);
 
23
close(FINISHED);
 
24