|
|
Help starting a script
03-02-2012
TP=0 (the number of $1=1 and $2=1 are in the file) FP=0 (the number of $1=1 and $2=-1 are in the file) FN=3 (the number of $1=-1 and $2=1 are in the file)
FN File 1 1 1 0 0 0 0 0 0
#!/usr/bin/perl -w
@a=qw(0 0 0 0);
while(<>){
/^(.+?)\s+(.+?)\s+/;
$a[0]++,next if($1 == 1 && $2 == 1);
$a[1]++,next if($1 == 1 && $2 == -1);
$a[2]++,next if($1 == -1 && $2 == 1);
$a[3]++,next if($1 == -1 && $2 == -1);
}
print"$a[0] $a[1] $a[2] $a[3]\n";
|
|
|
|