简单实例应用（1）

##提取文件中的某几列，并取负对数值（P）
#!/usr/bin/perl
use strict;
use warnings;
use Math::Complex;   ##math function

open IN, "
open OUT, ">$ARGV[1]"; # output file
my @line;
my $P_value=0;
while () {
        chomp;
        next if (/^NSNP/);   ##匹配到就跳出循环

        next if (/NA/);

@line=split /s+/, $_;

P_value=-logn(line[x],10);   ##log value
print OUT "$line[2]n";

}

close IN;
close OUT;