#!/usr/bin/perl
use strict;

my $file = "/home/princeton_codeen/CoDeeN/cachefiles/reqrateinfo";

exit unless (-e $file);
open THIS_FILE, $file;
while (<THIS_FILE>) {
    if (/\s*([0-9.]+)\s+\d+\s+(\d+)\s+\d+\s+\d+\s+(\d+).*out\/dir/) {
	if (($2 > 0) || ($3 > 0)) {
	    print "$1 $2 $3\n";
	}
    }
}
close THIS_FILE;



