如何在perl中写出科学记数法？

Question

我一直在研究一个项目,我基本上要说下一个目标

"在第[27]栏中,如果值大于10^-8删除文件"

如何写10^-8一个程序？

#!/usr/local/bin/perl

use strict;
use warnings;

my @traitarray;
my $traitarray;
my $input ;
my %traithash ;
my $t_out ;
my $TRAIT;
my $SNPS;

open ($input, "gwas_catalog_v1.0-downloaded_2015-07-31.tsv") || die () ;

while(<$input>) {
    @traitarray = split (/\t/);
    $TRAIT = $traitarray[7];
    $SNPS = $traitarray[21];

    if (!exists $traithash {$TRAIT}) {
            $TRAIT =~ tr/ /_/ ;
            $TRAIT =~ tr/:/-/ ;
            $TRAIT =~ tr/\//-/ ;
            $TRAIT =~ tr/*/-/ ;
            open ($t_out, ">outputFiles/".$TRAIT.".txt");
            print $t_out "$SNPS\n";
            $traithash {$TRAIT} = 1 ;
            push (@traitarray, $TRAIT) ;
    }
    else {
        print $t_out "$SNPS\n";
    }
}

foreach ($traitarray) {
    close "$TRAIT.txt";
}

专栏[27]有大约30,000行,格式为"6E-12"""12E-9"等...

Answer 1

只是用 1e-8

e 是指数的常用符号.

示例:5.5e100是(5.5*10 ^ 100)

更多信息:维基百科,perlnumber(感谢HåkonHægland)