perl调用fisher检验子程序

介绍：perl子程序： 调用R中fisher检验

sub fisher {

    my ($a, $b, $c, $d, $result) = @_;

    ##########################################
    ##               Mem     Women
    ##Dieting        a       c
    ##Non-dieting    b       d

    my $tmpOut = "xxxtmpOut.R";

    open   OUTZZZ, ">$tmpOut";
    print  OUTZZZ  'x <- matrix('."c($a, $b, $c, $d)".',ncol=2,nrow=2)', "\n";
    print  OUTZZZ  'fisher.test(x)$p.value', "\n";
    close  OUTZZZ;

    my $line = `Rscript $tmpOut`;

    if($line =~ /\s+(\S+)\n/){
       $$result = $1;
    }

}