简单实例应用（1）

##提取文件中的某几列，并取负对数值（P）

#!/usr/bin/perl

use strict;

use warnings;

use Math::Complex;   ##math function

open IN, "$ARGV[0]" or die $!; # Input file

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;