Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
8 lines (7 sloc) 158 Bytes
#!/usr/bin/perl
my @a=(0,0);
foreach my $file (@ARGV) {
my $out = (system("./filter -classify < $file >> out") >> 8);
$a[$out]++;
}
print join("\t",@a),$/;